Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

Zeitgebundene Abfrage

Frage Entwicklung VB for Applications

Mitglied: Cyberops

Cyberops (Level 1) - Jetzt verbinden

25.02.2008, aktualisiert 16:29 Uhr, 3645 Aufrufe, 5 Kommentare

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
Mitglied: misterdemeanor
25.02.2008 um 13:42 Uhr
Hi,

schaue in der Excel-VBA Hilfe mal nach Wait.

BG, Felix -misterdemeanor-
Bitte warten ..
Mitglied: Cyberops
25.02.2008 um 14:36 Uhr
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:

01.
Dim intControl as Integer 
02.
intControl = 0 
03.
 
04.
Starte Countdown 
05.
 
06.
Abfragen ob Button bestätigt wurde (wenn ja --> intControl = 1) 
07.
 
08.
If intControl = 0 Then 
09.
      
10.
     Führe alle Befehle für automatisierten Vorgang durch 
11.
 
12.
Else 
13.
     End 
14.
End if 
15.
 
16.
 
Bitte warten ..
Mitglied: bastla
25.02.2008 um 15:19 Uhr
Hallo Cyberops!

Vielleicht wie hier beschrieben ...

Grüße
bastla
Bitte warten ..
Mitglied: Cyberops
25.02.2008 um 16:00 Uhr
Merci für den Tipp

so in etwa hab ich es jetzt auch gelöst

01.
Sub Auto_open() 
02.
 
03.
     Dim SH As Object 
04.
     Dim intControl As Integer 
05.
     Set SH = CreateObject("WScript.Shell") 
06.
     
07.
     intControl = SH.Popup("Automatischer Durchlauf nicht initialisieren --> OK drücken", 5, "Achtung", 48) 
08.
 
09.
     If intControl = 1 Then 
10.
          Userform laden 
11.
     Else 
12.
          Automatische Prozedur starten 
13.
     End If 
14.
End Sub
Merci nochmals für eure Hilfe

Gruss,

Cyberops
Bitte warten ..
Mitglied: bastla
25.02.2008 um 16:29 Uhr
Hallo Cyberops!

Deine Lösung gefällt mir besser.

Grüße
bastla
Bitte warten ..
Ähnliche Inhalte
Monitoring
Abfrage Netzwerkdruckerstatus (13)

Frage von phil905 zum Thema Monitoring ...

Datenbanken
gelöst MYSQL Abfrage Werte summieren (3)

Frage von Ghost108 zum Thema Datenbanken ...

Windows Server
gelöst SCCM2012 Abfrage eines Registry Wertes (5)

Frage von busteron zum Thema Windows Server ...

C und C++
gelöst IF Abfrage funktioniert nicht mehr (2)

Frage von pablovic zum Thema C und C ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

(3)

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(8)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Windows 10
Seekrank bei Windows 10 (18)

Frage von zauberer123 zum Thema Windows 10 ...

Monitoring
Netzwerk-Monitoring Software (18)

Frage von Ghost108 zum Thema Monitoring ...

Windows 10
Windows 10 Fall Creators Update Fehler (13)

Frage von ZeroCool23 zum Thema Windows 10 ...

Router & Routing
gelöst Getrenntes Routing bei VoIP und Daten (12)

Frage von Hobbystern zum Thema Router & Routing ...