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