Sub echtzeit()

Dim x As Date

x = [c5]
    
   If [c6] = 1 Then c = True Else c = False

    [c7].Value = Now
    
    If c = True Then Application.OnTime Now + TimeValue(x), "echtzeit" Else
   
    DoEvents
 
End Sub


Sub AN()
   
 
[c6] = 1

Application.Run "echtzeit"

End Sub


Sub AUS()

   [c6] = 0
   

End Sub
