Supportnet / Forum / Tabellenkalkulation

Hallo. Wenn in einer Zelle kleiner als =HEUTE()-1 steht, soll diese ZEILE gelöscht werden. Es gibt mehrere solcher Zellen in der Spalte B12:B34 Gruß, Andreas [*][sup][i] *Threadedit* 13:36:39 Admininfo: bitte vermeide Mehrfachanfragen in verschiedenen, bzw. gleichen Gruppen. Die Datenbank und User werden es dir danken. Siehe [u][url=https://supportnet.de/groupfaqs/3]FAQ 2.[/url][/u][/i][/sup]

Hallo Andreas,

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

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

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)

• Zeilen mit #BEZUG# löschen
• Möchte im Excel wiederholend jede 2-9 Zeile löschen
• Excel Zeilen löschen
• Lotus 123 - Duplikate löschen ???