Gruppe
Allgemein
Problem
Die Artikel aus einer Tabelle sollen in Tabelle2 entsprechend ihrer Stückzahlen gelistet werden.
StandardModule: Modul1
Sub JeStueck()
Dim iRow As Integer, iRowT As Integer, iCounter As Integer
iRow = 2
iRowT = 2
Do Until IsEmpty(Cells(iRow, 1))
For iCounter = 1 To Cells(iRow, 1).Value
With Worksheets("Tabelle2")
.Cells(iRowT, 1).Value = Cells(iRow, 2).Value
.Cells(iRowT, 2).Value = Cells(iRow, 3).Value
End With
iRowT = iRowT + 1
Next iCounter
iRow = iRow + 1
Loop
End Sub