MsgBox bei geöffneter Datei anzeigen lassen mit Bedingung
01.11.2023 08:11:39
Paul
ich habe eine Excel Datei die von mehreren Benutzer dauerhaft geöffnet ist.
Auf dem Sheet "Vergleich" ist in O2 ein Datum mit dem Format TT.MM.JJJJ hh:mm das immer das Datum anzeigt, an dem die Werte zuletzt aktualisiert wurden.
In O3 ist folgende Formel:
=WENN(O2
Per VBA habe ich folgende Formel:
Sub zeit()
Dim zelle As Range
Set zelle = ThisWorkbook.Sheets("vergleich").Range("o3")
If zelle > 0 Then
MsgBox "Bitte die Werte unter Reload aktualisieren. Letzte Aktualisierung ist länger als 5 Tage her"
End If
End Sub
Nun möchte ich aber gerne, dass die MsgBox sobald in O3 die Bedingung erfüllt ist und der text "Bitte Werte Aktualisieren!" erscheint (Per Manueller Änderung von O2 getestet)
Habt ihr einen Lösungsweg für mich?