ich habe folgendes Problem:
Ich hab eine Messagebox programmiert, welche erscheint wenn ein Wert in Spalte J negativ wird (Daten werden aus anderem Programm ständig aktualisiert).
Um dieses Makro ständig laufen zulassen, habe ich eine ApplicationOnTime hinzugefügt, sodass das Makro ständig neu geprüft wird (alle 15Sec).
Jetzt möchte ich, dass die Messagebox nicht alle 15 Sekunden wieder neu erscheint, bei negativem Wert, sondern nach einmaliger Bestätigung nicht wieder auftaucht. Erst wenn ein weiterer Wert negatv wird, soll wieder eine MsgBox auftauchen.
Hier mein Code:
Sub Makro2()
Dim i As Range
Dim j As Range
For Each i In Range("J:J")
If i "" Then
If i.Value
Ich hoffe auf eure Unterstützung!