ich möchte aus einer Artikelliste Bsp.
Art. --- Menge
234 --- 5
456 --- 3
soviele Zeilen einfügen in anderes Tabellenblatt wie die Menge ist
234
234
234
234
234
456
456
456
kann mir jemand Helfen.
Sub Einfügen()
Dim Zeile As Long
Dim Zelle As Range
With Sheets("Tabelle1")
For Zeile = 2 To .Cells(65536, 1).End(xlUp).Row
Set Zelle = Sheets("Tabelle2").Cells(65536, 1).End(xlUp).Offset(1, 0)
Zelle.Resize(.Cells(Zeile, 2), 1) = .Cells(Zeile, 1)
Next
End With
Sheets("Tabelle2").Cells(1, 1).Value = "Artikel"
End Sub
Die Blattnamen müssen ggf. noch angepasst werden und eventuell auch die Spaltennummern, wenn Artikel nicht in Spalte A und Menge nicht in Spalte B steht.
falls deine Selbsteinschätzung tatsächlich so zutrifft, bitte dashier durcharbeiten:
http://www.online-excel.de/excel/singsel_vba.php?f=44
Gruß, Daniel
Ich lass die Frage mal offen, falls jemand noch ne Idee für ne Formellösung hat.