Automatisch beenden auch mit Userform ?
19.11.2019 10:25:20
Alex
Hallo kann man dem Code auch sagen das er nicht nur die Aktivität in der Tabelle erkennt, sondern auch in einer Userform?
Private Sub Workbook_Open()
On Error Resume Next
neuezeit = Time + TimeSerial(0, 2, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
neuezeit = Time + TimeSerial(0, 2, 0)
Application.OnTime EarliestTime:=altezeit, Procedure:="Schließen", Schedule:=False
altezeit = neuezeit
Application.OnTime neuezeit, "Schließen"
End Sub
Anzeige