Zellen per Makro kopieren
24.11.2016 23:56:22
Alexander
ich habe hier im Forum den folgenden Skript gefunden und ausprobiert, da ich einen Skript suche, in dem mir die vorherigen 26 Zeilen unterhalb meiner markierten Zelle eingefügt werden.
In diesem Skript wird aber immer nur die erste vorherige Zeile kopiert und meine restlichen 25 Zeilen nicht.
Hier jetzt mal das gefundene Skript:
Sub Zeilen_einfügen()
Application.ScreenUpdating = False
Selection.EntireRow.Insert
' ACHTUNG: Das With darf nicht 1 drüber, da sich durch das Insert die Selection ändert
With Selection.EntireRow
.Offset(-1, 0).Resize(1).Copy
.PasteSpecial Paste:=xlPasteFormulas
End With
Application.ScreenUpdating = True
End Sub
Für eine Antwort würde ich euch danken.
Gruß
Alexander