ich möchte, dass nach der entsprechenden Pause ein Fenster kommt. Wenn ich hier ok klicke, soll das ganze von vorn anfangen. wenn nicht geklickt wird, soll die Datei automatisch nach einer weiteren Pause gespeichert und geschlossen werden.
Wie bekomme ich es hin, dass das Script neu startet? Wie bekomme ich es hin, dass ohne ok-click eine 2. Prozedur abläuft?
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, _
ByVal Target As Excel.Range)
Dim Start, Ende, Pause, Start2, Pause2, Meldung
Start = Timer
Ende = Timer
Pause = 10
Do Until Timer > Start + Pause
DoEvents
Loop
Meldung = MsgBox("Keine Aktivitäten. Mappe wird demnächst automatisch gespeichert und _
geschlossen")
If Meldung = vbOK Then
Else
End If
End Sub