Live-Forum - Die aktuellen Beiträge
Datum
Titel
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
13.10.2025 15:10:17
Überlappende Zeiträume über mehrere Tabellen mit leeren Zell
13.10.2025 13:34:56
PQ Abfrage mit verschiedenen Werten ausführen + Protokoll
13.10.2025 12:24:02
Zählen in Abhängigkeit einer Jahreszahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1044to1048
1044to1048
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeile kopieren und eine Zeile drunter einfügen

Forumthread: Zeile kopieren und eine Zeile drunter einfügen

Zeile kopieren und eine Zeile drunter einfügen
03.02.2009 13:01:00
eliewsam
Hallo Zusammen,
ich würde gerne, ausgehend von der aktuellen Cursor-Position, die gesamte Zeile kopieren und eine Zeile drunter wieder einfügen. Danach sollte der Inhalt der ersten Zelle (der neu eingefügten Zeile) gelöscht werden. Wenn das Makro beendet, steht der Cursur dann in der Zelle, deren Inhalt gelöscht wurde.
Ich würde mich sehr freuen, wenn mir jemand weiterhelfen könnte. Vielen Dank!
Gruß Elie
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeile kopieren und eine Zeile drunter einfügen
03.02.2009 13:11:57
Josef
Hallo Elie,
probier mal.
Sub kopiereZeile()
    With ActiveCell
        Rows(.Row + 1).Insert
        .EntireRow.Copy Rows(.Row + 1)
        Cells(.Row + 1, 1).ClearContents
        Cells(.Row + 1, 1).Select
    End With
End Sub
Gruß Sepp

Anzeige
AW: Zeile kopieren und eine Zeile drunter einfügen
03.02.2009 13:14:59
Worti
Hallo Elie,
so:
Sub Kopieren()
    Rows(ActiveCell.Row + 1).Insert 'Nur, wenn du eine neue Zeile einfügen willst, sonst weg lassen
    ActiveCell.EntireRow.Copy Destination:=Range("A" & ActiveCell.Row + 1)
    Range("A" & ActiveCell.Row + 1).ClearContents 'oder Clear, wenn auch Formate etc gelöscht werden sollen
    Range("A" & ActiveCell.Row + 1).Activate
End Sub
Gruß Worti
AW: Zeile kopieren und eine Zeile drunter einfügen
D.Saster

Hallo,

Sub ZeileKopieren()
With ActiveCell
.EntireRow.Copy
.Offset(1, 0).EntireRow.Insert
Cells(.Offset(1).Row, 1).ClearContents
Cells(.Offset(1).Row, 1).Select
End With
End Sub


Gruß
Dierk

AW: Zeile kopieren und eine Zeile drunter einfügen
eliewsam

Ihr seid super! Vielen Dank für die Unterstützung!
Anzeige
AW: Zeile kopieren und eine Zeile drunter einfügen
03.02.2009 13:18:00
D.Saster
Hallo,

Sub ZeileKopieren()
With ActiveCell
.EntireRow.Copy
.Offset(1, 0).EntireRow.Insert
Cells(.Offset(1).Row, 1).ClearContents
Cells(.Offset(1).Row, 1).Select
End With
End Sub


Gruß
Dierk

AW: Zeile kopieren und eine Zeile drunter einfügen
03.02.2009 13:51:22
eliewsam
Ihr seid super! Vielen Dank für die Unterstützung!
Anzeige
;

Forumthreads zu verwandten Themen

VBA Zeilen kopieren bis...
Silvi

Hallo,
kann mir bitte mal jemand bei folgendem Makro helfen:
'Rows("2:2").Select
Selection.Copy
Range("A3").Activate
Do Until ActiveCell.Value = ""
ActiveCell.Offset(1, 0).Activate
Loop
ActiveSheet.Paste
Selection.Copy
Selection.PasteSpecial Paste:=xlValu...
13.10.2008 13:13:04
Thread-ID: 1016022
13 Beiträge
Anzeige
Wert bestimmt Anzahl der zu kopierenden Zeilen VBA
Maja

Hallo,
ich Suche eine Formel mit der ich folgenden Code modifizieren kann:
Sub Uebergabe() Dim i As Integer Dim k As Integer Dim iRowT As Integer Const zz = 1 flagg = False Sheets("Vorlage_Angebot_Sicht").Activate Sheets("Vorlage_Angebot_Sicht").Range("D2").Select i = 0 iRowT = 10 Do...
18.12.2008 13:24:00
Thread-ID: 1033843
5 Beiträge
Mit VBA Zeilen in neue Register kopieren
Andreas

Ein Tabellenblatt soll nach einem bestimmten Kriterium durchsucht werden. Immer wenn das Suchkriterium gefunden wird, soll die Zeile kopiert und in ein neues Tabellenblatt eingefügt werden. Dies soll solange geschehen bis alle Zeilen durchsucht worden sind.
Im Detail soll dies wie folgt fun...
08.06.2009 12:29:49
Thread-ID: 1079883
3 Beiträge
Zeilen variabel oft kopieren und einfügen
Bernd

Hallo Forum,
ich tüftle seit einiger Zeit vergebens an folgender Aufgabe und bitte um eure Hilfe:
Ich habe in einer Mappe zwei Sheets: Tab1 und Tab2
In Tab1 importiere ich Daten mit Hilfe des Textkonvertierungsassistenten aus einer txt-Datei.
Die txt-Datei kann unterschiedlich v...
03.09.2009 17:41:35
Thread-ID: 1100389
9 Beiträge
Anzeige
Makro kopieren und einfügen fehlerhaft
Chris

Hallo und ein frohes Neues zusammen!
Letzte Woche habe ich folgenden Beitrag geschrieben (https://www.herber.de/forum/archiv/1124to1128/t1126236.htm) und von Jürgen eine schon recht gute Antwort bekommen. Er hat mir folgendes File mit einem Makro bereitgestellt, das glaube ich relativ nahe...
04.01.2010 09:49:22
Thread-ID: 1126968
12 Beiträge
VBA: Vergleich und Texteil suchen - Zeile kopieren
Joe

Hallo liebe Experten,
ich bräuchte mal wieder etwas Hilfe von euch.
Folgende Ausgangssituation:
Es gibt eine Adressliste. In dieser Adressliste stehen in Spalte H Nummern (es können pro Adresse mehrere Nummer in einer Zelle vorkommen - ich weiß, dass ist nicht optimal, es geht leide...
08.04.2010 18:18:00
Thread-ID: 1150703
5 Beiträge
Zeilenwerte auslesen und ganze Zeilen kopieren
Kristopher

Hallo an alle,
leider bin ich ein absoluter VBA-Neuling und relativ schnell mit einem – für mich – großen „Programm“ betraut worden.
Es gibt zwei Dokumente, im ersten Dokument (A) soll jeweils der Wert der Spalte C geprüft werden. Wenn der Wert = 1 ist, dann soll er in der gleichen Zeil...
21.04.2010 12:11:44
Thread-ID: 1152936
3 Beiträge
Makro/VBA Sheets kopieren und einfügen
Thomas

Hallo liebe EXCEL-Spezialisten,
ich würde gerne wissen, ob ihr mir bei folgendem Anliegen weiterhelfen könntet:
Ich habe eine EXCEL-Datei erstellt, in der Schaltflächen hinterlegt sind, die spezielle Aufgaben erfüllen, u.a. Dateien öffnen, dann fragen, wo man sie speichern möchte, um so...
02.02.2011 14:19:48
Thread-ID: 1198561
3 Beiträge
VBA Diverse Spalten einer Zeile kopieren
gemanna

Hallo Excel Freunde,
suche schon seit tagen nach der Lösung für mein Problem, komme aber nicht weiter.
Ich habe mehrere Tabelen mit verschidenen Artikeln und Preisen. Ich habe die Artikeln in 4 verschidene Gruppen unterteilt (TT, AT, PP, IT). Für die 4 Gruppen müssen 4 neue Tabelenblät...
18.04.2011 06:49:59
Thread-ID: 1210776
3 Beiträge
Anzeige
mittels VBA Zeilen kopieren
Klaus

Hello,
ich bekomme folgende Datei und möchte die ändern
https://www.herber.de/bbs/user/76674.xls
und zwar folgender Maßen: Wenn in der Spalte C "-" ist, dann die Zeile entsprechend oft kopieren (also bei 1-3 2x kopieren, bei 3-6 3x kopieren) und den Wert auch gleich ausbessern, das...
19.09.2011 22:00:26
Thread-ID: 1230583
3 Beiträge
Zeilen individuelle Kopieren und einfügen
Martin

Hallo zusammen,
ich habe folgende - eigentlich recht einfaches - Problem, das ich aber nicht lösen kann.
Ich habe eine Excel-Tabelle die wie folgt aussieht:
aaa 5
bbb 6
ccc 2
Die letzte zeile zeigt an, wie oft die Zeile benötigt wird. Ausgegeben werden soll nach...
22.10.2011 12:08:19
Thread-ID: 1234979
8 Beiträge
Makro zum Kopieren/Löschen von Zeilen und Einfügen
Zeilen

Guten Morgen,
ich versuche gerade eine Funktion zu realisieren, die Zeilen aus Tabellenblatt A
dann in das Tabellenblatt ARCHIV verschiebt, wenn in der Spalte J ein x gesetzt
wird.
Folgende Probleme/Fragen habe ich in diesem Zusammenhang:
1. Wie kann ich es realisieren, dass...
06.01.2012 08:56:49
Thread-ID: 1244827
10 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Zeile kopieren und darunter einfügen in Excel

Schritt-für-Schritt-Anleitung

Um eine gesamte Zeile in Excel zu kopieren und eine Zeile darunter einzufügen, kannst du ein VBA-Makro verwenden. Folge diesen Schritten:

  1. Öffne Excel und drücke Alt + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.

  3. Kopiere den folgenden Code in das Modul:

    Sub ZeileKopieren()
   With ActiveCell
       .EntireRow.Copy
       .Offset(1, 0).EntireRow.Insert
       Cells(.Offset(1).Row, 1).ClearContents
       Cells(.Offset(1).Row, 1).Select
   End With
End Sub

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Platziere den Cursor in der Zeile, die du kopieren möchtest.

  6. Drücke F5 oder wähle das Makro ZeileKopieren aus, um die Zeile zu kopieren und darunter einzufügen.

Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 1004: Methode 'Insert' des Objekts 'Rows' fehlgeschlagen."

    • Lösung: Stelle sicher, dass du das Makro in einer aktiven Zelle ausführst, die sich nicht in der letzten Zeile des Arbeitsblatts befindet.

  • Fehler: Die kopierte Zeile wird nicht korrekt eingefügt.

    • Lösung: Überprüfe, ob der Cursor an der richtigen Stelle platziert ist, bevor du das Makro ausführst.

Alternative Methoden

Falls du kein VBA verwenden möchtest, kannst du auch die folgenden Methoden ausprobieren:

  1. Manuelles Kopieren und Einfügen:

    • Wähle die gesamte Zeile aus, drücke Strg + C, dann Rechtsklick und wähle Einfügen. Danach lösche den Inhalt der ersten Zelle der neuen Zeile.

  2. Tastenkombination:

    • Du kannst die Zeile kopieren mit Strg + C, eine Zeile darunter mit Strg + + einfügen und anschließend den Inhalt der ersten Zelle löschen.

Praktische Beispiele

Hier sind zwei praktische Beispiele für den Einsatz des Makros:

  • Beispiel 1: Du hast eine Liste von Verkäufen in Zeile 3 und möchtest diese in Zeile 4 duplizieren, um neue Daten hinzuzufügen. Platziere den Cursor in einer Zelle der Zeile 3 und führe das Makro aus.

  • Beispiel 2: Du arbeitest an einem Bericht und möchtest eine gesamte Zeile mit Formeln und Daten in eine neue Zeile kopieren. Mit dem Makro kannst du dies schnell erledigen und anschließend die ersten Zellen der neuen Zeile leeren.

Tipps für Profis

  • Verwendung von Schleifen: Wenn du mehrere Zeilen kopieren möchtest, kannst du Schleifen in deinem Makro verwenden, um die Vorgänge zu automatisieren.

  • Fehlerbehandlung: Implementiere Fehlerbehandlungsroutinen, um das Makro robuster zu machen.

  • Benutzerdefinierte Tastenkombination: Weise deinem Makro eine Tastenkombination zu, um den Prozess zu beschleunigen.

FAQ: Häufige Fragen

1. Wie kann ich das Makro schneller ausführen? Du kannst eine Tastenkombination zuweisen, indem du im VBA-Editor unter Extras > Makros > Makro zuweisen wählst.

2. Funktioniert das Makro in allen Excel-Versionen? Ja, das Makro sollte in den meisten modernen Excel-Versionen funktionieren, die VBA unterstützen. Achte darauf, dass Makros in deinen Excel-Einstellungen aktiviert sind.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige