Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
932to936
932to936
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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.

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige