Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1556to1560
1556to1560
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Kopierte Zeilen oberhalb einer Zeile einfügen

Forumthread: Kopierte Zeilen oberhalb einer Zeile einfügen

Kopierte Zeilen oberhalb einer Zeile einfügen
17.05.2017 07:23:44
Franky
Hallo zusammen,
ich habe folgendes Problem, und zwar möchte ich am Anfang zwei Zeilen mitenander vergleichen. Es soll geprüft werden ob das Datum identisch ist. Wenn nicht, dann möchte ich den Gesamten Bereich eines Tabellenblatts(4) kopieren und in einem anderen Tabellenblatt(6) ganz oben einfügen.
Die vorhandenen Daten sollen dann nach unten rücken.
Hier ist mein bisheriger Code, allerdings wir hier einfach alles überschrieben. 
Sub Monatsliste_erweitern()
Dim LZ As Integer
LZ = Sheets(4).Cells(Rows.Count, 1).End(xlUp).Row
If Sheets(4).Cells(2, 1)  Sheets(6).Cells(2, 1) Then
'Rows(LZ - 1).Insert
Sheets(4).Range(Cells(2, 1), Cells(LZ, 8)).Copy _
Destination:=Sheets(6).Cells(2, 1)
End If
End Sub
Vielen dank schonmal.
Gruß,
Franky
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kopierte Zeilen oberhalb einer Zeile einfügen
17.05.2017 08:38:22
Werner
Hallo Franky,
Sub Monatsliste_erweitern()
Dim LZ As Long
LZ = Sheets(4).Cells(Rows.Count, 1).End(xlUp).Row
If Sheets(4).Cells(2, 1)  Sheets(6).Cells(2, 1) Then
'Rows(LZ - 1).Insert
With Sheets(4)
.Range(.Cells(2, 1), .Cells(LZ, 8)).Copy
Sheets(6).Cells(2, 1).Insert
Application.CutCopyMode = False
End With
End If
End Sub
Gruß Werner
Anzeige
AW: Kopierte Zeilen oberhalb einer Zeile einfügen
17.05.2017 08:53:20
Franky
Hallo Werner,
danke für die schnelle Hilfe.
Das mit dem Kopieren und einfügen klappt prima, allerdings kopiert es mir die Daten zwar, aber es verschiebt die vorhandenen Daten nach links.
Die Daten vorhandenen Daten müssten aber nach unten verschoben werden.
Wie regel ich das?
Gruß,
Franky
Anzeige
AW: Kopierte Zeilen oberhalb einer Zeile einfügen
17.05.2017 09:35:27
Werner
Hallo Franky,
meinst du so?
Sub Monatsliste_erweitern()
Dim LZ As Long
LZ = Sheets(4).Cells(Rows.Count, 1).End(xlUp).Row
If Sheets(4).Cells(2, 1)  Sheets(6).Cells(2, 1) Then
With Sheets(4)
Sheets(6).Rows(2).Resize(LZ - 1).Insert
.Range(.Cells(2, 1), .Cells(LZ, 8)).Copy Sheets(6).Cells(2, 1)
End With
End If
End Sub
Gruß Werner
Anzeige
AW: Kopierte Zeilen oberhalb einer Zeile einfügen
17.05.2017 09:42:06
Franky
Hallo Werner,
Jaa, vielen Dank!
So ist es perfekt.
Gruß,
Franky
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
17.05.2017 13:40:21
Werner

Forumthreads zu verwandten Themen

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
Anzeige
VBA - Formatierte Zeilen einfügen
Boris

Hallo
Ich möchte 3 formatierte Zeilen per VBA in die aktive Arbeitsmappe einfügen.
Dazu brauche ich ein VBA-Makro (um es mittels Tastenkombination aufzurufen).
Die Formatierung umfasst Schriftschnitt, Zeilenhöhe und Formeln.
Geht das prinzipiell mit VBA?
Vielen Dank!
Bo...
07.04.2011 15:54:10
Thread-ID: 1209494
6 Beiträge
VBA in leere Zeile einfügen
Stefan

Tach erstmal
Ich habe ein code welcher mir Dir Zeilen aus einer Tabelle in die unterste leere Zeile eines weiteren Tabellenblattes schreibt. (gefällt soweit ganz gut)
Kann man den Code abändern das er die nächst leere Zeile verwendet ?
d.h.
-Doppelklick
-Zeile Kopieren
...
07.04.2012 14:05:38
Thread-ID: 1258271
17 Beiträge
mit VBA einen Zeilenumbruch einfügen
WalterK

Hallo,
Per Schaltfläche möchte ich ein Makro starten, das in jeder beschriebenen Zelle am Ende des Zellinhaltes zusätzlich noch einen Zeilenumbruch einfügt, außer es ist am Ende des Zellinhaltes bereits einer vorhanden.
Es soll im Bereich D5:D&bis zur letzten belegten Zelle funktio...
26.06.2012 10:42:03
Thread-ID: 1268821
3 Beiträge
VBA kopieren und zeilen einfügen
dirk0011

Hallo zusammen,
habe ein ganz kleines Problem. Mit dem Button Werte Kopieren in dem Reiter "zusammenfassung" kopiert mir das Script wunderbar jeden neuen Eintrag von den dahinter liegenden Reitern. Jetzt kommt die Frage dazu.
Ich möchte gerne eigentlich immer die in grau markierten Über...
17.12.2012 14:53:15
Thread-ID: 1291240
18 Beiträge
Anzeige
VBA Wert ermitteln und Zeile einfügen
Sabine

Hallo liebe Experten,
Meine Tabelle geht von A5 bis Xvariabel.
Ich habe in Spalte A 6stellige Kostenstellen und in den Spalten B - X andere Zahlenwerte. Nun möchte ich mittels VBA eine Zwischensummenzeile einfügen, sobald sich die erste Ziffer ändert.
Ausgang:
100000
100002<...
19.12.2013 13:36:04
Thread-ID: 1343117
3 Beiträge
VBA Zeile einfügen wenn Zelle beschrieben
Marie

Hallo,
Ich habe hier eine Liste in Excel (also umrandete Kästchen, keine Tabelle), die immer unterschiedliche lang sein soll, je nach dem wieviele Produkte grade benötigt werden.
Ich hätte es gerne, dass wenn die erste Zelle der Liste (A21) beschrieben ist, dass darunter eine neue Zeile...
07.02.2014 11:30:40
Thread-ID: 1348474
2 Beiträge
VBA Wenn nicht in Zeile steht, dann Zeile einfügen
Leo

Hi,
ich hoffe ihr könnt mir hier ein wenig helfen.
Ich habe folgendes Problem:
Ich habe eine Tabelle mit Unterschiedlichen Namen in Spalte A
In einem zweiten Excel-Dokument habe ich ebenfalls eine Liste mit unterschiedlichen Namen, von denen sich einige mit denen aus A doppeln a...
05.05.2014 18:37:40
Thread-ID: 1359839
2 Beiträge
VBA, Fehlermeldung bei Zeile kopieren und einfügen
André

Hallo,
ich möchte über der aktuellen Cursorposition eine Zeile einfügen und die Zeile 4 dort hinein kopieren. Die Zeile 4 ist ausgeblendet.
...
Worksheets("LH").Rows(ActiveCell.Row).Insert
Worksheets("LH").Rows(4).Copy Destination:=Worksheets("LH").Rows(ActiveCell.Row)
Works...
29.06.2014 17:45:38
Thread-ID: 1368013
4 Beiträge
Anzeige
VBA - kopieren - in freie zeile einfügen
Alex. Fuchs
Hallo Leute!
Habe eine riesen Tabelle, von der ich, wenn ich einen Haken setze, ausgewählte Zellen in eine andere Tabelle übertragen will.
Ich habe den VBA Code zwar soweit, dass er eine Zeile übernimmt - und das wars schon. Leider habe ich nur seeehr begrenzte VBA-Kenntnisse.
Eigentl...
04.07.2014 13:17:18
Thread-ID: 1368947
12 Beiträge
Kopierte Zellen einfügen / Summe wird nicht aktual
Marcus

Moin,
ich habe Excel 2013 in Betrieb und stehe vor einem kleinen Problem. Vielleicht kennt das jemand und weiß Rat?
Ich schildere das kurz:
A1 = Überschrift
A2-A5 = Werte
A6 = Summe A2-A5
Wenn ich jetzt in A6 "kopierte Zellen einfüge" mit einem Wert, wird die Summe in A6...
30.07.2014 14:48:46
Thread-ID: 1373172
3 Beiträge
VBA Tab1 Zeilen kopieren und in Tab2 einfügen
mehmet
Hallo Forum,
ich komme einfach nicht weiter.
Es sollen die Inhalte (Value) von Tab1 N110:U130 in Tab2 Spalte AA..:AN.. (Zeilen in gelb) eingefügt werden.
Es soll also in Tab1 Zelle N110 und Zelle O110 geguckt werden ob Zellen belegt sind.
Wenn beide Zellen belegt, dann soll Tab1 Zei...
24.10.2014 21:12:24
Thread-ID: 1388524
14 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zeilen in Excel oberhalb einer bestehenden Zeile einfügen

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und lade das Arbeitsblatt, in dem du die Zeilen einfügen möchtest.
  2. Wähle das Zielblatt aus (z.B. Blatt 6), in das du die kopierten Zeilen einfügen möchtest.
  3. Optimiere deinen VBA-Code wie folgt, um sicherzustellen, dass die Daten korrekt eingefügt werden: 
    Sub Monatsliste_erweitern()
   Dim LZ As Long
   LZ = Sheets(4).Cells(Rows.Count, 1).End(xlUp).Row
   If Sheets(4).Cells(2, 1) <> Sheets(6).Cells(2, 1) Then
       With Sheets(4)
           Sheets(6).Rows(2).Resize(LZ - 1).Insert
           .Range(.Cells(2, 1), .Cells(LZ, 8)).Copy Sheets(6).Cells(2, 1)
       End With
   End If
End Sub
  4. Führe den Code aus, um die kopierten Zellen in das Zielblatt einzufügen, ohne die vorhandenen Daten zu überschreiben.

Häufige Fehler und Lösungen

  • Fehler: Daten werden nach links verschoben.

    • Lösung: Stelle sicher, dass du Sheets(6).Rows(2).Resize(LZ - 1).Insert verwendest, um die vorhandenen Daten nach unten zu verschieben.

  • Fehler: Kopierte Zellen werden nicht korrekt eingefügt.

    • Lösung: Überprüfe, ob die Range-Referenzen im VBA-Code korrekt sind und dass du den richtigen Zielbereich ausgewählt hast.

Alternative Methoden

  • Excel-Shortcut zum Einfügen von Zellen:

    • Du kannst die Funktion "Zellen einfügen" mit der Tastenkombination Strg + + verwenden, um schnell Zeilen oder Zellen einzufügen.

  • Excel kopierte Zellen einfügen ohne überschreiben:

    • Nutze die rechte Maustaste und wähle „Einfügen“ > „Zellen einfügen“, um die bestehenden Daten nach unten zu verschieben.

Praktische Beispiele

  • Beispiel 1: Du hast 10 Zeilen in Blatt 4, die du in Blatt 6 einfügen möchtest. Stelle sicher, dass die Zeilen in Blatt 6 nach dem Ausführen des Codes zwei Zeilen nach unten verschoben werden.

  • Beispiel 2: Wenn du die Excel kopierte Zellen einfügen-Funktion nutzt, kannst du mehrere Zeilen gleichzeitig kopieren und einfügen, ohne dass Daten verloren gehen.

Tipps für Profis

  • Verwende VBA für komplexe Aufgaben: Wenn du oft Zellen einfügen musst, erstelle ein Makro, das den Vorgang automatisiert.

  • Nutze Tastenkombinationen: Übe die verschiedenen Excel Shortcuts für das Einfügen von Zellen und Zeilen, um effizienter zu arbeiten.

  • Speichere regelmäßig: Achte darauf, deine Arbeit häufig zu speichern, um Datenverlust zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich mehrere Zeilen kopieren und einfügen, ohne zu überschreiben? Du kannst den Befehl Sheets(6).Rows(2).Resize(LZ - 1).Insert in deinem VBA-Code verwenden, um sicherzustellen, dass die vorhandenen Daten nach unten verschoben werden.

2. Gibt es einen Shortcut für das Einfügen von Zeilen? Ja, der Shortcut Strg + + öffnet das Dialogfeld zum Einfügen von Zellen, wodurch du die Option hast, Zeilen einfügen zu wählen.

3. Wie kann ich VBA nutzen, um Zeilen oberhalb einzufügen? Verwende den Insert-Befehl in deinem VBA-Code, um eine neue Zeile oberhalb der gewünschten Zelle einzufügen, bevor du die Daten kopierst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige