Hallo Andreas,

kopiere nachfolgendes Makro in ein StandarModul und starte es z.B. über eine Befehlsschaltfläche.

[b]Sub löschen()
Dim i As Integer
For i = 34 To 12 Step -1
If Cells(i, 2).Text = Format(Now - 1, "dd.mm.yyyy") Then
Cells(i, 2).Delete Shift:=xlUp
End If
Next
End Sub[/b]

Mit dem Makro werden Dir alle Zellen gelöscht, die vom Wert her das Datum von Heute - 1 Tag beinhalten.

Ich hoffe, Du kommst klar. Bei Fragen melde Dich.

Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf meiner HP in der Rubrik Anleitungen und dort dann in der Anleitungsnummer 3 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.\n\nBei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Danke, hat geklappt. ;o)