Excel: Spaltenbuchstaben & Zeilenzahlen
Gepostet am: Aug 21, 2013 1:42:7 PM
Excel beschreibt Zellen mit der Kombination aus Buchstaben und Zeilen.
Daher muss man hin und wieder auch Spaltennummern in Zahlen und Zahlen in Spaltnebuchstaben umwandeln.
Umwandeln von Spaltenbuchstaben in Zahlen
Function SpaltenNr(strSpalte As String) As Integer
SpaltenNr = Range(strSpalte & 1).Column
End Function
Umwandlung von Zahlen in Spaltenbuchstaben
Function SpaltenBuchstabe(Spalte As Integer) As String Dim strAdress As String strAdress = Cells(1, Spalte).Address(ColumnAbsolute:=False) SpaltenBuchstabe = Left(strAdress, Len(strAdress) - 2) End Function
eine andere Methode:
Function GetColumnLetter(lngColumn As Long) As String ' Gibt den Buchstaben einer Spalte zurück On Error Resume Next ' maximale Spalten pro Version If Val(Application.Version) < 12 Then If lngColumn < 1 Or lngColumn > 256 Then Exit Function Else If lngColumn < 1 Or lngColumn > 16384 Then Exit Function End If ' Spaltennummer in Spaltenzahl umwandeln If Application.ReferenceStyle <> xlR1C1 Then 'Z1S1 Bezugsart ermitteln If InStr(Replace(Cells(1, lngColumn).Address, "$", "", , 1), "$") <> 0 Then GetColumnLetter = Left(Replace(Cells(1, lngColumn).Address, "$", "", , 1), InStr(Replace(Cells(1, lngColumn).Address, "$", "", , 1), "$") - 1) End If Else GetColumnLetter = lngColumn End If End Function