Menü
An- und Abmelden
Partner / Links
Beiträge anzeigen
1
Excel / VBA Spaltenbenennung (A / B/ C …) in Zahl wandeln – Problem m Alt-Makro XLS 2000
« am: März 09, 2015, 15:59:00 Nachmittag »
Hallo Community,
das Problem ist gelöst. Die Ursache lag in einem fehlerhaften Update von MS Office/Excel in 12/2014.
Gruß Jens
Hallo,
für mein Problem bitte ich um Hilfe. Leider habe ich seit Jahren keine wirkliche Erfahrung bei VBA mehr und stehe daher aktuell hilflos da.
Herzlichen Dank für eure Unterstützung im Voraus.
Jens
---
Für ein kleines Excel-Tool (ursprüngl. in Excel 2000 erstellt) wird die Spaltenbezeichnung (A / B/ C …) in eine Zahl (A = 1, B = 2, C = 3; …) umgewandelt.
Nachstehendes Makro aus Excel 2000 funktionierte unter XP und mit der alten Excel-Version bislang ohne Probleme. Nunmehr seit Excel 2010 und 2013 wird die Vorgabe n = CInt(a) beim Debuggen angezeigt. Wie muss ich den Code aufbauen, dass wieder alles funktioniert?
Function SpaltenNr(a As Variant) As Integer
'Wandelt Zeichenfolgen in Spaltennr um
Dim t1 As String
Dim n As Integer
On Error GoTo FehlerStart1 'Falls in a keine Zahl steht sondern Text...
n = CInt(a) <- Diese Zeile wird beim Debuggen angezeigt.[/b]
GoTo FehlerEnde1
FehlerStart1:
t1 = a
n = NummerAusText(t1)
FehlerEnde1:
SpaltenNr = n
End Function 'SpaltenNr
das Problem ist gelöst. Die Ursache lag in einem fehlerhaften Update von MS Office/Excel in 12/2014.
Gruß Jens
Hallo,
für mein Problem bitte ich um Hilfe. Leider habe ich seit Jahren keine wirkliche Erfahrung bei VBA mehr und stehe daher aktuell hilflos da.
Herzlichen Dank für eure Unterstützung im Voraus.
Jens
---
Für ein kleines Excel-Tool (ursprüngl. in Excel 2000 erstellt) wird die Spaltenbezeichnung (A / B/ C …) in eine Zahl (A = 1, B = 2, C = 3; …) umgewandelt.
Nachstehendes Makro aus Excel 2000 funktionierte unter XP und mit der alten Excel-Version bislang ohne Probleme. Nunmehr seit Excel 2010 und 2013 wird die Vorgabe n = CInt(a) beim Debuggen angezeigt. Wie muss ich den Code aufbauen, dass wieder alles funktioniert?
Function SpaltenNr(a As Variant) As Integer
'Wandelt Zeichenfolgen in Spaltennr um
Dim t1 As String
Dim n As Integer
On Error GoTo FehlerStart1 'Falls in a keine Zahl steht sondern Text...
n = CInt(a) <- Diese Zeile wird beim Debuggen angezeigt.[/b]
GoTo FehlerEnde1
FehlerStart1:
t1 = a
n = NummerAusText(t1)
FehlerEnde1:
SpaltenNr = n
End Function 'SpaltenNr