Hallo liebe VBA-Experten,

ich taste mich gerade an VBA mit Excel heran und möchte folgendes Problem lösen:

Es soll automatisch ein Blatt mit Lagerplätzen generiert werden.

Lagerplätze sind folgend aufgebaut:  Gasse | Platz | Fach    Bsp.: 10 | 009 | 1

Das Fach wird in unten (Bereich 1-5) und oben unterteilt (A bis Z). Beide "Facharten" sollen in eine Spalte geschrieben werden.

Der Code tut soweit was er soll, jedoch wird das Fach nicht richtig generiert. Es wird nur Fach oben erzeugt.

Für Tips wäre ich sehr dankbar!

Sub Lagerkartei()
Dim G As Integer 'Gasse
Dim P As Integer 'Platz
Dim R As Long    'Fach oben
Dim K As Integer 'Fach unten
Dim i As Long

Application.ScreenUpdating = False
 
i = 1
For G = 1 To 5
    For P = 1 To 100
        For K = 1 To 5
            For R = Asc("A") To Asc("D")
            
            With ActiveSheet
                .Range("A" & i + 1) = G
                .Range("B" & i + 1).Value = P
                .Range("C" & i + 1).Value = K
                .Range("C" & i + 1).Value = Chr$(R)
            End With
            i = i + 1
            Next R
        Next K
    Next P
Next G
 
Application.ScreenUpdating = True
End Sub