Hallo liebes Forum,
ich will in einer Liste eine Fläche (Spalte 9) in einer Anzahl x (Spalte 4) kopieren und in ein anderes Tabellenblatt untereinander einfügen. Theoretisch brauche ich doch 2 Schleifen: Die erste für jede Zeile von 42 bis End(xlUp)in Tabelle1 und die zweite Schleife um die Fläche in Anzahl x zu kopieren und in das 2 Tabellenblatt einzufügen:
Beispiel: Spalte 4 = "5" und Spalte 9 = "2qm", d.h. in Tabellenblatt 2 soll 5x 2 qm stehen untereinander.
Dim g, i, lzeile1 As Range
lzeile1 = Sheets("Tabelle1").Cells(Sheets("Tabelle1").Rows.Count, 9).End(xlUp).Row
For Each g In Sheets("Tabelle1").Range(Sheets("Tabelle1").Cells(42, 9), Sheets("Tabelle1").Cells(lzeileMR, 9))
For i = 1 To Sheets("Tabelle1").Cells(Sheets("Tabelle1").Cells(g.Rows, 4)).Value
Sheets("Tabelle1").Cells(Sheets("Tabelle1").Cells(g.Rows, 9)).Copy
Sheets("Tabelle2").Cells(Sheets("Tabelle2").Cells(Rows.Count, "A").End(xlUp).Row + 1, "A").Insert
Next
Next g
Ich danke euch jetzt schon mal herzlich!
Gruß,
Sarah