Sub finde_die_letzte_spalte()



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

Dim buchstabe(1 To 750) As String
Dim alph2(0 To 26) As String

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
flag = 1
offset_ = 2
aktive_zeile = 7
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

alph2(0) = ""
alph2(1) = "A"
alph2(2) = "B"
alph2(3) = "C"
alph2(4) = "D"
alph2(5) = "E"
alph2(6) = "F"
alph2(7) = "G"
alph2(8) = "H"
alph2(9) = "I"
alph2(10) = "J"
alph2(11) = "K"
alph2(12) = "L"
alph2(13) = "M"
alph2(14) = "N"
alph2(15) = "O"
alph2(16) = "P"
alph2(17) = "Q"
alph2(18) = "R"
alph2(19) = "S"
alph2(20) = "T"
alph2(21) = "U"
alph2(22) = "V"
alph2(23) = "W"
alph2(24) = "X"
alph2(25) = "Y"
alph2(26) = "Z"


' init
y_ = 0
Z_ = 0
n = 1
m = 1
k = 0
aktueller_name = ActiveSheet.Name
For i = 1 To 702
ofs = 26
If i > n * 26 Then
    n = n + 1
    Z_ = 0
    y_ = y_ + 1
End If
Z_ = Z_ + 1
buchstabe(i) = alph2(y_) & alph2(Z_)
'ActiveWorkbook.Worksheets(aktueller_name).Range("A" & i).Value = buchstabe(i)
Next i

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

For i = 1 To 100
    spalte = i + offset_
    iterations_wert_wert_der_liste = ActiveWorkbook.Worksheets("SEITE_B").Range(buchstabe(spalte) & aktive_zeile).Value
    If iterations_wert_wert_der_liste = "" And flag = 1 Then
        flag = 0
        erste_freie_spalte = spalte
        letze_spalte_mit_eintrag = erste_freie_spalte - 1
    End If
    Next i

    letzter_eintrag_in_Liste = ActiveWorkbook.Worksheets("SEITE_B").Range(buchstabe(letze_spalte_mit_eintrag) & aktive_zeile).Value
    
    anzahl_elemente = letze_spalte_mit_eintrag - offset_
    ActiveWorkbook.Worksheets("SEITE_B").Range("C18").Value = buchstabe(letze_spalte_mit_eintrag)
    ActiveWorkbook.Worksheets("SEITE_B").Range("C19").Value = buchstabe(erste_freie_spalte)
    ActiveWorkbook.Worksheets("SEITE_B").Range("C20").Value = letzter_eintrag_in_Liste
    ActiveWorkbook.Worksheets("SEITE_B").Range("C21").Value = anzahl_elemente

End Sub