Makro zu bestimmten Zeiten ausführen
18.11.2006 19:00:12
Uwe
ich werkel schon seit ein paar Tagen an einem Problem und komm nicht weiter. Bitte helft mir. Ich habe folgenden Code:
Sub ZeitStart()
Dim L As Long
Dim lEnde As Long
lEnde = Range("A65536").End(xlUp).Row
' Do
For L = 2 To lEnde
Application.OnTime TimeValue(Cells(L, 1).Value), "PPT_Starten"
Next L
'Loop
End Sub
Sub PPT_Starten()
On Error GoTo Abbruch
ShellExecute 0, "open", ("O:\PLASMA\PlasmaSlides.pps"), "", "", 3
Abbruch:
End Sub
Sinn des ganzen ist, dass eine Powerpointpräsentation automatisch zu bestimmten Zeiten gezeigt werden soll (den Shell-Befehl habe ich auch hier aus dem Forum, denn so gut bin ich in VBA (noch)nicht). In Spalte A stehen also Uhrzeiten im Textformat untereinander, die der Reihe nach "abgearbeitet" werden sollen. Das funktioniert auch, allerdings wird die Powerpointpräsentation nicht nur einmal sondern mehrmals hintereinander gestartet. Komischerweise ist das manchmal nur drei/viermal und manchmal will es gar nicht aufhören. Selbst wenn ich Excel komplett schließe, läuft dann immer wieder die Präsentation an. Da hilft nur noch den Compi runterzufahren. Weiß jemand wie ich erreichen kann, dass das .pps nur einmal zur jeweiligen Uhrzeit läuft.
Hier schonmal vielen Dank für Eure Hilfe
Gruß
Uwe
(:o)