Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1544to1548
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
Inhaltsverzeichnis

2 Schleifen Anzahl kopieren

2 Schleifen Anzahl kopieren
27.02.2017 10:53:53
sarah
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige