Spaltenbezeichnungen Zahl - Buchstaben
05.01.2010 08:47:33
Erich
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