✔ Timer Warten bis erstes Prgramm geschlossen ist

[DeeForce]

Hallo

Ich habe hier ein kleines Programm das einmal eine Excel Tabelle öffnet und wieder schließt.
Das gleich auch bei Word.
Jetzthabe ich das Problem wenn ich beide einschalte das sie sich überschneiden.
Meine Frage gibt es eine möglichkeit den zweiten Timer erst zu starten wenn die Excel Tabelle geschloßen ist und natürlic andersherum auch.



Private Sub command4_Click()

Me.Timer1.Enabled = False
Me.WindowState = vbMinimized

End Sub

'Start Timer 1
Private Sub Command1_Click()

Timer1.Interval = 10000 '10 sec
Timer1.Enabled = True
Me.WindowState = vbMinimized

End Sub

Private Sub Command3_Click()
Me.Timer2.Enabled = False
Me.WindowState = vbMinimized

End Sub

'Start Timer 2

Private Sub Command2_Click()

Timer2.Interval = 20000 '20 sec
Timer2.Enabled = True
Me.WindowState = vbMinimized

End Sub

Private Sub Timer1_Timer()

Static wechsel As Boolean
Static programmid As Variant

'Programm Starten

If wechsel = 0 Then

wechsel = True
'ProgrammID =shell("calc.exe",vbmaximizedfocus

'Bsp.Excel
programmid = Shell("c:\Programme\Microsoft office\office11\excel.exe ""M:\DATEN\FW\Planung\Produktionsplanung 11.02.2008.xls""", vbMaximizedFocus)
AppActivate programmid

'Programm beenden
Else

Print App.Comments
wechsel = 0

AppActivate programmid
SendKeys "%{F4}"

End If

End Sub

Private Sub Timer2_Timer()

Static wechsel As Boolean
Static programmid As Variant

'Programm Starten
If wechsel = 0 Then

wechsel = True
'Programmid=shell("calc.exe",vbmaximizedfocus)

'Bsp.Word
programmid = Shell("C:\programme\Microsoft office\office11\winword.exe ""M:\daten\fw\info visualisierung\Info aktuell.doc""", vbMaximizedFocus)
AppActivate programmid

'Programm beenden
Else

Print App.Comments
wechsel = 0

AppActivate programmid
SendKeys "%{F4}"

End If


End Sub