VBA Spaltenbenennung (A / B/ C …) in Zahl wandeln – Problem m Alt-Makro XLS 2000

[Avaro]

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

[Officer]

Hallo Jens,

schau mal hier: http://www.excel-inside.de/vba-loesungen/zellen-a-bereiche/977-spaltenbuchstabe-oder-spaltennummer-ermitteln

LG Officer

[gmg-cc]

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. Ich nehme an, dass du nicht direkt die Sub sondern die Function einsetzen wirst.