Hallo,
wie kann man bei Application.Wait(Now + TimeValue(„0:00:10“)) den Wert in TimeValue, von zB. der Zelle A1 abrufen. Also das man in A1 diese 0:00:10 eingeben kann?
Danke für jede Hilfe
Xen55
wie kann man bei Application.Wait(Now + TimeValue(„0:00:10“))
den Wert in TimeValue, von zB. der Zelle A1 abrufen. Also das
man in A1 diese 0:00:10 eingeben kann?
Hi Xen,
ich benutze wait nicht, wie wärs mit:
Option Explicit
Declare Sub Sleep Lib „kernel32“ (ByVal dwMilliseconds As Long)
Sub tt()
Range(„A1“) = 3000 ’ Millisekunden
Sleep Range(„A1“)
End Sub
Gruß
Reinhard
Hallo Reinhard.
Soweit funktioniert alles.
Frage: Was ist denn der genaue Unterschied zu Application.Wait(Now + TimeValue(„0:00:10“)) ?
Gibt es eine Möglichkeit das während des „Wartens“ nicht die ganze Excelmappe wartet, sondern das dieses Warten im Hintergrund stattfinden?
Mein eigentliches Ziel war es das dieses Makro einfach nur bestimmte Sekunden wartet bevor es dann einen Ton abgibt, falls möglich aber nicht alles aufhält. Gibt es da eine Lösung?
Gruß Xen55
Hi Xen,
Soweit funktioniert alles.
Frage: Was ist denn der genaue Unterschied zu
Application.Wait(Now + TimeValue(„0:00:10“)) ?
K.A. wenn ich das wüßte hätte ich den Lvel bei Vba: Gut 
Gibt es eine Möglichkeit das während des „Wartens“ nicht die
ganze Excelmappe wartet, sondern das dieses Warten im
Hintergrund stattfinden?
Mein eigentliches Ziel war es das dieses Makro einfach nur
bestimmte Sekunden wartet bevor es dann einen Ton abgibt,
falls möglich aber nicht alles aufhält. Gibt es da eine
Lösung?
Ungetestet, starte über shell() eine 2te Excelinstanz in der du dann eine Mappe aufrufst die beim Öffnen über Workbbooks_Open diese Zeitverzögerung ablaufen lässt und dann was „macht“.
In der Zwischenzeit müßtest du in der ersten Excelinstanz ungehindert weiterarbeiten können.
Makros einer anderen mappe müßte man auch über „Run“ starten können.
Gruß
Reinhard
Hi Reinhard,
danke für den Tip, jedoch weiß ich nicht genau wie man eine 2te Excelinstanz über shell()aufruft. Mit Shell(pathname[,windowstyle]) kann man ein Programm ausführern… Was ist genau eine 2te Excelinstanz? oder eine ExcelinstanzUnd? Wie kann ich in der Instanz eine Mappe aufrufen?
Gruß
Xen
Ungetestet, starte über shell() eine 2te Excelinstanz in der
du dann eine Mappe aufrufst die beim Öffnen über
Workbbooks_Open diese Zeitverzögerung ablaufen lässt und dann
was „macht“.
In der Zwischenzeit müßtest du in der ersten Excelinstanz
ungehindert weiterarbeiten können.
Makros einer anderen mappe müßte man auch über „Run“ starten
können.
Gruß
Reinhard
danke für den Tip, jedoch weiß ich nicht genau wie man eine
2te Excelinstanz über shell()aufruft. Mit
Shell(pathname[,windowstyle]) kann man ein Programm
ausführern… Was ist genau eine 2te Excelinstanz? oder eine
ExcelinstanzUnd? Wie kann ich in der Instanz eine Mappe
aufrufen?
Hi Xen,
beim 2ten Start von Excel hast du die 2te Excelinstanz.
ungetestet:
Die Datei „Zeitmappe.xls“ hat in „Modul1“ das Makro „Zeitmakro“
Option Explicit
Sub tt()
Dim Oeffne, Mappe, Programm
Programm = "c:\programme\microsoft office\office\excel.exe"
Mappe = ThisWorkbook.Path & "\" & "Zeitmappe.xls"
MsgBox Mappe
Oeffne = Shell(Programm & " " & Mappe, vbMinimizedNoFocus)
Application.Run ("Zeitmappe.xls!Zeitmakro")
End Sub
Gruß
Reinhard