Clever-Excel-Forum

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

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)

eti95

schauan