Hallo zusammen,

mein Problem ist hoffentlich nicht allzu komplex.

In einer gegebenen Exceldatei habe ich 2 Tabellenblätter (Tabelle 1; Tabelle 2).

Ich möchte mittels Makro die Werte aus Tabelle 1 Spalte D, T und X (jeweils Zeilen 12-14, 16-18, 21-23, 25-27) kopieren und in Tabelle 2 in die Spalten A-C untereinander einfügen. Wird das Makro erneut ausgefühhrt, so sollen die Werte in die erste freie Zeile abgelegt werden. An dieser Stelle bin ich in meinem Makro bereits.

    Range( _
        "D12:D14,D16:D18,D21:D23,D25:D27,T12:T14,T16:T18,T21:T23,T25:T27,X12:X14,X16:X18,X21:X23,X25:X27" _
        ).Select
    Range("T25").Activate
    Selection.Copy
    Sheets("Tabelle 2").Select
    Cells(1, 1).End(xlDown).Offset(1, 0).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        Range("A1").Select
    Application.CutCopyMode = False
    Sheets("Tabelle 1").Select
    Range("K1").Select
End Sub

Würde nun durch erneutes Ausführen des Makros eine in Spalte D (Tabelle 1) identische Kopie gemacht, so soll die "erste Version" überschrieben werden.

Kann mir jemand bei dem Problem helfen?