Macro für excel 2003

Question

Hallo Profis hab ein Problem und bräuchte dringend eine Lösung dafür.

Per Makro(Button) soll aus Tabelle1 immer nur der ausgefüllte Zellbereich "B6:C21" in die Tabelle2 ab A2 fortlaufend kopiert werden (kein Überschreiben der bereits vorhanden Daten) und das jeweilige Datum des Speicherns in die Zelle G.
Danach soll der Zellbereich Tabelle1 "B:C21" gelöscht werden.

Kann mir bitte Jemand helfen wie ich das geregelt bekomme?

Besten Dank schon mal

Answer 1

Hi Bert,

Sub Kopieren()
Dim lngErste As Long
With Worksheets("Tabelle2")
lngErste = IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
.Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count) + 1
Range("B6:C21").Copy .Cells(lngErste, 1)
Range("B6:C21").ClearContents
End With
End Sub

Bis später,
Karin