Start Marko mit Tastendruck unterbrechen
18.09.2016 18:03:59
Bernd
ich habe ein spezielles Problem, an dem ich schon den ganzen Nachmittag tüftele, aber aufgrund mangelnder VBA Kenntnisse nicht weiterkomme.
Hier die beiden kurzen VBA Codes:
Public Sub Workbook_Open()
Call StartZeitGeber
End Sub
Public Sub StartZeitGeber()
Application.OnTime Now + TimeValue("0:0:5"), "Makro_Automatik"
End Sub
Die Routine "Workbook_Open" wird auch wunderbar nach 5 Sekunden ausgeführt.
Die Verzögerung von 5 Sekunden habe ich einprogrammiert, damit ich das Makro unterbrechen kann mit einem Tastendruck bevor das "Makro Automatik" startet.
Ich will zusammengefasst folgendes:
Wenn die Routine "Workbook open" startet, dann möchte ich 5 Sekunden Zeit haben, um z.B. mit der ESC-Taste (oder auch eine andere beliebige Taste) das Makro abzubrechen. Wenn innerhalb dieser Zeit keine ESC-Taste (oder auch eine andere beliebige Taste)gedrückt wird, soll das Makro weiterlaufen, d.h. das Makro "Makro Automatik´" wird gestartet.
Ich hoffe, mir kann jemand mit sachdienlichem Rat den Code verraten und mir kurz Schreiben, was ich in VBA programmieren muss.
Besten Dank vorab
Bernd