Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige