Wenn Datum (Heute), dann in anderes Sheet kopieren

[eti95]

Hallo liebe Mitglieder,

ich bräuchte eure Hilfe,

ich bin gerade dabei eine Aufgabenliste zu erstellen. Ich möchte das die Aufgaben die erledigt sind, also am heutigen Datum erldigt sind, dann aus der Tabelle1 in die Tabelle2 kopiert werden. Und aus der Tabelle1 gelöscht werden.

jetziger Status ist dieser Code:

Code:

Sub Makro3()
'
' Makro3 Makro
'

'
   ActiveSheet.Range("$A$1:$H$4").AutoFilter Field:=7, Criteria1:= _
       xlFilterToday, Operator:=xlFilterDynamic
   Range("A4:H4").Select
   Selection.Copy
   Sheets("Tabelle2").Select
   Range("A2").Select
   ActiveSheet.Paste
   Range("A5").Select
   Sheets("Tabelle1").Select
   Application.CutCopyMode = False
   Selection.EntireRow.Delete
   ActiveSheet.Range("$A$1:$H$3").AutoFilter Field:=7
   ActiveSheet.Range("$A$1:$H$3").AutoFilter Field:=7
   Sheets("Tabelle1").Select
   Range("A7").Select
End Sub

Ich bekomme es aber nicht hin, das die Zellen nacheinander in Tabelle2 eingefügt werden. Also immer +1 eingefügt werden.

anbei die Datei um die es sich handelt

Vielen Dank im Voraus für eure Infos und Hilfe

[schauan]

Hallöchen,

im Prinzip geht es doch nur darum, die entsprechende Zeile zu treffen?
Wenn es nicht zwingend nötig ist, dass Du auf Tabelle 2 die Zelle A5 selektierst, kannst DU aus diesen Zeilen

Code:

   Sheets("Tabelle2").Select
   Range("A2").Select
   ActiveSheet.Paste
   Range("A5").Select
   Sheets("Tabelle1").Select

eine machen.

Sheets("Tabelle2").Cells(Rows.COunt,1).End(xlup).Offset(1,0).Paste

(ungetestet)