Office: Eine Zelle blinken lassen

Wünsche einen schönen Sonntag in die Runde. Ich habe einen VBA Code, um eine Zelle blinken zu lassen. Nun kann ich das Blinken nur im VBA Code starten. Ich hatte mir vorgestellt, dass wenn ich das Tabellenblatt öffne, die Blinkfunktion aktiviert wird, und beim Schließen der Tabelle die Blinkfunktion deaktiviert wird. Mit meinem bisherigen Code funktioniert das aber nicht. Hat jemand eine Idee wie ich den Code verändern muss, um die gewünschte Funktion zu erhalten?

PHP:

Dim NextFlash As Double
Dim BlinkState As Boolean
Const BlinkIntervalSeconds As Double = 0.8  ' Intervall in Sekunden
Const BlinkRange As String = "A1"          ' Zelle, die blinken soll
Public Sub StartBlink()
'''Private Sub Worksheet_Activate()
    BlinkState = Not BlinkState
    If BlinkState Then
        Range(BlinkRange).Interior.Color = RGB(255, 0, 0) ' Rot
    Else
        Range(BlinkRange).Interior.ColorIndex = xlNone    ' Keine Farbe
    End If
    ' Umrechnung: 1 Tag = 24*60*60 = 86400 Sekunden
    NextFlash = Now + BlinkIntervalSeconds / 86400
    Application.OnTime NextFlash, "StartBlink"
End Sub
Public Sub StopBlink()
'''Private Sub Worksheet_Deactivate()
    On Error Resume Next
    Application.OnTime NextFlash, "StartBlink", True   '  False
    Range(BlinkRange).Interior.ColorIndex = xlNone
End Sub



 

Moin!
Dann musst Du den Aufruf halt ins Workbook_Open oder ins Workbook_Activate setzen oder deren Worksheet-Entsprechungen:
Call StartBlink

By the way:
Dass Du die Mappe damit gehörig ausbremst, sollte Dir bewusst sein.
Übrigens ist heute nicht Sonntag …

Gruß Ralf

 

schaue hier
VBA blinken Open-Ereignis