VBA-Programmierung in Microsoft Excel

Artikelbenennungen entsprechend ihrer Stückzahl listen

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

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Liste