Kann mir jemand weiterhelfen ich bin am verzweifeln? Kann so etwas sein?
Ich möchte in einem VBA-Excel eine Routine haben, die eine Auswertung, Abrechnung oder ähnliches macht dann eine Zeit wartet und diese dann wiederholt, in der Zeit des Wartens soll dann die Möglichkeit des Abbruchs bestehen. Mit reinen VBA Befehlen soll so etwas nicht gehen, deshalb VBS. die Routine habe ich in VBS getestet funktioniert bei mir unter XP,Win7/32 und Win7/64. Hier der Code:
Option Explicit
Dim W_Shell
Set W_Shell = CreateObject("WScript.Shell")
Do
' hier steht Abrechnungslauf
MsgBox "Nachricht!" ' nur zu Testzwecken
loop while (1<> W_Shell.Popup("Programm abbrechen?" ,5 , "Abrechnungslauf" , 0 )) ' Zeit auf 5s gesetzt / 0 nur OK Buttom wird angezeigt
MsgBox "Programmende"
Jetzt habe ich diesen Code in eine VBA Prozedur übertragen. Hier der Code:
Public Sub kb() ' kontinuierliches Berechnen - Hauptlauf
Dim W_Shell
Set W_Shell = CreateObject("WScript.Shell")
Do
' Auswertung
MsgBox "Nachricht"
Loop While (1 <> W_Shell.Popup("Programm abgebrechen?", 5, "Abrechnungslauf", 0))
MsgBox "Programmende"
End Sub
Diese Makro (in Excel) funktioniert jetzt noch unter XP immer, unter Win7/32 auch fast immer und unter Win7/64 mal ja mal nein
manchmal einmal manchmal vormittags mal weiten sich die 5s zu Stunden.....
Ich versteh es nicht...
Wo liegt mein Denkfehler?
Bitte um Hilfe!
Ich möchte in einem VBA-Excel eine Routine haben, die eine Auswertung, Abrechnung oder ähnliches macht dann eine Zeit wartet und diese dann wiederholt, in der Zeit des Wartens soll dann die Möglichkeit des Abbruchs bestehen. Mit reinen VBA Befehlen soll so etwas nicht gehen, deshalb VBS. die Routine habe ich in VBS getestet funktioniert bei mir unter XP,Win7/32 und Win7/64. Hier der Code:
Option Explicit
Dim W_Shell
Set W_Shell = CreateObject("WScript.Shell")
Do
' hier steht Abrechnungslauf
MsgBox "Nachricht!" ' nur zu Testzwecken
loop while (1<> W_Shell.Popup("Programm abbrechen?" ,5 , "Abrechnungslauf" , 0 )) ' Zeit auf 5s gesetzt / 0 nur OK Buttom wird angezeigt
MsgBox "Programmende"
Jetzt habe ich diesen Code in eine VBA Prozedur übertragen. Hier der Code:
Public Sub kb() ' kontinuierliches Berechnen - Hauptlauf
Dim W_Shell
Set W_Shell = CreateObject("WScript.Shell")
Do
' Auswertung
MsgBox "Nachricht"
Loop While (1 <> W_Shell.Popup("Programm abgebrechen?", 5, "Abrechnungslauf", 0))
MsgBox "Programmende"
End Sub
Diese Makro (in Excel) funktioniert jetzt noch unter XP immer, unter Win7/32 auch fast immer und unter Win7/64 mal ja mal nein
manchmal einmal manchmal vormittags mal weiten sich die 5s zu Stunden.....
Ich versteh es nicht...
Wo liegt mein Denkfehler?
Bitte um Hilfe!