'Attribute VB_Name = "Modul1"

'von Karl-Heinz Wachler <k-hw@gmx.net>

Option Explicit
Dim NextTime As Date
Dim Zelle As Range

Private Sub Start_Blinken()
  Dim Farbe As Integer

  With Zelle.Interior
    Farbe = .ColorIndex
    If Farbe = xlNone Then
      Farbe = 3                  ' hier die Farbe einstellen
    Else
      Farbe = xlNone
    End If
    .ColorIndex = Farbe
  End With
  NextTime = Now + TimeValue("00:00:01")
  'doppelt so schnell:
  'NextTime = Now + (TimeValue("00:00:01") / 2)
  Application.OnTime NextTime, "Start_Blinken"
End Sub

Private Sub Stop_Blinken()
    Application.OnTime NextTime, "Start_Blinken", Schedule:=False
    Zelle.Interior.ColorIndex = xlNone
    Application.OnKey "{END}"
    Zelle.Clear
End Sub

Sub Blink_Test()
    Set Zelle = ActiveSheet.Range("$C$10")
    Zelle.Value = "Hilfe!"
    Start_Blinken
    MsgBox ("Jetzt blinkt's bis zum Drücken der 'Ende'-Taste !")
    Application.OnKey "{END}", "Stop_Blinken"
End Sub