verzögerte Makroausführung
Mate
ich habe eine kleine Frage an euch. Ich habe nachfolgend ein Makrozusammengestellt, wobei das eigentliche Befehl erst dann ausgeführt wird, wenn die Zelle AG21 = 1 ist. Dann soll innerhalb von 10 Sekunde das entsprechende Makro (einblenden eines Messageboxes) ablaufen. Dies geschieht durch die Verlinkung eines Schiebereglers mit dem nachfolgenden Makro. Der Schieberegler hat 100 Stellen. Sobald nun er nun um eine Stelle nach links oder rechts gerückt wird, wechselt der Zellwert von AG21 von 0 auf 1.
Wie erreiche ich nun, dass das Makro nur einmal ausgeführt wird, und zwar sobald AG21= 1 ist. Das Makro soll nicht mehr ausgeführt werden, wenn der Schieberegler immer weiter bewegt wird (und der Zellwert AG21 weiter auf 1 steht.
Sub Verzögerung()
Application.ScreenUpdating = False
Blattschutz_aus
If Range("AG21").Value = 1 Then
Application.OnTime Now + TimeValue("00:00:10"), "Verzoegerung"
End If
Blattschutz_ein
End Sub
Vielen Dank für eure wertvolle Hilfe!Beste Grüße
Máté