der komplette Code einschl. Abstellen Für A1 =10 dann blinken. Sub ersteFarbe() Sub zweiteFarbe() Sub Ende() Private Sub Workbook_BeforeClose(Cancel As Boolean) Private Sub Workbook_Open() Private Sub Workbook_BeforeClose(Cancel As Boolean) Private Sub Workbook_Open() Code eingefügt mit Syntaxhighlighter 1.16 Gruß Hajo
In ein Modul
Option Explicit
Public ET As Variant
ThisWorkbook.Worksheets("Tabelle1").Range("A1").Interior.ColorIndex = 3
ET = Now + TimeValue("00:00:01")
Application.OnTime ET, "zweiteFarbe"
End Sub
ThisWorkbook.Worksheets("Tabelle1").Range("A1").Interior.ColorIndex = 33
ET = Now + TimeValue("00:00:01")
Application.OnTime ET, "ersteFarbe"
End Sub
On Error Resume Next
Application.OnTime EarliestTime:=ET, Procedure:="ErsteFarbe", Schedule:=False
Application.OnTime EarliestTime:=ET, Procedure:="zweiteFarbe", Schedule:=False
ET = ""
End Sub
in DieseArbeitsmappe
Option Explicit
Ende
End Sub
If ThisWorkbook.Worksheets("Tabelle1").Range("A1") = 10 Then ersteFarbe
End Sub
in die Tabelle
Option Explicit
Ende
End Sub
If ThisWorkbook.Worksheets("Tabelle1").Range("A1") = 10 Then ersteFarbe
End Sub