Dim TimetoRun
Dim Row As Integer
Public StopMacro As Boolean
Private Sub Worksheet_Calculate()
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$6" Then
TimetoRun = Now + TimeValue("00:00:01")
Application.OnTime TimetoRun, "Tabelle1.SetRow"
End If
End Sub
Sub SetRow()
Row = 9
StopMacro = False
TimetoRun = Now + TimeValue("00:00:01")
Application.OnTime TimetoRun, "Tabelle1.Analyse"
End Sub
Sub Analyse()
Dim Zelle As Range
Set Zelle = Cells(Row, 4)
If Zelle.Value = "" Then
Zelle.Value = Range("$D$6").Value
End If
Row = Row + 1
Set Zelle = Cells(Row, 4)
If StopMacro = True Then Exit Sub
TimetoRun = Now + TimeValue("00:00:01")
Application.OnTime TimetoRun, "Tabelle1.Analyse"
End Sub
Sub Reset()
Tabelle1.Range("D9:D1000").Clear
End Sub
Sub Halt()
StopMacro = True
End Sub
Sub Start()
If Range("K6").Value = 1 Then
TimetoRun = Now + TimeValue("00:00:01")
Application.OnTime TimetoRun, "Tabelle1.SetRow"
Else
MsgBox "Kamera Online stellen"
End If
End Sub