Hallo Rainer,
es ist eine Tabelle mit Namen, Adressen, Textfeldern. Außerdem gibts ein Feld mit Geb. Datum. Neben diesem Feld rechnet eine Formel das Alter.
Sub kopieren_löschen()
Selection.AutoFilter Field:=2, Criteria1:="x"
Range("B4:Q2200").Select
Selection.Copy
Sheets("Archiv").Select
Cells(65000, 1).End(xlUp).Offset(1, 0).Select
ActiveSheet.Paste
Range("B18").Select
Sheets("Warteliste").Select
Application.CutCopyMode = False
Selection.EntireRow.Delete
ActiveWindow.SmallScroll Down:=-48
Range("G1007").Select
ActiveWindow.SmallScroll Down:=-30
Range("B987").Select
ActiveWindow.SmallScroll Down:=-36
Selection.AutoFilter Field:=2
Range("B4").Select
End Sub
Gruß Claus