Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Aktive Zeile kopieren und wieder einfügen

Aktive Zeile kopieren und wieder einfügen
12.09.2005 09:54:37
Sören
Hallo und Guten Tag,
ich brauche für meine Tabelle eine Skript, das folgendes bewirkt:
An der Stelle wo der Curser steht soll die ganze Zeile kopiert werden
und eine Zeile tiefer wieder eingefügt werden. Da das Skript über einen Button gesteuert werden soll müsste sowas wie Aktive Zelle... drin vorkommen. Mit einer Makro-Aufzeichnung komme ich da nicht weiter.
Leider hab ich keine Ahnung wie man es anders macht.
Viele Grüße
Sören
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Aktive Zeile kopieren und wieder einfügen
12.09.2005 10:07:08
denis
schau mal in meinem code nach (habe ein Problem gepostet "datum wird nicht mitkopiert"
da habe ich ein ähnliches scrips - schau im Code nach unter "Meetingminutes auf LOP kopieren"
Das sollte das sein was du suchst
AW: Aktive Zeile kopieren und wieder einfügen
12.09.2005 10:08:15
otto
Hi,
versuchs mal damit:

Sub kopieren()
Dim az
az=ActiveCell.Row
az.Copy
Rows az+1
az=ActiveCell.Row
ActiveSheet.Paste
End Sub

Gruß otto
Anzeige
AW: Aktive Zeile kopieren und wieder einfügen
12.09.2005 10:11:39
frank
hallo sören,
so geht es auch:

Sub Makro1()
ActiveCell.Select
Selection.EntireRow.Copy
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveCell.EntireRow.PasteSpecial
End Sub

gruß frank
Aktive Zeile kopieren und wieder einfügen
12.09.2005 12:07:01
Sören
Hallo Frank und Otto,
danke für eure Hilfe, ich habe es ausprobiert und bei Otto seinem Skript bleibt er hängen bei: Rows az + 1 Woran liegt das?
Wenn ich Zeilen markiere bei denen noch ausgefüllte Zeilen darunter sind, werden die überschrieben. Kann mann die automatisch eins nach unten verschieben lassen?
Viele Grüße
Sören
Anzeige
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Aktive Zeile in Excel kopieren und darunter einfügen


Schritt-für-Schritt-Anleitung

Um eine aktive Zeile in Excel zu kopieren und darunter einzufügen, kannst du ein VBA-Skript verwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung:

  1. Öffne dein Excel-Dokument 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. Füge den folgenden Code in das Modul ein:

    Sub Makro1()
       ActiveCell.Select
       Selection.EntireRow.Copy
       ActiveCell.Offset(1, 0).Range("A1").Select
       ActiveSheet.Paste
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Du kannst nun einen Button erstellen, um das Makro auszuführen, oder das Makro direkt über das Menü Entwicklertools starten.


Häufige Fehler und Lösungen

  • Problem: Das Skript bleibt bei Rows az + 1 stehen.

    • Lösung: Stelle sicher, dass der Code korrekt eingegeben ist und keine Syntaxfehler vorhanden sind. Verwende stattdessen den Vorschlag von Frank, um die aktive Zeile zu kopieren und darunter einzufügen.
  • Problem: Beim Einfügen wird die Zeile überschrieben.

    • Lösung: Der Code verwendet ActiveCell.Offset(1, 0) um die Zeile sofort darunter einzufügen. Wenn du sicherstellen möchtest, dass die darunter liegenden Zeilen verschoben werden, musst du sicherstellen, dass du einen leeren Platz hast oder den Code anpassen, um die Zeilen nach unten zu verschieben.

Alternative Methoden

Wenn du keine VBA-Lösungen nutzen möchtest, kannst du auch manuelle Methoden verwenden:

  • Manueller Kopiervorgang: Wähle die gesamte Zeile aus, drücke Strg + C, gehe zur nächsten Zeile und drücke Strg + V. Dies ist jedoch weniger effizient, wenn du häufig Zeilen kopieren und darunter einfügen musst.

  • Excel-Funktionen: Du kannst auch die Kopieren und Einfügen Funktionen im Menü nutzen, um jede Zeile zu kopieren und darunter einzufügen. Dies kann aber zeitaufwendig sein.


Praktische Beispiele

Hier sind einige Beispiele, wie du das Skript anpassen kannst:

  1. Zeilen kopieren und darunter einfügen für mehrere Zeilen:

    Sub mehrereZeilenKopieren()
       Dim az As Long
       az = ActiveCell.Row
       Rows(az & ":" & az).Copy
       Rows(az + 1 & ":" & az + 1).Insert Shift:=xlDown
    End Sub
  2. Kopieren und Einfügen mit Formatierung:

    Sub kopierenMitFormatierung()
       ActiveCell.EntireRow.Copy
       ActiveCell.Offset(1, 0).EntireRow.Insert
    End Sub

Diese Beispiele zeigen, wie flexibel du das Skript anpassen kannst, um die Anforderungen deiner Tabelle zu erfüllen.


Tipps für Profis

  • Nutze Tastenkombinationen: Wenn du oft Zeilen kopierst, gewöhne dir an, die Tastenkombinationen Strg + C und Strg + V zu verwenden, um die Effizienz zu steigern.
  • Makros optimieren: Je nach Bedarf kannst du deine Makros weiter optimieren, indem du zusätzliche Funktionen wie das Überprüfen auf leere Zeilen oder das Automatisieren mehrerer Kopiervorgänge integrierst.
  • Fehlerbehandlung einbauen: Implementiere Fehlerbehandlung in deinem VBA-Code, um sicherzustellen, dass dein Skript auch bei unerwarteten Eingaben robust bleibt.

FAQ: Häufige Fragen

1. Wie kann ich das Makro über einen Button ausführen?
Du kannst einen Button in der Symbolleiste für den Schnellzugriff hinzufügen und das Makro zuweisen, indem du mit der rechten Maustaste auf den Button klickst und "Makro zuweisen" wählst.

2. Funktioniert das Skript in allen Excel-Versionen?
Ja, die meisten VBA-Skripte sind in den aktuellen Versionen von Excel 2010 und höher funktionsfähig, solange du die Entwicklertools aktivierst.

3. Was kann ich tun, wenn das Skript nicht funktioniert?
Überprüfe deinen VBA-Code auf Syntaxfehler, stelle sicher, dass du die richtige Zelle ausgewählt hast, und teste das Skript Schritt für Schritt im VBA-Editor.

Beliebteste Forumthreads (12 Monate)

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