mit folgender Abfrage prüfe ich eine Liste von Datumsangaben, ob eine dem aktuellen Datum entspricht:
If Month(Cells(t, 3)) = Month(Date) And Day(Cells(t, 3)) = Day(Now) Then
MsgBox "dieser heute ja"
End If
und das klappt auch bestens. Bei jedem Eintrag bekomme ich eine Meldung, und ich bekomme keine Meldung, wenn die Bedingung bei keinem Satz zutrifft.
Leider ist das im negativen Fall auch so:
If Month(Cells(t, 3)) <> Month(Date) And Day(Cells(t, 3)) <> Day(Now) Then
MsgBox "heute keiner"
End If
Bei jedem einzelnen Satz, der nicht dem aktuellen Datum entspricht, bekomme ich die Meldung "heute keiner", was natürlich keinen Sinn ergibt. Wie kann man das bitte schreiben, dass die Meldung nach Prüfen der ganzen Liste nur ein einziges Mal ausgegeben wird; oder eben gar nicht, falls die obere Abfrage zutrifft.
Vielen Dank im Voraus
Gruß
Franz