Supportnet / Forum / Tabellenkalkulation

Hallo Community, das folgende Makro, dass ich mir aus einem anderen Forum entliehen habe, wird nicht ausgeführt (bzw. [b] Text (s.u.) wird bereits rot gefärbt[/b]). Sub Datum_kleiner_heute_löschen() Dim iCounter As Integer, iRow As Integer iRow = Cells(Rows.Count, 5).End(xlUp).Row For iCounter = iRow To 1 Step -1 [b]If Not Is Empty(Cells(iCounter, 5)) And _ CDbl(Cells(iCounter, 5).Value) < CDbl(Date)[/b] Then Rows(iCounter).Delete End If Next iCounter End Sub Das Makro soll in der Spalte E prüfen, ob ein Datum enthalten ist, das kleiner als das heutige ist und daraufhin diese Zeile löschen. Ist vielleicht nur ne Kleinigkeit, aber ich komm einfach nicht drauf. Gruß martl

Moin Martl,

versuche mal das nachfolgende Makro. Habe Dein oben aufgeführtes Makro abgeändert.

Sub Datum_kleiner_heute_löschen()
Dim iCounter As Integer, iRow As Integer
iRow = Cells(Rows.Count, 5).End(xlUp).Row
For iCounter = iRow To 1 Step -1
If Cells(iCounter, 5) And CDbl(Cells(iCounter, 5).Value) < CDbl(Date) Then
Rows(iCounter).Delete
End If
Next iCounter
End Sub

Habe es bei mir getestet und es funktioniert.

Ich hoffe, ich konnte Dir weiterhelfen,
coros
_{Und nicht vergessen, hier noch einmal zu posten, ob Dich die Hilfe weitergebracht oder sogar}
^{Dein Problem gelöst hat.}

Hallo coros,

und wie das funktioniert - einfach Super !!!

Vielen herzlichen Dank für Deine Unterstützung.

Viele Grüße und noch einen guten Start ins neue Jahr

martl

Hi martl,

super, das alles funktioniert. Danke auch für die Rückmeldung.

Auch Dir ein hoffentlich gutes und erfolgreiches Jahr,
coros
_{Jeder macht was er will, keiner macht was er soll aber alle machen mit.}

• Problem mit Datum (Heute)
• Wenn Datum kleiner dann...
• Löschen einer Zeile bei Vergleich Datum/Uhrzeit
• Excel Datum HEUTE Zeilen übernehmen
• Anzahl der Tage seit einem Datum bis heute berechnen?