Hallöchen,
beachte vor allem den Smilie in der Antwort
Spaß beiseite, dafür noch ein Hinweis. Wenn das Blinken nicht unbedingt erforderlich ist, kannst Du eventuell auch mit der bedingten Formatierung das Fehlen von Daten deutlich hervorheben.
Eine VBA-Lösung setzt immer voraus, dass der Anwender die Makros auch ausführen will und darf. Zudem ist das Blinken wegen der regelmäßigen und dauerhaften Ausführung auch nicht ganz ohne, wenn es um die Performance geht.
Wenn es unbedingt das Blinken sein soll, könntest Du eventuell eine Kombination aus "Zeitmakro" und bedingter Formatierung verwenden. In eine "Hilfszelle" trage ich die aktuelle Minute ein und in Abhängigkeit davon und dem Zellinhalt von B1 färbt sich die Zelle B1 dann im Minutentakt. Die bedingte Formatierung nimmst Du dann natürlich in alle "blinkenden" Zellen.
Den code könnte man dann noch so ausbauen, dass er nur läuft, wenn das Blatt mit den blinkenden Zellen aktiv ist.
Code:
Sub Zeitmakro()
ThisWorkbook.Worksheets("Tabelle1").Range("A1") = Format(Now, "nn")
ET = Now + TimeValue("00:01:00")
Application.OnTime ET, "Zeitmakro"
End Sub
Arbeitsblatt mit dem Namen 'Tabelle2' |
| A | B |
1 | 33 | |
Zelle | bedingte Formatierung... | Format |
B1 | 1: =UND(REST(A1;2)=1;B1="") | abc |
Diese Tabelle wurde mit Tab2Html (v2.5.0) erstellt. ©Gerd alias Bamberg |