Microsoft Office Forum [ www.Office-Fragen.de ] >> READONLY <<
Microsoft Office 2003-2019 => Excel => Thema gestartet von: Avaro 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
-
Hallo Jens,
schau mal hier: http://www.excel-inside.de/vba-loesungen/zellen-a-bereiche/977-spaltenbuchstabe-oder-spaltennummer-ermitteln (http://www.excel-inside.de/vba-loesungen/zellen-a-bereiche/977-spaltenbuchstabe-oder-spaltennummer-ermitteln)
LG Officer
-
Moin Jens,
eine Alternative, die vielleicht etwas transparenter, schlanker ist und auch unter 2007 läuft (zumindest mit 2013 geprüft) findest du in meinem Bog Excel-ist-sexy (http://www.excel-ist-sexy.de/spaltennummer-spaltenbezeichnung-vba/). Ich nehme an, dass du nicht direkt die Sub sondern die Function einsetzen wirst.