Viele Benutzer verwenden die bedingten Formatierungsfunktionen von Excel, um auf bestimmte Werte oder Bereiche ihrer Arbeitsblätter aufmerksam zu machen. Beispielsweise kann eine Zelle so formatiert sein, dass ihr Inhalt rot oder fett angezeigt wird, wenn sie über oder unter einem bestimmten Schwellenwert liegt.

Was jedoch fehlt, ist eine Möglichkeit, den Inhalt einer Zelle zum Blinken zu bringen oder ein- und auszuschalten. Für eine solche Leistung sind Sie auf sich allein gestellt und das Wunder der Makros. Mithilfe dieser Tools können Sie Zellen zum Blinken bringen, indem Sie zuerst einen speziellen Stil für die blinkenden Zellen entwerfen und dann ein einfaches Makro ausführen.

Gehen Sie folgendermaßen vor, um den speziellen Stil zu erstellen:

  1. Wählen Sie die Zelle aus, die Sie ein- und ausschalten möchten. (Stellen Sie sicher, dass die Zelle etwas enthält; sie sollte nicht leer sein.)

  2. Stellen Sie sicher, dass die Registerkarte Start in der Multifunktionsleiste angezeigt wird.

  3. Klicken Sie in der Gruppe Stile auf Zellenstile. Excel zeigt eine Auswahl vordefinierter Stile an.

  4. Wählen Sie Neuer Zellenstil. Excel zeigt das Dialogfeld Stil an. (Siehe Abbildung 1.)

  5. Geben Sie im Feld Stilname den Namen „Blinkend“ ein (ohne Anführungszeichen).

  6. Ändern Sie mithilfe der Steuerelemente im Dialogfeld die gewünschten Attribute für den Stil.

  7. Klicken Sie auf OK.

Mit dem jetzt definierten Stil müssen Sie diesen Stil auf alle Zellen anwenden, die Sie „flashen“ möchten. Stellen Sie sicher, dass Sie den Stil nicht auf andere Zellen anwenden.

Erstellen Sie nun die Makros (es gibt zwei davon) wie folgt:

Dim NextTime As Date

Sub StartFlash()

NextTime = Now + TimeValue("00:00:01")

With ActiveWorkbook.Styles("Flashing").Font         If .ColorIndex <> 2 And .ColorIndex <> 3 Then             .ColorIndex = 3         End If         .ColorIndex = 5 - .ColorIndex     End With     Application.OnTime NextTime, "StartFlash"

End Sub
Sub StopFlash()

Application.OnTime NextTime, "StartFlash", schedule:=False     ActiveWorkbook.Styles("Flashing").Font.ColorIndex = xlAutomatic End Sub

Führen Sie einfach StartFlash aus, um das Blinken der Elemente zu starten. Die mit dem blinkenden Stil formatierten Zellen wechseln ungefähr einmal pro Sekunde zwischen rotem und weißem Text. Wenn Sie das Blinken ausschalten möchten, führen Sie einfach das StopFlash-Makro aus.

Das Makro ändert den zuvor in diesem Tipp definierten Stil. (Stellen Sie unbedingt sicher, dass Sie den Stil „Flashing“

wie in Schritt 5 angegeben benennen.) Sie müssen lediglich die ColorIndex-Eigenschaft so ändern, dass zwischen zwei Werten gewechselt wird – 3 und 2. Diese Änderung im Stil führt zu einem Blinkeffekt, wenn sich die Textfarbe von Rot (3) zu Weiß (2) und wieder zurück ändert.

Bei diesem Makro ist noch eine weitere wichtige Sache zu beachten: Die Variable NextTime wird außerhalb der tatsächlichen Prozedur deklariert, in der sie verwendet wird. Dies geschieht, damit NextTime seinen Wert von einem Aufruf von StartFlash zum nächsten beibehält. Mit diesem Wert wird angegeben, wann StartFlash das nächste Mal (eine Sekunde in der Zukunft) erneut ausgeführt werden soll.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (7223) gilt für Microsoft Excel 2007, 2010, 2013, 2016, 2019 und Excel in Office 365. Eine Version dieses Tipps für die ältere Menüoberfläche von Excel finden Sie hier:

Blinkende Zellen.