Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Artikelbenennungen entsprechend ihrer Stückzahl listen

Gruppe

Liste

Problem

Die Artikel aus einer Tabelle sollen in Tabelle2 entsprechend ihrer Stückzahlen gelistet werden.

Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.

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