Folgendes Problem: Ich möchte gern per Button in einem Tab die Daten aus einem vordefinierten Bereich (z.B. A1:K20) in ein anderes Tab kopieren. Dabei soll über den Daten ein Zeitstempel stehen und der Name des Tabs aus dem die Daten entnommen wurden.
Das Kopieren habe ich hinbekommen, aber der Rest fehlt. Irgendeine Idee?
Hier der bisherige Code:
Sub Zellen_kopieren()
Application.ScreenUpdating = False
Sheets("7500-1").Range("A35:K46").Copy
Sheets("Kladde").Cells(Sheets("Kladde").Range("A65536").End(xlUp).Offset(1, 0).Row, 1) _ . _
PasteSpecial Paste:=xlPasteValues
Sheets("7500-1").Range("C37:E46").ClearContents
Sheets("7500-1").Range("G37:G46").ClearContents
Application.CutCopyMode = False End Sub
Vielen Dank im voraus undLG Marcel