Spaltennummer in Spaltenzahl umwandeln und umgekehrt

Gepostet am: Mar 09, 2011 4:27:55 PM

Spaltenname aus Spaltenzahl ermitteln

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 IfEnd Function

Spaltennummer aus Spaltenbuchstaben ermitteln

Function GetColumnNumber(strColumn As String) As Integer     ' Gibt den Nummer einer Spalte zurück     On Error Resume Next     ' maximale Spalten pro Version     GetColumnNumber = Range(strColumn & "1").Column End Function