Tabellenblatt = "0" 'Blattname der zu kopierenden Tabelle
start_kopierende_zeile = 2 'Startzeile
ende_kopierende_zeile = 23 'Endzeile
einfüge_bereich = ActiveCell.Row
zähler = 1
Do Until start_kopierende_zeile > ende_kopierende_zeile
Rows(einfüge_bereich).Insert
Rows(einfüge_bereich) = Sheets(Tabellenblatt).Rows(start_kopierende_zeile).Value
einfüge_bereich = ActiveCell.Row + zähler
zähler = zähler + 1
start_kopierende_zeile = start_kopierende_zeile + 1
Loop
End Sub
Dieses Makro kopiert leder nicht die Formeln mit, wie bei copy/paste
Kopierbereich ist vorgegeben - Einfügebereich jedoch beliebig
Es soll alles kopiert werden
Danke danke danke