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