Public Sub StartZeit()
Zeitspanne = Now + TimeValue("00:00:30")
Application.OnTime Zeitspanne, "Ereignis"
End Sub
Public Sub StartZeit(hr As Integer, mn As Integer, sc As Integer)
zeitspanne = Now + TimeValue("" & hr & ":" & mn & ":" & sc & "")
Application.OnTime zeitspanne, "Ereignis"
End Sub
Sub zeitspanne()
MsgBox "OK"
StartZeit 0, 0, 15
End Sub
Public Sub StartZeit(hr As Integer, mn As Integer, sc As Integer)
Dim ReStart As Date
ReStart = Now + TimeValue("" & hr & ":" & mn & ":" & sc & "")
Application.OnTime ReStart, "Ereignis"
End Sub
Sub zeitspanne()
MsgBox "OK"
StartZeit 0, 0, 15
End Sub
Public Sub StartZeit(hr As Integer, mn As Integer, sc As Integer)
Dim zeitspanne As Date
zeitspanne = Now + TimeValue("" & hr & ":" & mn & ":" & sc & "")
Application.OnTime zeitspanne, "Ereignis"
End Sub
Public Sub Ereignis()
On Error Resume Next
MsgBox ("wertlos!")
End Sub
Sub StartZeit(hr As Integer, mn As Integer, sc As Integer)
Dim ReStart As Date
ReStart = Now + TimeValue("" & hr & ":" & mn & ":" & sc & "")
Application.OnTime ReStart, "Ereignis"
End Sub
Sub Ereignis()
MsgBox ("wertlos!")
End Sub
Sub zeitspanne1()
StartZeit 0, 0, 10
End Sub
Sub zeitspanne2()
Dim a As Integer, b As Integer, c As Integer
a = Range("A1").Value
b = Range("B1").Value
c = Range("c1").Value
StartZeit a, b, c
End Sub