RemotePC - Code führt nicht vollständig! PlsHelp
24.04.2014 12:18:02
Thorben
Sub Startenoderwarten()
Const bytZeit As Byte = 30
Dim objWSH As Object, intMSG As Integer
Set objWSH = CreateObject("WScript.Shell")
intMSG = objWSH.Popup("in " & bytZeit & " Sekunden startet die automatische Aktualisierung! _
Bitte auf ""Abbrechen"" drücken um den Vorgang zu beenden" & _
Space(10), bytZeit, "ACHTUNG:...", 1)
If intMSG = 2 Then Exit Sub
Set objWSH = Nothing
Application.OnTime Now + TimeValue("00:00:30"), "letsgo"
End Sub
Habe hier mal ein mittelschweres Problem.
Die Situation:
Eine Datei mit og Code in DieseArbeitsmappe
Ein Remote PC mit WinXP dessen Anmeldung nach Hochfahren über die Remote Funktion eines Win7 PC erledigt wird
Die Datei liegt auf einem Server
Der Remote PC (WinXP) hat geplante Tasks
Diese Führen die oben genannte Excel Datei aus
Das klappt auch, allerdings reagiert der Code nach dem Aufruf der MsgBox nicht weiter.
Er führt nach 30 sec. nicht aus!? Timer Bug?
Auch wenn ich die Datei manuell öffne kommt zwar die Meldung aber das wars dann.
Es ist Excel 2010 installiert.
Kann unter XP der og Code so nicht ausgeführt werden?
Hat hier jemand eine Idee was das sein kann?
Danke schonmal im Voraus.
MfG
Thorben