Mit einer bitte wegen Ontime.
ich lasse mittels ontime eine zelle blinken.
Das soll so lange passieren bis in einer bestimmten zelle "ok" steht.
Das Blinken funktioniert auch super nur das beenden von ontime nicht :(
Würde mich sehr freuen wenn mir jemand sagen könnte was falsch an meinem Code ist.
Vielen dank im vorraus
gruß Chris
Option Explicit
Sub blink()
If Cells(1, 3).Value = "ok" Then GoTo ende
If Cells(1, 1).Interior.ColorIndex = 4 Then
Application.OnTime Now + TimeValue("00:00:02"), "jetzt0"
Else
Application.OnTime Now + TimeValue("00:00:02"), "jetzt4"
End If
Exit Sub
ende:
'Hier kommt der fehler
Application.OnTime EarliestTime:=Now + TimeValue("00:00:02"), Procedure:="jetzt0", Schedule:= _
False
Application.OnTime EarliestTime:=Now + TimeValue("00:00:02"), Procedure:="jetzt4", Schedule:= _
False
End Sub
Sub jetzt0()
Cells(1, 1).Interior.ColorIndex = 0
Call blink
End Sub
Sub jetzt4()
Cells(1, 1).Interior.ColorIndex = 4
Call blink
End Sub