Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
1268to1272
1268to1272
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen einfügen

Forumthread: Zeilen einfügen

Zeilen einfügen
Erik
Hallo,
ich habe noch ein weiteres Problem:
im Makro "copy" wird derzeit die active Zeile kopiert:
Sub copy()
ActiveCell.EntireRow.Copy
End Sub
und im Makro "insert" wird diese kopierte Zeile komplett am Cursorstandort (aktive Zelle) wieder eingefügt.
Sub insert()
Rows(ActiveCell.Row).Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub
Jetzt möchte ich das 2. Makro wie folgt ändern:
Es soll möglich sein, dass mehrere Zeilen gleichzeitig eingefügt werden können,
und zwar in den zuvor markierten Zellbereich, z.b. soll nach Markierung des Bereiches D20:D24, die zuvor kopierte Zeile (z.b. Zeile5) komplett in Zeilen 20:24 eingefügt werden.
Wer kann helfen?
mfg
Erik
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Zeilen einfügen
12.07.2012 16:19:51
Franc 
Sub insert()
Dim i As Long, lErsteZeile As Long, lLetzteZeile As Long
lErsteZeile = Selection.Cells(1).Row 'erste zeile der Markierung
lLetzteZeile = Selection.Cells(Selection.Cells.Count).Row ' letzte zeile der Markierung
For i = lErsteZeile To lLetzteZeile
Rows(i).Select
ActiveSheet.Paste
Next
Application.CutCopyMode = False
End Sub

Anzeige
AW: Zeilen einfügen, Danke
12.07.2012 16:46:11
Erik
Franc,
danke,
läuft sauber.
Erik
AW: Zeilen einfügen (Nachtrag)
12.07.2012 17:02:29
Franc
Damit kein Fehler kommt wenn du nichts kopiert hast, kannst du diese Zeile nach der Dim Anweisung reinkopieren
If Application.CutCopyMode = False Then Exit Sub
;

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