cyberops
Goto Top

Zeitgebundene Abfrage

Hallo zusammen

Ich schreibe gerade in Excel ein Programm das grundsätzlich vollautomatisch ablaufen soll.
Dieses Excelsheet soll dann via scheduled Task regelmässig ausgeführt werden.

Damit ich aber das Excelsheet öffnen kann ohne das mir der gesamte Automatismus ausgelöst wird,
suche ich jetzt nache einer Möglichkeit für eine Zeitgebundene Abfrage.

Diese Abfrage soll als erstes nach dem Öffnen des Excelsheets erscheinen, und wenn z.B. nach 30 Sekunden
kein Button bestätigt wurde, soll der Automatismus loslegen.

Ich weiss nur nicht wie ich diesen "Countdown" realisieren kann.


Vielen Dank im Voraus für eure Hilfe.


Gruss,

Cyberops

Content-Key: 81567

Url: https://administrator.de/contentid/81567

Ausgedruckt am: 28.03.2024 um 18:03 Uhr

Mitglied: misterdemeanor
misterdemeanor 25.02.2008 um 13:42:32 Uhr
Goto Top
Hi,

schaue in der Excel-VBA Hilfe mal nach Wait.

BG, Felix -misterdemeanor-
Mitglied: Cyberops
Cyberops 25.02.2008 um 14:36:15 Uhr
Goto Top
Merci für die schnelle Antwort

Aber sie bringt mich nicht wirklich weiter.
Bei dem "Wait"- Befehl wird ja der Rechner quasi blockiert.
So kann ich keinen Button bestätigen.

Das ganze sollte ungefähr so aussehen:

Dim intControl as Integer
intControl = 0

Starte Countdown

Abfragen ob Button bestätigt wurde (wenn ja --> intControl = 1)

If intControl = 0 Then
     
     Führe alle Befehle für automatisierten Vorgang durch

Else
     End
End if
Mitglied: bastla
bastla 25.02.2008 um 15:19:28 Uhr
Goto Top
Hallo Cyberops!

Vielleicht wie hier beschrieben ...

Grüße
bastla
Mitglied: Cyberops
Cyberops 25.02.2008 um 16:00:50 Uhr
Goto Top
Merci für den Tipp

so in etwa hab ich es jetzt auch gelöst

Sub Auto_open()

     Dim SH As Object
     Dim intControl As Integer
     Set SH = CreateObject("WScript.Shell")  
    
     intControl = SH.Popup("Automatischer Durchlauf nicht initialisieren --> OK drücken", 5, "Achtung", 48)  

     If intControl = 1 Then
          Userform laden
     Else
          Automatische Prozedur starten
     End If
End Sub

Merci nochmals für eure Hilfe

Gruss,

Cyberops
Mitglied: bastla
bastla 25.02.2008 um 16:29:27 Uhr
Goto Top
Hallo Cyberops!

Deine Lösung gefällt mir besser. face-smile

Grüße
bastla