Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
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
1980to1984
1980to1984
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilen verdoppeln ab aktive Zeile, bestimmte Zellen kopieren

Forumthread: Zeilen verdoppeln ab aktive Zeile, bestimmte Zellen kopieren

Zeilen verdoppeln ab aktive Zeile, bestimmte Zellen kopieren
06.07.2024 16:53:38
Frank201517
Hallo zusammen,

ich bin sehr dankbar für eine Hilfe:
Ich möchte in einer Excel-Liste eine Zeile aktivieren (Cursor in die Zeile) und dann per Button ein Makro aktivieren welches:
Die Zeilen unterhalb der aktivierten Zeile verdoppelt, dabei jedoch nicht die gesamte Zeile doppelt, sondern nur ein eine bestimmte Reihe von Zellen:

vorher:

xxxxxxxMit Cursor aktivierte Zeilexxxxxx
xxxAAAAAxx11111
xxxBBBBBxx22222
xxxCCCCCxx33333
xxxDDDDxx44444
xxxEEEEExx55555

nachher:

xxxxxxxMit Cursor aktivierte Zeilexxxxxx
xxxAAAAAxx11111
xxxAAAAA
xxxBBBBBxx22222
xxxBBBBB
xxxCCCCCxx33333
xxxCCCCC
xxxDDDDxx44444
xxxDDDD
xxxEEEEExx55555
xxxEEEEE

Für das Duplizieren der gesamten Zeile habe ich bisher diesen Code verwendet: 
Sub Unit()    

    Dim x As Long, a As Long   

    x = ActiveCell.Row

    For a = Cells(Rows.Count, "A").End(xlUp).Row To x + 1 Step -1

        Rows(a).Insert shift:=xlDown

        Rows(a + 1).Copy Rows(a)

    Next

End Sub

Wie muss ich den Code ändern, um zu dem obigen Ergebnis zu kommen?

Ganz vielen Dank im Voraus!
Frank
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilen verdoppeln ab aktive Zeile, bestimmte Zellen kopieren
06.07.2024 19:45:00
GerdL
Hallo Frank,

deine Angaben sind nicht ganz eindeutig. 

Sub Unit()



    Dim x As Long

    

    For x = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1

        Rows(x + 1).Insert shift:=xlDown

        Rows(x + 1).Clear

        'Werte aus Spalten A+B übertragen

        Cells(x + 1, 1).Resize(1, 2) = Cells(x, 1).Resize(1, 2).Value

    Next





End Sub

Gruß Gerd
Anzeige
AW: Zeilen verdoppeln ab aktive Zeile, bestimmte Zellen kopieren
06.07.2024 21:31:33
Frank201517
Hallo GerdL

danke für Deine Antwort.
Ich versuche es, eindeutiger zu beschreiben:
Das Makro soll die Zeilen unterhalb der aktivierten Zeile duplizieren/doppeln, bis zu der letzten Zeile mit Eintrag.
Beim Doppeln sollen allerdings nicht alle Einträge der zu duplizierenden Zeile in die neu eingefügte Zeile kopiert werden, sondern nur die ersten 8 Zellen der Zeile.
Bei Kopieren der ersten 8 Zellen in die neu eingefügte Zeile soll auch das Format gleich bleiben.

vorher:
- - - - aktiverte Zeile - - - -
Cell1 - Cell2 - Cell 3 - Cell 4 - Cell5 - Cell6 - Cell7 - Cell8 - Cell9 - Cell10 - Cell11 - Cell12
CellA - CellB - CellC - CellD - CellE - CellF - CellG - CellH - CellI - CellJ - CellK - CellL

nachher:

- - - - aktiverte Zeile - - - -
Cell1 - Cell2 - Cell 3 - Cell 4 - Cell5 - Cell6 - Cell7 - Cell8 - Cell9 - Cell10 - Cell11 - Cell12
Cell1 - Cell2 - Cell 3 - Cell 4 - Cell5 - Cell6 - Cell7 - Cell8
CellA - CellB - CellC - CellD - CellE - CellF - CellG - CellH - CellI - CellJ - CellK - CellL
CellA - CellB - CellC - CellD - CellE - CellF - CellG - CellH

Hoffe sehr, dass es verständlich ist.
Danke Euch schon einmal vielmals für die Unterstützung.
Frank



Anzeige
AW: Zeilen verdoppeln ab aktive Zeile, bestimmte Zellen kopieren
07.07.2024 08:50:46
GerdL
Auf ein Neues, Frank. 
Sub Unit_2()



    Dim x As Long

    

    For x = Cells(Rows.Count, 1).End(xlUp).Row To ActiveCell.Row + 1 Step -1

        Rows(x + 1).Insert shift:=xlDown

        Rows(x + 1).Clear

        'Werte aus Spalten A-H übertragen

        Cells(x + 1, 1).Resize(1, 8) = Cells(x, 1).Resize(1, 8).Value

    Next





End Sub

Gruß Gerd
Anzeige
AW: Zeilen verdoppeln ab aktive Zeile, bestimmte Zellen kopieren
07.07.2024 09:56:55
Frank201517
Hallo GerdL,

das klappt super, vielen Dank für Deine Hilfe!
Allerdings verändert sich beim Übertragen der Werte aus den Spalten A bis H das Format und auch die Ausrichtung in der Zelle.
Gibt es da eine Möglichkeit, das Format/Ausrichtung mit zu übertragen?

Danke im Voraus!
Frank

Anzeige
AW: Zeilen verdoppeln ab aktive Zeile, bestimmte Zellen kopieren
07.07.2024 10:58:40
GerdL
Ja dann. 
Sub Unit_3()



    Dim x As Long

    

    For x = Cells(Rows.Count, 1).End(xlUp).Row To ActiveCell.Row + 1 Step -1

        Rows(x + 1).Insert shift:=xlShiftDown, Copyorigin:=xlFormatFromLeftOrAbove

        Rows(x + 1).ClearContents

        'Werte aus Spalten A-H übertragen

        Cells(x + 1, 1).Resize(1, 8) = Cells(x, 1).Resize(1, 8).Value

    Next





End Sub

Gruß Gerd
Anzeige
AW: Zeilen verdoppeln ab aktive Zeile, bestimmte Zellen kopieren
07.07.2024 12:33:12
Frank201517
Lieber GerdL

das ist es.
Vielen herzlichen Dank. Großartig.

Grüße, Frank
;

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