Sub CopyTest()
Dim i As Integer
Rows("7:8").Copy
For i = 14 To 2800 Step 7
Rows(i).Insert
Next i
End Sub
Sub CopyTest()
Dim i As Integer
For i = 14 To 28 Step 7
Rows("7:8").Copy
Rows(i).Insert
Next i
End Sub
Um zwei Zeilen in Excel zu kopieren und mehrfach einzufügen, kannst du die folgenden Schritte befolgen. Diese Anleitung geht davon aus, dass du mit VBA (Visual Basic for Applications) arbeitest.
Öffne den VBA-Editor: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Neues Modul hinzufügen: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)", wähle Einfügen > Modul.
Code einfügen: Kopiere den folgenden Code in das Modul:
Sub CopyTest()
Dim i As Integer
Rows("7:8").Copy
For i = 14 To 2800 Step 7 ' Hier kannst du die Schrittweite anpassen
Rows(i).Insert
Next i
End SubCode ausführen: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle CopyTest und klicke auf Ausführen.
Dieser Code kopiert die Zeilen 7 und 8 und fügt sie alle 7 Zeilen bis zur Zeile 2800 ein. Du kannst die Zeilennummern und die Schrittweite nach Bedarf anpassen.
Fehler: "Laufzeitfehler 1004 - Die Methode 'Insert' für das Objekt 'Rows' ist fehlgeschlagen."
Fehler: Das Makro funktioniert nicht, wenn ich die Zeilenanzahl ändere.
Falls du keinen VBA-Code verwenden möchtest, kannst du auch die Standardmethoden in Excel nutzen:
STRG + C, gehe zur Zielzeile und drücke STRG + V. STRG gedrückt und ziehe die markierten Zellen nach unten, um sie mehrfach einzufügen.Diese Methoden sind einfacher, wenn du nur wenige Kopiervorgänge durchführen musst.
Beispiel 1: Du hast die Zeilen 5 und 6, die du kopieren und alle 10 Zeilen bis zur Zeile 500 einfügen möchtest. Ändere den Code zu:
Sub CopyTest()
Dim i As Integer
Rows("5:6").Copy
For i = 10 To 500 Step 10
Rows(i).Insert
Next i
End SubBeispiel 2: Um die Zeilen 1 und 2 zu kopieren und jede Zeile zu duplizieren, kannst du den Code so anpassen, dass Step 1 verwendet wird.
Verwende die Application.ScreenUpdating = False und Application.ScreenUpdating = True Befehle, um das Flackern des Bildschirms während der Ausführung des Makros zu reduzieren.
Application.ScreenUpdating = False
' Dein Code hier
Application.ScreenUpdating = TrueTeste deinen Code immer zuerst mit einer kleinen Anzahl von Zeilen, um sicherzustellen, dass er korrekt funktioniert, bevor du ihn auf große Datenmengen anwendest.
1. Kann ich den Code für andere Zeilen verwenden? Ja, du kannst die Zeilen im Code einfach anpassen, um andere Zeilen zu kopieren.
2. Was passiert, wenn ich versuche, in eine bereits gefüllte Zeile einzufügen? Der Code wird einen Fehler auslösen. Stelle sicher, dass die Zielzeilen leer sind, bevor du das Makro ausführst.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen