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
1332to1336
1332to1336
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro mit Button Zeile ausschneiden und einfügen

Forumthread: Makro mit Button Zeile ausschneiden und einfügen

Makro mit Button Zeile ausschneiden und einfügen
04.10.2013 11:40:46
Borgi
Hallo Herbers Excel Forum,
ich habe leider (noch) keine Ahnung von VBA-Makros in Excel 2007. Ich kann bisher nur Makros mit dem Recorder aufnehmen, aber die sind mir zu unflexibel.
Ich brauche ein Makro für einen Projekt-Terminplan, was folgende Funktionen erfüllt:
1. Die Zelle die gerade ausgewählt ist, soll dann die ganze Zeile markiert werden.
2. diese gesamte Zeile soll ausgeschnitten werden
3. Die Zeile soll auf das zweite Blatt mit den Namen: Archiv immer an oberster Stelle (Entspricht in meinem Archiv Zeile 16) eingefügt werden.
4. die Zeile, wo ich im Terminplan ausgeschnitten habe, soll gelöscht werden. (da sie ja leer ist)
5. eine leere Zeile soll in etwa bei der 200 Zeile des Terminplans eingefügt werden
Diese Funktionen sollen in der Reihenfolge ablaufen und über einen Button gesteuert werden.
Hier noch mein aufgenommenes Makro mit allen Funktionen:
Sub Makro2()
' Makro2 Makro
Rows("37:37").Select
Selection.Cut
Sheets("Archiv").Select
Rows("16:16").Select
ActiveSheet.Paste
Sheets("Zeitplan").Select
Selection.Delete Shift:=xlUp
ActiveWindow.SmallScroll Down:=156
Rows("199:199").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
ActiveWindow.SmallScroll Down:=-147
End Sub
Ich hoffe ihr könnt mir weiterhelfen.
Gruß und Dank
Borgi

Anzeige

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

Betreff
Datum
Anwender
Anzeige
VBA : Zeile ausschneiden und einfügen
04.10.2013 12:45:42
NoNet
Hallo Borgi,
dieses Makro ist etwas universeller und kürzer :
Sub Ausschneiden_und_Einfuegen()
ActiveCell.EntireRow.Cut
Sheets("Archiv").Rows("16:16").Insert Shift:=xlDown
ActiveCell.EntireRow.Delete
Rows("200").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
Gruß, NoNet
Hast Du Interesse, andere Excel-Begeisterte kennenzulernen ? - Dann komme zum
Exceltreffen 11.-13.10.2013 in Duisburg
http://www.exceltreffen.de/index.php?page=230
Schau doch mal rein !

Anzeige
AW: VBA : Zeile ausschneiden und einfügen
04.10.2013 15:41:32
Borgi
Hi NoNet,
Danke das funktioniert super :)
Jetzt hätte ich noch eine Frage, kann man einen 2ten Button mit Makro einfügen, auf dem Archiv-Reiter, dass die markierte Zeile wieder auf den Reiter "Zeitplan" in die erste leere Zeile übertragen wird?
1000 Dank und Gruß
Borgi

Anzeige
Zeile aus ARCHIV nach ZEITPLAN zurück kopieren
04.10.2013 16:11:58
NoNet
Hallo Borgi,
mit folgendem Makro kannst Du die aktuelle Zeile wieder in das Blatt "Zeitplan" zurück kopieren :
Sub Zeile_aus_Archiv_Kopieren()
ActiveCell.EntireRow.Cut
With Sheets("Zeitplan")
.Rows(.Cells(Rows.Count, 1).End(xlUp).Row + 1).Insert Shift:=xlDown
End With
ActiveCell.EntireRow.Delete
End Sub
Voraussetzung für die korrekte Position ist eine befüllte Zelle in Spalte A des Blattes "Zeitplan !"
Salut, NoNet

Anzeige
AW: Zeile aus ARCHIV nach ZEITPLAN zurück kopieren
04.10.2013 16:52:37
Borgi
Vielen Dank! funktioniert bestens! :)

AW: Zeile aus ARCHIV nach ZEITPLAN zurück kopieren
07.10.2013 09:21:24
Borgi
Guten Morgen,
es tritt bei mir jetzt der Fehler auf beim Schließen der Datei auf "Bild ist zu groß und wird abgeschnitten." Wenn ich die Datei danach wieder öffnen möchte, ist sie nicht lesbar und muss wiederhergestellt werden.
Nach der Befragung von Google bedeutet die Fehlermeldung, dass der Zwischenspeicher zu "voll" ist. Kann man den "Auschneiden" Befehl nur für die Spalten A-DD anwenden? Damit der Zwischenspeicher nicht so überladen wird.
Gruß
Borgi

Anzeige
AW: Zeile aus ARCHIV nach ZEITPLAN zurück kopieren
08.10.2013 10:43:16
Borgi
Den Fehler mit "Das Bild ist zu Groß und wird abgeschnitten" konnte ich beheben, in dem ich statt "Cut" der Zeile, "Copy" verwende.
Nur leider besteht das andere Probleme weiterhin. Bitte helft mir!
Danke und Gruß
Borgi

AW: Zeile aus ARCHIV nach ZEITPLAN zurück kopieren
08.10.2013 14:43:30
fcs
Hallo Borgi,
den Zwischenspeicher kann man in Excel nach dem Kopieren von Zellen löschen, indem man den CutCopyMode auf False setzt.
Außerdem musst du darauf achten, dass die Grafikobjekte in den Zeilen, die kopiert werden komplett inner halb der Zeilen positioniert sind, sonnst kommt es zu unschönen Effekten beim Einfügen und Verschieben der Zeilen.
Als störend erweist sich auch der Parameter CopyOrigin beim Einfügen einer Leerzeile in Zeile 200.
Irgendwann kommt bei mir die Meldung "Kann Objekt nicht über Seitenrand hinausschieben.
Die Makros sollten also etwa wie folgt aussehen.
Ob dies dein Speichern-Problem bereinigt: ?
mfg
Franz 
Sub Ausschneiden_und_Einfuegen()
ActiveCell.EntireRow.Cut
Sheets("Archiv").Rows("16:16").Insert Shift:=xlDown
Application.CutCopyMode = False
ActiveCell.EntireRow.Delete
Rows("200").Insert Shift:=xlDown ', CopyOrigin:=xlFormatFromLeftOrAbove
End Sub
Sub Zeile_aus_Archiv_Kopieren()
ActiveCell.EntireRow.Cut
With Sheets("Zeitplan")
.Rows(.Cells(Rows.Count, 1).End(xlUp).Row + 1).Insert Shift:=xlDown
End With
Application.CutCopyMode = False
ActiveCell.EntireRow.Delete
End Sub

Anzeige
AW: Zeile aus ARCHIV nach ZEITPLAN zurück kopieren
07.10.2013 15:49:37
Borgi
Hallo NoNet, wenn ich die Makros von dir ausführe bekomme ich nach dem normalen Speichern der Datei und wieder Öffnen folgende Fehlermeldungen.
Userbild
Userbild
In der Liste sind teilweise Pfeile zwischen den Zellen einer Zeile. (Terminverschiebungen)
Wenn ich per Hand Ausschneide und wieder Einfüge funktioniert es ohne Probleme und beim neuladen tritt dieser Fehler nicht auf.
Hast du da vielleicht eine Idee woran es liegen kann?
Gruß
Borgi
Anzeige
;

Forumthreads zu verwandten Themen

ganze bestimmte Zeilen ausschneiden und löschen
Urmila

Hallo alle,
ich habe folgende Werte (siehe File)
Die Datei https://www.herber.de/bbs/user/55023.xls wurde aus Datenschutzgründen gelöscht
Ich will per Knopfdruck, dass wenn in irgendeiner Zelle in Spalte D ein Datum eingetragen wird, diese ganze Zeile (hier in dem Fall Zeile 5:5) a...
29.08.2008 15:11:45
Thread-ID: 1005853
4 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
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
leere Zeile mit Text und Formel dynamisch einfügen
christian

Hallo zusammen,
ich habe folgendes Problem das ich mit meinen wenigen VBA Kenntnissen nicht lösen kann.
Ich habe eine Tabelle mit n Zeilen.
- Nach jeweils ca. 53 Zeilen sollte eine Zeile mit dem Text "Zwischentotal " (Spalte C) und in die Summen-Formel für die 53 Zeilen (Spalte H)...
28.11.2009 13:36:30
Thread-ID: 1120637
3 Beiträge
Spaltenbereich ausschneiden und einfügen | Herbers Excel-Forum
Peter
Guten Tag
Ich möchte im ersten Sheet eines bestimmten Workbooks einen Spaltenbereich aus der Spalte P ausschneiden und in Spalte N einfügen.
Ich habe etwas Probleme mit der Syntax.
Wer hilft mir?
Vielen Dank, Peter
With ActiveWorkbook
.Sheets(1).range(cells(1,16),cells(zEnd,...
05.01.2010 10:58:08
Thread-ID: 1127228
7 Beiträge
Mit Makro eine neue Zeile einfügen
Richard

Hallo zusammen,
ich wollte über Makro eine neue Zeile einfügen lassen welche dann aber auch alle Formeln
der darüber liegenden Zeile übernimmt. Diese Funktion sollte dann aber auch immer wieder benutzt
werden können so das immer eine neue Zeile entsteht.
Könnt ihr mir vielleich...
21.01.2010 13:10:01
Thread-ID: 1131758
4 Beiträge
Button für Makro beeinflusst mein Programm
partykaeferchen

Liebe Makro-Experten,
ich habe folgendes Problem:
Bisher habe ich - um meine Makros zu starten - immer eine Autoform als Button genommen und mit "Makro zuweisen" ein Makro angehängt. Bei drücken des Buttons konnte ich das Makro starten. Hat immer bestens funktioniert.
Jetzt habe ich...
01.04.2011 14:51:21
Thread-ID: 1208699
8 Beiträge
Anzeige
Viele Zeilen ausschneiden und hinterher einfügen
Dino

Hi Leute,ich möchte mit rechte Maustaste (oder anders) vielen Zeilen ausschneiden und hinterher sie in biliebige Zeile untereinander einfügen.z.B.ich schneide Zeile 20, 23, 24, 28, 30, 33 aus und füge sie vor Zeile 10 ein.
Die Ausgeschnittenen Zeilen stehen dann untereinander.Vielen Dank im...
21.05.2002 20:04:08
Thread-ID: 122530
3 Beiträge
leere zeile finden und dann erst einfügen
Hoppe

Hallo,
ich bin neu hier und hoffe Ihr könnt mir helfen.
Ich habe eine Tabelle1 und eine Tabelle2,
dort sollen nun sachen kopiert werden und in einer anderen eingefügt werden. Es funktioniert auch super nur leider überschreibt er mir alle alten einträge. Nun meine Frage. Bekommt man...
24.06.2011 13:55:45
Thread-ID: 1219530
2 Beiträge
Anzeige
letzte gefüllte Zeile suchen und danach einfügen
Sandra

Hallo zusammen,
tja ... ich schon wieder. Ohne Eure Hilfe bekomm ich das nicht hin.
Ich habe ein Makro was auf ein Projekt zugeschnitten ist. Das läuft auch ganz prima. Eigentlich läuft es sogar so gut, dass ich es jetzt standardisieren muss. Und was das angeht wird es in meinen Augen...
12.07.2011 14:40:13
Thread-ID: 1221853
6 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
Anzeige
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
Anzeige

Infobox / Tutorial

Makro zum Ausschneiden und Einfügen von Zeilen in Excel

Schritt-für-Schritt-Anleitung

Um ein Makro zum Ausschneiden und Einfügen von Zeilen in Excel zu erstellen, folge diesen Schritten:

  1. Öffne Excel und erstelle ein neues Arbeitsblatt oder öffne dein bestehendes Projekt.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Klicke auf Einfügen > Modul, um ein neues Modul zu erstellen.

  4. Füge den folgenden Code ein:

    Sub Ausschneiden_und_Einfuegen()
   ActiveCell.EntireRow.Cut
   Sheets("Archiv").Rows("16:16").Insert Shift:=xlDown
   ActiveCell.EntireRow.Delete
   Rows("200").Insert Shift:=xlDown
   Application.CutCopyMode = False
End Sub

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

  6. Füge einen Button ein, um das Makro auszuführen:

    • Gehe zu Entwicklertools > Einfügen > wähle Button (Formularsteuerung).
    • Zeichne den Button auf deinem Arbeitsblatt und weise das Makro Ausschneiden_und_Einfuegen zu.

Jetzt kannst du die Zeile, die du ausschneiden möchtest, auswählen und dann auf den Button klicken.

Häufige Fehler und Lösungen

  • Fehler: "Das Bild ist zu groß und wird abgeschnitten."

    • Lösung: Reduziere die Anzahl der kopierten Zellen, indem du nur bestimmte Spalten auswählst (z.B. A bis D) oder verwende den Copy-Befehl anstelle von Cut.

  • Fehler beim Speichern der Datei

    • Lösung: Stelle sicher, dass alle grafischen Objekte innerhalb der Zeilen positioniert sind, um Konflikte beim Einfügen zu vermeiden.

  • Zwischenspeicher zu voll

    • Lösung: Setze Application.CutCopyMode = False am Ende deines Makros, um den Zwischenspeicher zu leeren.

Alternative Methoden

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

  1. Manuelles Ausschneiden und Einfügen:

    • Wähle die gesamte Zeile aus, drücke Strg + X, gehe zum Zielblatt und drücke Strg + V.

  2. Verwende Google Sheets:

    • In Google Sheets kannst du ebenfalls Buttons einfügen, um ähnliche Funktionen zu realisieren, indem du Google Apps Script verwendest.

Praktische Beispiele

Hier sind einige praktische Beispiele zur Anwendung des Makros:

  • Projekt-Terminplan: Verwende das Makro, um abgeschlossene Aufgaben in ein Archiv zu verschieben.
  • Datenverwaltung: Übertrage Zeilen mit unwichtigen Daten in eine Archiv-Tabelle zur besseren Übersichtlichkeit.

Tipps für Profis

  • Makro anpassen: Du kannst den Code so anpassen, dass er dynamisch die letzte Zeile in deinem Zielblatt findet.
  • Weitere Buttons: Erstelle zusätzliche Buttons für verschiedene Funktionen, wie z.B. das Zurückkopieren von Zeilen aus dem Archiv.
  • Fehlerbehandlung: Füge Fehlerbehandlungsroutinen hinzu, um unerwartete Probleme zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich einen Excel-Button für ein Makro einfügen? Um einen Button einzufügen, gehe zu Entwicklertools, klicke auf Einfügen und wähle den Button aus. Zeichne ihn auf dem Arbeitsblatt und weise das gewünschte Makro zu.

2. Kann ich das Makro in verschiedenen Excel-Versionen verwenden? Ja, das Makro funktioniert in Excel 2007 und neueren Versionen. Achte jedoch darauf, dass die Entwicklertools aktiviert sind.

3. Wie kann ich mehrere Zeilen gleichzeitig ausschneiden und einfügen? Ändere die Zeilenreferenz in deinem Makro, um mehrere Zeilen auszuwählen, z.B. Rows("37:39").Cut.

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