You are here : Start Excel Spalten Nummer aus Name - Name aus Nummer

Spalten Nummer aus Name - Name aus Nummer

In Excel kann per Visual Basic (VBA) mit diesen beiden Funktionen entweder der SpaltenName (Cloumn) in die Spalten-Zahl umgerechnet werden. Oder eben eine Cloumn-Zahl in eine Spalten-Bennung ungewandelt werden.

Funkltionsaufruf:

GetColumnName(27) -> "AA"

GetColumnNumer("U") -> 21

Function GetColumnName(ByVal intColumnNumber As Integer) As String

If intColumnNumber <= 0 Or intColumnNumber > Columns.Count Then

GetColumnName = "#WERT!"

Else

GetColumnName = Left$(Cells(1, intColumnNumber).Address(False, False), _

Len(Cells(1, intColumnNumber).Address(False, False)) - 1)

End If

End Function

Function GetColumnNumer(ByVal sColumnName$) As String
'Excel 2007 bis XFD
Dim r As Range
On Error Resume Next
Set r = Range(sColumnName & 1)
GetColumnNumer = r.Column
If Err.Number <> 0 Then GetColumnNumer = "#WERT!"
End Function
 
JoomlaTheme.net