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?
|