wie kann ich den Text von mehreren bestimmten Zellen blinken lassen, bis in Zelle A1 z.B.: Der Wert: "Vielen Dank!" erscheint.
Gruß
Maris
Dim NextTime As Date
Sub Flash()
NextTime = Now + TimeValue("00:00:01")
Dieser Cod funktioniert leider nicht! Wenn die Bedingung erfüllt ist schaltet er nicht ab.
With Cells(5, 2).Font
If .ColorIndex = 2 Then .ColorIndex = 3 Else .ColorIndex = 2
End With
Application.OnTime NextTime, "Flash"
End Sub
Sub StopIt()
Application.OnTime NextTime, "Flash"
Application.OnTime NextTime, "Flash", schedule:=False
Cells(5, 2).Font.ColorIndex = xlAutomatic
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Calculate
If Cells(21, 15).Value "Thank you!" Then
Flash
Else
StopIt
End If
End Sub