Office: (Office 2010) VBA Datum vergleichen

Hallo zusammen,
ich hätte da mal wieder was und hoffe das mir jemand helfen kann.

Ich habe in der Spalte E5:E10 jeweils ein Datum.
Diese Daten sollen mit dem Datum was in Zelle D2 steht verglichen werden.
Sollte eins der Daten in E5:E10 um 6 Tage oder mehr kleiner sein als in Zelle D2 dann sollen die Einträge im Bereich A1:A10 und Bereich C1:C10 gelöscht werden. Ist das Datum gleich oder 1-5 Tage kleiner, so soll alles bleiben wie es ist. Diese Aktion soll beim Öffnen der Mappe durchgefuehrt werden.

Bin für jede Hilfe dankbar.

:)

 

Hallo Honk12,

versuche es einmal mit dem beigefügten Makro.

Gruß Peter

PHP:

         Option Explicit

Public Sub Datums_Abgleich()

Dim lZeile  As Long

With ThisWorkbook.Worksheets("Tabelle1")  den Tabellenblattnamen ggf. anpassen!
For lZeile = 5 To 10
If .Range("E" & lZeile).Value <= .Range("D2").Value - 6 Then
.Range("A1:A10,C1:C10").ClearContents
Exit For
End If
Next lZeile
End With

End Sub


 

Super, Herzlichen Dank fuer deine Mühe pefeu

MfG

 

Hallo,

Ich habe da ein kleines Problem bekommen, und zwar wenn mal in einer Zelle kein Datum steht. Was muss mann Einfuegen das es leere Zellen ignorieren soll.

Danke

 

Hmmm komme irgendwie nicht weiter


If .value "" Then