Popup wenn Zeit erreicht oder überschritten
23.07.2019 16:20:56
Patrick
ich habe eine recht große Datei, bei der leider ab und an ein Datum übersehen wird.
Daher möchte ich gerne, wenn die Datei geöffnet wird, den Tab "Anbahnungsliste", Zeile B7-B1000 darauf überprüfen, ob für heute ein Termin ansteht oder ob Termine in der Vergangenheit (bis zu 10 Tage) liegen. Nun gibt es leider auch viele leere Zellen , in denen kein Datum eingetragen ist.
Als ersten Ansatz habe ich dieses genutzt:
Sub Test()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Range("B7:B1000")
For Each Zelle In Bereich
If Zelle = "" Then
'nix unternehmen
ElseIf Zelle Dass damit nicht alle Anforderungen erfüllt werden ist klar, nur erscheint leider trotz abgelaufenen Daten (korrekt formatiert) kein Popup. Stelle ich es um in:
Sub Test()
Dim Bereich As Range
Dim Zelle As Range
Set Bereich = Range("B7:B1000")
For Each Zelle In Bereich
If Zelle erscheint ein Popup, jedoch auch für alle leeren Zeilen.
Kann mir jemand hierbei weiterhelfen? Auch die Zuordnung zu einem anderen Tab habe ich leider nicht hinbekommen. Die Liste wird immer unterschiedliche Tabs abhängig vom Ort der Speicherung und es soll grds. dieses Sub für "Anbahnungsliste" ausgelöst werden.
Danke für jede Hilfe!