Lagerkartei generieren (Schleifenproblem)
06.03.2016 13:49:39
Peter
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