Sub ALPHABET_SCHREIBEN()

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


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)
ActiveWorkbook.Worksheets("VERTIKAL").Range("A" & i).Value = buchstabe(i)
ActiveWorkbook.Worksheets("HORIZONTAL").Range(buchstabe(i) & 1).Value = buchstabe(i)
Next i


End Sub