Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.10.2025 15:55:14
wenn zwei Werte aus Liste übereinstimmen, dann wahr
14.10.2025 14:57:29
Wenn Datum in Ferienzeit dann Name angeben
14.10.2025 09:39:44
VBA - Excel speichern und schließen (Laufzeitfehler 91)
13.10.2025 19:31:31
VBA Formel mit Bezug auf Überschrift anstatt Spalte
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
468to472
468to472
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen per Makro kopieren und einfügen

Forumthread: Zeilen per Makro kopieren und einfügen

Zeilen per Makro kopieren und einfügen
18.08.2004 07:44:39
Frederic
Hallo Leute,
ich möchte gerne folgendes bewerkstelligen:
Ich habe eine Tabelle im Bereich von A1:AN600
In dieser Tabelle sind ein Haufen Formeln versteckt.
Nun möchte ich, anstatt den manuellen Weg zu wählen:
z.B. Zeile A12:A13 markieren, kopieren, Kopierte Zellen einfügen, damit auch die Formeln kopiert werden und die Teilsummen erhalten bleiben.
Ich möchte das über ein Makro steuern, d.h. ich habe eine Schaltfläche, wenn ich jetzt die Zeilen A12:A13 markiere und auf die Schaltfläche klicke, soll er o.g. Aktion ausführen.
Das Problem ist, dass ich zwar das Makro geschrieben habe, allerdings immer nur auf 2 bestimmte Zeilen fixiert. Er soll aber immer bei den Zeilen, die markiert sind, dieses ausführen.
Anbei das Makro:

Sub test_einfügen()
Rows("74:75").Select
Selection.Copy
Selection.Insert Shift:=xlDown
Application.CutCopyMode = False
Range("A74").Select
End Sub

Kann jemand helfen?
Gruß.
Frederic Anders
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen per Makro kopieren und einfügen
Jörg
Hi Frederic,
wenn Du die zu kopierenden Zeilen vor Ausführen des Makros schon markiert hast, lasse einfach die Zeile
Rows("74:75").Select
weg. Dann sollte es passen. Funktioniert allerdings nur bei angrenzenden Zeilen, die kopiert werden sollen.
Gruß,
Jörg
AW: Zeilen per Makro kopieren und einfügen
Marcl
Hallo Frederic,
wenn Du die Zeile mit Rows("74:75").Select löschst, dann kopiert das Makro alles, was Du vorher markiert hast, egal ob 1 Zelle oder einen Block.
Gruß
Marcl
Anzeige
;

Forumthreads zu verwandten Themen

ans Tabellenende mit Leerzeilen kopieren
Robert-M

Grüß´ Euch im Forum,
in einer Tabelle „MASTER“ will ich die Daten anderer Arbeitsmappen „DETAIL 1, -2, -3“ untereinander auflisten.
Der Vorgang ist simpel:
per Makro
kopiere ich nacheinander jeweils den Inhalt von „DETAIL 1 ...“,
gehe in die Tabelle MASTER,
suche hier di...
08.09.2008 21:49:00
Thread-ID: 1008257
10 Beiträge
Tabellenblatt mit Schleife mehrfach kopieren
Markus

Hallo zusammen,
ich möchte das erste Tabellenblatt mehrfach kopieren und jeder Kopie einen anderen Namen geben. Die Namen, die vergeben werden sollen, befinden sich im ersten Tabellenblatt (Spalte Z, ab Zeile 1). Derzeit sind es 10, es kommen aber leider immer welche hinzu bzw. die Namen än...
23.09.2008 21:07:55
Thread-ID: 1011888
5 Beiträge
Zelle in andere Tabelle mit Button kopieren
Benny

Hallo Zusammen!
Kann mir jemand weiterhelfen? Wie kann ich die unten stehende Formel entsprechend anpassen?
Private Sub CommandButton2_Click() Dim wks As Worksheet Set wks = Worksheets("Änderungsanträge") wks.Range("C3") = wks.Range("D3") End Sub
Danke im Voraus!
Benny
07.10.2008 10:06:48
Thread-ID: 1014629
4 Beiträge
Anzeige
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
Zeilen selektiv kopieren und löschen
stelud

Hallo,
folgendes Beispiel mit 5 Zeilen :
A B C D
12 12 555 2222
13 13 555 2222
14 14 555 2222
24 24 600 2244
25 25 555 2222
28 28 555 2222
29 29 555 2222
30 30 555 2222
34 34 600 2244
39 39 555 2222
Ich möchte nun alle Zeilen, bei den...
17.11.2008 10:11:00
Thread-ID: 1025093
11 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
Tabelle mit eingebetteten Makro kopieren
köhler

Hallo!
Wenn ich in der Tabelle ein Makro eingebettet habe, dann wird beim Kopieren zu einer neuen Datei das Makro nicht mehr mit dem Button angesteuert. Das Makro wurde mitkopiert aber der Button hat dann ein Bezug auf die "alte" Datei, von der ich das Tabellenblatt kopiert habe.
Wie k...
08.01.2009 12:33:58
Thread-ID: 1037865
6 Beiträge
tabellenblatt in Excel mit neuer Instanz kopieren
chris

Hallo zusammen,
ich habe eine frage.Vielleicht könnt ihr mir helfen.
ich versuche eine Auswertung zu erstellen und diese soll in eine neue Instanz von Excel kopiert werden.
Aber irgendwie klappt das nicht :(
Ich habe unten einen code angefügt damit ich als erstes eine neue Insta...
10.02.2009 13:39:15
Thread-ID: 1049055
8 Beiträge
Tabelle mit var. Inhalt kopieren
Robbie

Hallo zusammen, ich mal wieder ein Problemchen.
Ich habe ein Makro laufen das mit Excel 2003 erstellt wurde. Der Tabelleninhalt sol kopiert werden, der aber unterschiedlich lang ist. Nun hatte ich dies immer mit dem folgenden Code markiert:
Range("A2", Range("p65536").End(xlUp)).Select<...
20.03.2009 10:06:08
Thread-ID: 1062062
5 Beiträge
Makro: Datei (feste Werte) kopieren und versenden
Niko

Hallo zusammen,
bin absoluter VBA-Neuling habe jedocg per google unten stehendes Makro gefunden.
Es hilft mir jedoch nur zum Teil. Ich möchte eine Arbeismappe (welche mehrere Sheets enthält) und mit vielen Verknüpfungen befüllt ist als Versanddatei ohne diese Verknüpfungen erstellen un...
03.06.2009 12:27:02
Thread-ID: 1078831
3 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
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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Zeilen per Makro kopieren und einfügen in Excel

Schritt-für-Schritt-Anleitung

  1. Makro erstellen:

    • Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
    • Klicke auf Einfügen und wähle Modul.
    • Füge den folgenden VBA-Code ein:
    Sub zeilen_kopieren_einfuegen()
   Selection.Copy
   Selection.Insert Shift:=xlDown
   Application.CutCopyMode = False
End Sub

  2. Makro zuweisen:

    • Schließe den VBA-Editor und gehe zurück zu deiner Excel-Tabelle.
    • Füge eine Schaltfläche ein (über Entwicklertools > Einfügen > Schaltfläche).
    • Weise die Funktion zeilen_kopieren_einfuegen der Schaltfläche zu.

  3. Makro ausführen:

    • Markiere die gewünschten Zeilen in deiner Tabelle.
    • Klicke auf die Schaltfläche, um das Excel-Makro kopieren und einfügen auszuführen.

Häufige Fehler und Lösungen

  • Problem: Das Makro funktioniert nur für bestimmte Zeilen.

    • Lösung: Stelle sicher, dass du die Zeilen markierst, die du kopieren möchtest, bevor du das Makro ausführst. Entferne die Zeile Rows("74:75").Select aus dem Code.

  • Problem: Die Formeln werden nicht richtig eingefügt.

    • Lösung: Überprüfe, ob du die richtigen Zellen markiert hast, und stelle sicher, dass du xlDown im Code verwendest, um die Zellen korrekt einzufügen.

Alternative Methoden

Wenn du keine Makros verwenden möchtest, kannst du auch die folgenden Methoden ausprobieren:

  • Manuelles Kopieren: Markiere die Zeilen, drücke STRG + C und dann STRG + V, um sie einzufügen. Achte darauf, die richtigen Optionen für das Einfügen zu wählen.

  • Verwendung von Excel-Tabellen: Wenn du eine Excel-Tabelle mit Makros kopieren möchtest, kannst du die gesamte Tabelle auswählen und die Funktion Einfügen > Einfügen von Zellen verwenden.

Praktische Beispiele

  1. Beispiel 1: Wenn du die Zeilen A12:A13 kopieren möchtest und diese in die Zeilen A74:A75 einfügen willst, markiere einfach die Zeilen A12:A13 und klicke auf die Schaltfläche.

  2. Beispiel 2: Um mehrere nicht benachbarte Zeilen zu kopieren, halte die STRG-Taste gedrückt und markiere die gewünschten Zeilen, bevor du das Makro ausführst.

Tipps für Profis

  • Makros optimieren: Verwende Application.ScreenUpdating = False am Anfang des Makros, um die Bildschirmaktualisierung zu stoppen und die Ausführung zu beschleunigen.

  • Fehlerbehandlung einfügen: Implementiere eine Fehlerbehandlung in deinem Makro, um unerwartete Fehler abzufangen:

    On Error GoTo Fehlerbehandlung
' Dein Code hier
Exit Sub
Fehlerbehandlung:
  MsgBox "Ein Fehler ist aufgetreten: " & Err.Description

FAQ: Häufige Fragen

1. Wie kann ich sicherstellen, dass die kopierten Zellen die Formeln enthalten? Um sicherzustellen, dass die Formeln erhalten bleiben, nutze die Excel kopierte Zellen einfügen-Funktion im Makro, wie im Beispiel oben gezeigt.

2. Funktioniert dieses Makro in jeder Excel-Version? Das beschriebene Makro ist in den meisten modernen Excel-Versionen (Excel 2010 und höher) anwendbar. Achte darauf, dass die Entwicklertools 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