'Attribute VB_Name = "SpaltenNameRekursiv"
'Spaltenname Col Nummer Rekursiv'
Option Explicit
' ---------------------------------------------------------
' Funktion: ColNameRec
' Eingestellt von: Andre Schau
' Datum: 5. Juno 2011
' Kommentar: Ermittlung des ColNamens
' Parameter: iSpalte
' Rückgabe: Erfolg: SpaltenName, ansonsten ""
' Aufruf:
' Sub Call_ColNameRec()
' MsgBox ColNameRec(1261)
' End Sub
Function ColNameRec(iSpalte As Integer) As String
  If (iSpalte = 0) Then Exit Function
  ColNameRec = ColNameRec((iSpalte - 1) \ 26) + _
    Chr(65 + (iSpalte - 1) Mod 26)
End Function