ich habe eine mir eine Funktion geschrieben, die den Spaltenbuchstaben ermittelt:
Function fncSpaltenbuchstabeErmitteln(strAddress As String) As String
fncSpaltenbuchstabeErmitteln = IIf(IsNumeric(Right(Left(strAddress, 2), 1)) _
, Left(strAddress, 1), _
Left(strAddress, 2))
End Function
und hier ein Prozedur, zum Testen:
Sub prcFunktionTesten()
MsgBox fncSpaltenbuchstabeErmitteln(Cells(1, 256).Address(0, 0))
MsgBox fncSpaltenbuchstabeErmitteln(Cells(65536, 1).Address(0, 0))
End Sub
Das Ganze funktioniert auch, soweit so gut - Nun wollte ich euch mal fragen,
ob jemand vielleicht eine elgantere / übersichtlichere / kürzere / schnellere Möglichkeit kennt.
Liebe Grüße
Ceyser Soze