Eingabe bei Application.Wait Now
18.06.2009 21:20:07
gisela
Hallo,
ich soll einen Testbogen erstellen, in dem die Nutzer in einem bestimmten Zeitraum Optionsfelder anklicken sollen. Nach einer bestimmten Zeit soll die Tabelle automatisch geschlossen werden. Während "Application.Wait Now" läuft ist aber keine Eingabe in den Optionsfeldern möglich.
Kann mir da jemand bitte weiterhelfen.
Sub StartSeite10()
Application.Wait Now + TimeValue("00:01:00")
Sheets("seite10").Visible = False
Sheets("seite11").Select
Range("A2").Select
End Sub
Vielen Dank und liebe Grüße
Gisela