Wie lässt sich eine Zelle in Excel rot blinken?
Normalerweise heben wir Zellen mithilfe unterschiedlicher Hintergrundfarben hervor, um sie von anderen abzuheben. In diesem Artikel stelle ich jedoch einen VBA-Code vor, der bestimmte Zellen mit rotem Hintergrund blinken lässt – damit sie in Excel besonders ins Auge fallen.
Zelle mit VBA rot blinken lassen
Zelle mit VBA rot blinken lassen
Um Zellen zum Blinken zu bringen und so die Aufmerksamkeit der Benutzer zu erregen, finden Sie hier einen passenden VBA-Code.
1. Aktivieren Sie das Arbeitsblatt, in dem Sie Zellen blinken lassen möchten, und drücken Sie die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.
2. Klicken Sie auf Einfügen > Modul und fügen Sie anschließend den folgenden VBA-Code in das Modul-Skript ein. Siehe Screenshot:
VBA: Zelle rot blinken lassen
Private Sub Flash_Cells()
'UpdatebyExtendoffice20160614
Dim xColor As Integer
Dim xCount As Integer
Dim xSpeed As Double
Dim xStart As Double
Dim xDelay As Double
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Select cells", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
For Each xCell In xRg
If xCell.Value > 4 Then
xColor = 3
xSpeed = 0.6
Do Until xCount = 20
DoEvents
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xColor
Loop
xStart = Timer
xDelay = xStart + xSpeed
Do Until Timer > xDelay
DoEvents
xRg.Interior.ColorIndex = xlNone
Loop
xCount = xCount + 1
Loop
End If
Next
End Sub
3. Drücken Sie die Taste F5, und es erscheint ein Kutools für Excel-Dialogfeld, in dem Sie die Zellen auswählen können, die blinken sollen. Siehe Screenshot:
4. Klicken Sie auf OK. Die ausgewählte Zelle blinkt nun mit rotem Hintergrund.
Tipps:
(1) Im VBA-Code können Sie die Hintergrundfarbe (xColor = 3), die Blinkgeschwindigkeit (xSpeed = 0,6) und die Anzahl der Blinkvorgänge (Do Until xCount = 20) ganz nach Ihren Wünschen anpassen.
(2) Dieser VBA-Code fügt einer leeren Auswahl keinen blinkenden Hintergrund hinzu.
(3) Der blinkende Hintergrund wird automatisch entfernt, sobald die festgelegte Anzahl an Blinkzyklen abgeschlossen ist.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins