'Attribute VB_Name = "SpaltenNummerRekursiv"
'Spaltennummer Name Rekursiv'
Option Explicit
' ---------------------------------------------------------
' Funktion: ColNumRec
' Eingestellt von: Andre Schau
' Datum: 5. Juno 2006
' Kommentar: Ermittlung der Spaltennummer
' Parameter: strSpalte
' iLevel: interne Variable fuer Rekursion
' Rückgabe: Erfolg: SpaltenName, ansonsten ""
' Aufruf:
 Sub Call_ColNumRec()
 MsgBox ColNumRec("IV")
 End Sub
Public Function ColNumRec(ByVal strSpalte As String, _
  Optional ByVal iLevel As Integer = 0) As Long
  If (iLevel = Len(strSpalte)) Then Exit Function
  ColNumRec = ColNumRec(strSpalte, iLevel + 1) + _
    ((Asc(Mid(strSpalte, Len(strSpalte) - iLevel, 1)) - 65) + 1) * 26 ^ iLevel
End Function