VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Artikelbenennungen entsprechend ihrer Stückzahl listen

Gruppe

Allgemein

Bereich

Liste

Thema

Artikelbenennungen entsprechend ihrer Stückzahl listen

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

    


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