Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Zeilen erzeugen nach Menge

Forumthread: Zeilen erzeugen nach Menge

Zeilen erzeugen nach Menge
17.12.2007 08:54:00
Thomas
Hallo,
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.

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen erzeugen nach Menge
17.12.2007 11:34:00
Daniel
HI
mit Formeln wirds schwierig,
einfach gehts mit nem kleinen Makro

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.

Anzeige
AW: Zeilen erzeugen nach Menge
17.12.2007 12:36:00
Thomas
Danke Daniel hat super hingehaun.
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige