Spaltenbuchstaben berechnen

Private Sub ComboBox1_Change()
' ermittelt die erste freie Spalte und berechnet den zugehörigen Buchstaben
Dim sp As Integer
Dim anf As String
Dim en As String
' 1. freie Spalte ermitteln
sp = ActiveCell.SpecialCells(xlLastCell).Column + 1                 ' freie Spalte suchen
' Buchstaben für Anzeige berechnen
    If sp > 26 Then anf = Chr(Int(sp / 26.1) + 64) Else anf = ""    ' 1. Spaltenbuchstaben berechnen
        en = Chr(Int(sp Mod 26.1) + 64)                             ' 2. Buchstabe
    If en = Chr(64) Then en = Chr(90)                               ' Fehlerkorrektur
         TextBox1 = anf & en                                        ' Buchstabe(n) in TextBox eintragen
End Sub