Ich würde gerne ein paar Zeilen jeweils untereinander einfügen, und zwar so viele Male wie ich verschiedene Währungen haben.
Die Währungen habe ich auf dem Blatt tbl_makro aufgeführt und diese werden in einer Schlaufe verarbeitet.
Nun weiss ich aber nicht wie ich es machen soll, dass der kopierte Bereich (a8:am16) immer jeweils unten angefügt resp. kopiert wird, allenfalls mit einem Abstand von 2 Zeilen.
Hab schon mal begonnen, aber eben das mit dem unten anfügen funktioniert nicht.
Wie würde das gehen?
With tbl_makro
letzteZeile2 = .Cells(Rows.Count, 12).End(xlUp).Row
letzteZeile1 = tbl_upload_test.Cells.SpecialCells(xlCellTypeLastCell).Row
'So viele Mal den Bereich einfügen, wie es Anzahl Währungen auf dem Blatt Makro gibt
For Each ii In .Range("l3:l" & letzteZeile2)
tbl_upload_test.Range("a8:am16").Copy
tbl_upload_test.Range("a20").PasteSpecial xlPasteAll
'..hier müsste man jetzt wohl etwas angeben, damit es dann jeweils unterhalb eingefügt wird?
Next ii
End With
Vielen Dank für euer Hilfe
Patricia