Zeile in Auswahl kopieren

Forumthread: Zeile in Auswahl kopieren
2 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Zeile in Auswahl kopieren

15.03.2025 09:59:54

Wolle

Hallo liebe Excel Gemeinde,
könnte mir vielleicht jemand helfen.
Ich benötige ein Makro für folgende Anforderung:
Ich möchte eine Zeile komplett kopieren z.B. Zeile 1001.
Danach möchte ich die Zeile in eine Auswahl von anderen Zeilen komplett mit allen Formaten, Formeln etc. reinkopieren.
Die Auswahl wird in Spalte A durch ein x vorher gekennzeichnet. - in dem Bereich der Zeilen von 10 - 1000.
Die Auswahl können einzelne nicht aufeinanderfolgende Zeilen sein, die überschrieben werden sollen.
Wäre nett wenn ihr da was für mich hättet.
Vielen Dank
Wolle

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Zeile in Auswahl kopieren

15.03.2025 12:00:18

GerdL
AW: Zeile in Auswahl kopieren

15.03.2025 13:52:25

Wolle

AW: Zeile in Auswahl kopieren

15.03.2025 12:00:18

GerdL

Moin Wolle!

Sub Unit()



    Dim Ziele As Range, Quelle As Range

    

    Tabelle1.Activate

    

    Set Quelle = ActiveCell.EntireRow

    

    If Application.CountIf(Tabelle2.Columns("A"), "x") = 0 Then Exit Sub

    Tabelle2.Columns("A").Replace "x", True

    

    Set Ziele = Tabelle2.Columns("A").SpecialCells(xlCellTypeConstants, xlLogical).EntireRow

    Quelle.EntireRow.Copy Destination:=Ziele

    Application.CutCopyMode = False

    

    Set Quelle = Nothing: Set Ziele = Nothing



End Sub