Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
1444to1448
1444to1448
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Zeilen kopieren und neue Zeile einfügen

Forumthread: VBA Zeilen kopieren und neue Zeile einfügen

VBA Zeilen kopieren und neue Zeile einfügen
10.09.2015 12:20:52
Dietz
Hallo zusammen,
ich würde gerne zwischen zwei Mappen Daten kopieren, d.h. aus einer in die andere. Die erste Zeile die kopiert wird soll in eine bestimmte Zeile kopiert werden, für alle anderen Zeilen die kopiert werden sollen, soll in der Zielmappe erst eine neue Zeile unterhalb eingefügt werden, wo rein kopiert werden soll.
Ich hoffe das war verständlich?
Das ganze wird als Schleife ablaufen. Bei jedem erhöhen der Schleife zB xcopy = xcopy + 1 soll aber eine neue Zeile eingefügt werden.
Gruß
Dietz

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Zeilen kopieren und neue Zeile einfügen
10.09.2015 13:24:13
UweD
Hallo
so?
Rückwärts, sonst musst du die eingefügten Zeilen immer noch mit berücksichtigen...

Sub Kopieren()
dim i As Integer
Sheets("Tabelle1").Rows(1).Copy Sheets("Tabelle2").Rows(4) 'fest in Zeile 4
For i = 10 To 2 Step -1
Sheets("Tabelle1").Rows(i).Copy
Sheets("Tabelle2").Rows(i).Insert Shift:=xlDown
Next
End Sub
Gruß UweD

Anzeige
AW: VBA Zeilen kopieren und neue Zeile einfügen
10.09.2015 14:26:01
Dietz
Hallo Uwe,
der Kopiervorgang soll nach bestimmten Bedingungen erfolgen. Mich interessiert zuerst ob ich innerhalb einer Schleife anstatt zu sagen xcopy = xcopy + 1, sprich nach erfolgreichem kopieren der einen Zeile geh mir eine Zeile weiter nach unten, auch definieren könnte, dass er mir erst eine neue leere Zeile einfügen soll bevor der Kopiervorgang fortgesetzt wird. So verstehe ich das, bin aber auch kein VBA Experte. Ist das so überhaupt sinnvoll wie ich mir das vorstelle?
Gruß
Dietz

Anzeige
AW: VBA Zeilen kopieren und neue Zeile einfügen
10.09.2015 14:52:23
UweD
Hallo
Ja, sicher kannst du Zeilen einfügen
Sub sdsdhgs()
Dim xcopy As Integer
xcopy = 1
Do Until xcopy = 10
ActiveSheet.Rows(xcopy).Insert
' hier kannst du kopieren, was du möchtest
xcopy = xcopy + 1
Loop
End Sub
Gruß UweD

AW: VBA Zeilen kopieren und neue Zeile einfügen
10.09.2015 15:21:31
Dietz
Hallo Uwe,
danke. Ich werde das mal ausprobieren ob das für mich so in der Form umsetzbar ist.
Gruß
Dietz

Anzeige
AW: Warum per Schleife?
10.09.2015 15:01:12
Gerd
Hallo D.!
Das ganze wird als Schleife ablaufen.
Das ist eine der langsameren Vorgehensweise beim Kopieren. Häufig geht die Aktion "am Stück".
Wie sind deine genauen Bedingungen?
Gruß Gerd

AW: Warum per Schleife?
10.09.2015 15:20:19
Dietz
Hallo G.!
in der Quellmappe soll geprüft werden ob ab Zeile 3 in der Spalte G der Wert größer 0 ist und ob in der Spalte AD "erfüllt" steht. Sind diese Bedingungen erfüllt sollen bestimmte Zellen aus der Quell- in die Zieldatei ab Zeile 10 kopiert werden. Die Quelldatei soll dann Zeile für Zeile abgearbeitet werden und bei Übereinstimmung in die Zeildatei kopiert werden bzw. die definierten Zellen. Ist eine Zeile rüber kopiert erfolgt dann mittels xcopy = xcopy +1 der Zeilensprung und dort werden dann weitere Werte eingetragen wenn Werte in der Quelldatei gefunden wurden. So verstehe ich das.
Es soll aber nicht nur eine Zeile nach unten gegangen werden, sondern es soll eine neue leere Zeile eingefügt werden wo dann die Werte rein sollen. Ich will damit vermeiden das ich mir andere Werte in der Zieldatei überschreibe. Die Zeilen sollen also dynamisch je nach Umfang der Werte in der Quelldatei erzeugt werden.
Gruß
Dietz

Anzeige
AW: Warum per Schleife?
10.09.2015 17:03:04
Gerd
sollen bestimmte Zellen aus der Quell- in die Zieldatei ab Zeile 10 kopiert werden
Hallo Dietz,
aus welchen Spalten sollen die Zellen kopiert werden?
Und in welche Spalten eingefügt werden?
Gruß Gerd

AW: Warum per Schleife?
10.09.2015 17:20:48
Dietz
Hallo Gerd,
kopiert soll aus den Spalten D,F,G,M,O,AE
und eingefügt in A,C,D,F,G,H
in dieser Reihenfolge, also D nach A, M nach F usw.
Gruß
Dietz
P.S.: Ich hab eine Alternative zusammengebastelt wo ich mir ausreichend Zeilen in der Zieldatei vorab einfüge damit nichts überschrieben wird. Nur dann müsste ich die überschüssigen Zeilen wieder löschen oder wie in diesem Makro leere Zeilen ausblenden. Aber das ist nur eine Notlösung. Lieber wäre mir die Zeilen dynamisch einzufügen. 
Sub AusblendenLeereZeilen()
Dim i As Long
Sheets("Ergebnisse").Activate
For i = 10 To 30
Range("A" & i).Select
If ActiveCell.Value = "" Then
ActiveCell.EntireRow.Hidden = True
Else
End If
Next i
End Sub

Anzeige
;

Forumthreads zu verwandten Themen

Problem mit Drag&Drop und kopieren (VBA)
Micha

Hallo liebe Spezialisten,
ich habe mal wieder ein Problem und hoffe auf Hilfe :-)
Hier im Forum habe ich den folgenden Code zum deaktivieren von „Drag&Drop“ bekommen.
Private Sub Workbook_Activate() 'Verhindert Drag&Drop (Teil-1) Application.CellDragAndDrop = False End Sub...
17.09.2008 10:34:00
Thread-ID: 1010266
2 Beiträge
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
Filtern und Kopieren - VBA
Wolfgang

Hallo,
gestern konnte ich von Daniel viele gute Tipps und Hinweise erhalten, um meine Frage zu klären. Mit dem folgenden Code möchte ich erreichen, dass gefilterte Daten in "Grunddaten" in die Tabelle "Altdaten" kopiert werden und diese Datensätze dann in "Grunddaten" gelöscht werden. Das k...
09.11.2008 10:21:00
Thread-ID: 1023032
7 Beiträge
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
Makro Zeile einfügen und Summe automatisch anpasse
Zoran

Hallo zusammen.
Kann mir jemand mit einem Makro weiterhelfen. Folgendes Problem/Idee habe ich:
Ich würde gern ein Makro haben, dass automatisch eine Zeile einfügt und die Summen (inkl. neuer Zeile) aktualisiert.
Hintergrund ist, dass wir einige User im Unternehmen haben, die nicht...
22.06.2009 08:45:34
Thread-ID: 1083366
2 Beiträge
Anzeige
VBA Zelle finden und einfügen
Einzel

Hallo,
ich hab mal wieder ein kleines VBA Problem
Ich habe in Tabelle 1 unter E3 bis E7 Werte eingetragen.
Nun möchte ich das sie mit einen Code ausgelesen werden und den jeweiliegen Tagen in Tabelle 2 (neben den Tag rechts) eingefügt wird. Und zwar nur der Wert nicht die Formel.
15.07.2009 09:50:12
Thread-ID: 1088685
4 Beiträge
Anzeige
Zeilen einfügen und kopieren
bug-i

Hallo, ich brauche eure Hilfe:
Folgende Beispietabelle:
Merkmal - Text
1 - Text1
3 - Text2
1 - Text3
1 - Text4
2 - Text5
1 - Text6
Ich möchte jetzt für jede Zeile, die ein Merkmal größer als 1 hat danach eine neue Zeile mit gleichem Inhalt einfügen.
Die T...
05.08.2009 10:11:39
Thread-ID: 1093668
2 Beiträge
EXCEL-VBA: Zeilen einfügen, wenn
Brinkmeyer

Hallo,
ich habe das Problem eines sehr großen Formulars. Ich möchte gern, dass Zeilen nur angezeigt werden, wenn eine bestimmte Zelle einen Inhalt hat. - So kann das Formular bei leeren Zellen kleiner gehalten werden...
Hat jemand eine Idee?
06.08.2009 19:27:26
Thread-ID: 1094141
2 Beiträge
Zeile für Summe einfügen m. VBA
Lorenz

Hallo VBA-Profis!
Leider wurde ich trotz Recherche nicht mehr fündig. Dieses "mein" Problem wurde in diesem Forum schon behandelt (finde es aber nicht mehr)!
Folgende Aufgabe (Bitte): In Spalte "A" stehen Belegnummern (od ähnliches), es soll nach Ende einer Produktgruppe eine Leezeile e...
07.08.2009 20:12:41
Thread-ID: 1094336
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
aus E:E kopieren und am Ende von D:D einfügen
D:D

Hallo,
Ich habe in meiner Adressliste in D:D Straßennamen stehen, und in E:E die Hausnummern. Ich möchte die Hausnummern aber direkt hinter den Straßennamen in die selbe Zelle einfügen.
Da es sehr viele Zeilen sind möchte ich es ungern manuell machen.
Wie würdet Ihr das machen?
19.11.2009 11:46:47
Thread-ID: 1118567
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zeilen kopieren und neue Zeile einfügen mit VBA

Schritt-für-Schritt-Anleitung

  1. Öffne die Visual Basic for Applications (VBA) Umgebung: Drücke ALT + F11 in Excel, um den VBA-Editor zu öffnen.
  2. Erstelle ein neues Modul: Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  3. Füge den VBA-Code ein: Kopiere den folgenden Code in das Modul:

    Sub ZeilenKopierenUndEinfügen()
   Dim i As Integer
   Dim xcopy As Integer
   xcopy = 10 'Startzeile in der Zieldatei

   ' Schleife über die Zeilen in der Quelldatei
   For i = 3 To 20 ' Beispiel: von Zeile 3 bis 20 in der Quelldatei
       If Sheets("Tabelle1").Cells(i, 7).Value > 0 And Sheets("Tabelle1").Cells(i, 30).Value = "erfüllt" Then
           ' Füge eine neue Zeile unterhalb ein
           Sheets("Tabelle2").Rows(xcopy).Insert Shift:=xlDown
           ' Kopiere die gewünschten Zellen
           Sheets("Tabelle1").Range("D" & i & ", F" & i & ", G" & i & ", M" & i & ", O" & i & ", AE" & i).Copy
           Sheets("Tabelle2").Cells(xcopy, 1).PasteSpecial Paste:=xlPasteValues
           xcopy = xcopy + 1 'Gehe zur nächsten Zeile
       End If
   Next i
   Application.CutCopyMode = False ' Kopiermodus deaktivieren
End Sub
  4. Passe den Code an: Stelle sicher, dass die Tabellennamen und Zellreferenzen deinen Anforderungen entsprechen.
  5. Führe das Makro aus: Schließe den VBA-Editor und gehe zurück zu Excel. Drücke ALT + F8, wähle ZeilenKopierenUndEinfügen und klicke auf Ausführen.

Häufige Fehler und Lösungen

  • Fehler: "Index außerhalb des Bereichs": Stelle sicher, dass die Blattnamen korrekt sind (z.B. "Tabelle1" und "Tabelle2").
  • Fehler: "Typenübereinstimmung": Überprüfe, ob die zu kopierenden Zellen tatsächlich die erwarteten Datentypen enthalten.
  • Kein Ergebnis: Vergewissere dich, dass die Bedingungen für das Kopieren (z.B. Werte in Spalte G und AD) tatsächlich erfüllt sind.

Alternative Methoden

  1. Verwendung von Excel-Formeln: Du kannst auch Excel-Formeln verwenden, um Daten zu kopieren, ohne VBA zu nutzen. Beispielsweise könntest du die Funktion WENN zusammen mit VERWEIS verwenden, um Werte zu extrahieren.
  2. Excel Power Query: Power Query ermöglicht es, Daten aus verschiedenen Quellen zusammenzuführen und automatisch zu transformieren, ohne VBA zu verwenden.

Praktische Beispiele

Hier ist ein einfaches Beispiel, um eine Zeile unterhalb einzufügen und Daten zu kopieren:

Sub BeispielZeilenEinfügen()
    Sheets("Tabelle2").Rows(2).Insert Shift:=xlDown 'Füge eine neue Zeile in Zeile 2 ein
    Sheets("Tabelle1").Rows(1).Copy Sheets("Tabelle2").Rows(2) 'Kopiere die erste Zeile von Tabelle1 nach Tabelle2
End Sub

Tipps für Profis

  • Verwende Application.ScreenUpdating = False, um die Bildschirmaktualisierung während des Makros zu deaktivieren, was die Ausführung beschleunigt.

  • Füge Fehlerbehandlungsroutinen hinzu, um das Makro robuster zu gestalten:

    On Error Resume Next
' Dein Code hier
On Error GoTo 0

  • Dokumentiere Deinen Code mit Kommentaren, damit andere (oder Du selbst in der Zukunft) den Code besser verstehen.

FAQ: Häufige Fragen

1. Wie kann ich den Code anpassen, um mehr als eine Zeile zu kopieren?
Du kannst die Range-Funktion erweitern, um mehrere Zeilen von der Quelldatei zu kopieren.

2. Ist dieser Code mit allen Excel-Versionen kompatibel?
Ja, der Code sollte mit den meisten modernen Excel-Versionen funktionieren, solange VBA unterstützt wird. Achte jedoch darauf, dass die Funktionen in älteren Versionen möglicherweise leicht variieren.

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