Microsoft Excel

Herbers Excel/VBA-Archiv

Umwandlung Zahl - Buchstaben | Herbers Excel-Forum


Betrifft: Umwandlung Zahl - Buchstaben von: Rene
Geschrieben am: 05.01.2010 08:42:27

Hallo,

ich nutze eine Funktion im meinem VBA-Code um Spaltenangaben (in Zahlenformat) in Buchstaben umzuwandeln.

Public Function mySpalteABC(pseudo)

If pseudo < 27 Then
mySpalteABC = Chr(65 + (pseudo - 1) Mod 26)
Else
mySpalteABC = Chr(64 + (pseudo - 1) \ 26) + Chr(65 + (pseudo - 1) Mod 26)
End If

End Function

Jetzt suche ich eine Lösung für die genau umgekehrte Richtung. Kann mir hier jemand helfen?

Vielen Dank im voraus.

  

Betrifft: Spaltenbezeichnungen Zahl - Buchstaben von: Erich G.
Geschrieben am: 05.01.2010 08:47:33

Hi Rene (oder René?),
hier kannst du dir etwas raussuchen:

Function SpalteTxt_ausNum(iNr As Long)
   SpalteTxt_ausNum = Left(Cells(1, iNr).Address(0, 0), 1 - (iNr > 26) - (iNr > 702))
End Function

Function SpalteTxt_ausNum2(iNr As Long)
   SpalteTxt_ausNum2 = Replace(Cells(1, iNr).Address(0, 0), "1", "")
End Function

Function SpalteNum_ausTxt(strSp As String) As Long
   SpalteNum_ausTxt = Columns(strSp).Column
End Function
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort


  

Betrifft: AW: Spaltenbezeichnungen Zahl - Buchstaben von: Rene
Geschrieben am: 05.01.2010 08:55:39

super, sehr genial, ich nehme dein 2. und 3. Beispiel. Vielen Dank. Das hilft mir weiter.


Beiträge aus den Excel-Beispielen zum Thema "Umwandlung Zahl - Buchstaben"