Schleife mit "Application.Wait" verlassen.
15.11.2019 16:33:52
Bergmann
ich habe in einem Tabellenblatt im Bereich (H2:H21) Termine im Uhrzeitformat eingetragen. In der Zelle G24 ermittle ich mit der Formel =MIN(H2:H21) den nächsten Termin. Dann lasse ich die Zeit bis zu diesem Termin in der Zelle G23 mit der Formel =WENN(G24 in Minuten berechnen und anzeigen. Solange sich nichts mehr ändert bleiben die berechneten Werte unverändert. Deshalb habe ich eine Schaltfäche eingefügt, die das Arbeitsblatt mt ActiveSheet.Calculate neu berechnet.
Soweit, so gut. Aber nun möchte ich über diese Schaltfläche einen Makro starten, der den Wert der Zelle abfragt und wenn der Termin noch nicht erreicht ist, das Blatt neu berechnet, eine Pause einlegt und das Prozedere von vorn startet. Das habe ich mit:
Private Sub CommandButton3_Click()
While Range("G23") "Termin fällig!"
ActiveSheet.Calculate
Application.Wait Now + TimeSerial(0, 0, 10)
Wend
End Sub
gelöst. Aber leider läuft der Makro nun bis zur Erreichung der Abbruchbedingung und lässt keine Eingaben im Tabellenblatt zu und ich kann ihn nur mit gehaltener ESC-Taste in den Abbruch oder Debugmodus zwingen.
Ich suche nun eine Möglichkit, den Makro eleganter zu beenden. Wer hat da einen Tip für mich, bzw. wer kann mir weiterhelfen?
Viele Grüße, Thomas