|
Hier mal die einfachste Lösung blinkende Zellen darzustellen. Ist mir grade eingefallen. Weiß nicht ob da schon jemand drauf gekommen ist. Hab jetzt nicht danach recherchiert:
Mach einfach zwei Bedingte Formatierungen mit der selben Bedingung. Die eine formatierst du z.B. mit Rotem hintergrund und weißer Schrift, die zweite mit blauem Hintergrund und grüner Schrift. Beide müssen wie gesagt die gleiche Bedingung aufweisen. Außerdem ist es hilfreich, wenn du bei beiden das Häkchen bei Anhalten setzt.
Führe dann folgen Code aus:
Sub Blink()
Dim start As Single
For i = 1 To 20
start = Timer
Do: Loop Until Timer > start + 0.33 Or Timer < start
ActiveSheet.Cells.FormatConditions(1).SetLastPriority
Next i
End Sub
Den Code kannst du entweder manuell anstoßen oder z.B. über das Workbook_Open-Ereignis aufrufen. Hier ist z.B. definiert, dass es 20 mal blinken soll mit einer Frequenz von 3 Wechseln pro Sekunde. (1 / 3 = 0,33)
Gruß Mr. K.
|