Spalten Nummer aus Name - Name aus Nummer

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

Funkltionsaufruf:

GetColumnName(27) -> "AA"
GetColumnNumber("U") -> 21

Function GetColumnName(ByVal iColumnNumber%) As String
  If iColumnNumber <= 0 Or iColumnNumber > Columns.Count Then
  GetColumnName = "#WERT!"
Else
  GetColumnName = Left(Cells(1, iColumnNumber).Address(False, False), _
  Len(Cells(1, iColumnNumber).Address(False, False)) - 1)
  End If
End Function

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