Direkt zum Inhalt

Wie kann ich Text einer bestimmten Zelle in Excel blinken oder flashen?

Wie wäre es, wenn Sie den Text dieser Zelle blinken lassen, um eine bestimmte Zelle in Ihrem Arbeitsblatt hervorzuheben? Dieser Artikel zeigt Ihnen, wie Sie den Text einer bestimmten Zelle in Excel blinken lassen.

Blinkender oder blinkender Text der angegebenen Zelle mit VBA-Code

Blinkender oder blinkender Text der angegebenen Zelle mit VBA-Code

Gehen Sie wie folgt vor, um den Text einer bestimmten Zelle in Excel zu blinken.

1. Drücken Sie Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden Code und fügen Sie ihn in das Codefenster ein.

VBA-Code: Blinkender Text der angegebenen Zelle in Excel

Sub StartBlink()
'Updated by ExtendOffice 20181010
    Dim xCell As Range
    Dim xTime As Variant
      On Error Resume Next
    Set xCell = Range("Sheet2!A1")
  On Error Resume Next
   
        If xCell.Font.Color = vbRed Then
            xCell.Font.Color = vbWhite
        Else
            xCell.Font.Color = vbRed
        End If
    xTime = Now + TimeSerial(0, 0, 1)
    Application.OnTime xTime, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub

Note: In diesem VBA-Code geben Sheet2 und A1 an, dass der Text in Zelle A1 von Sheet2 in der aktuellen Arbeitsmappe blinkt.

3. Drücken Sie die Taste Andere + Q Tasten gleichzeitig zum Schließen der Microsoft Visual Basic für Applikationen Fenster.

Jetzt benötigen Sie eine Taste, um das Blinken zu starten und zu stoppen.

4 Klicken Entwickler:in / Unternehmen > Insert > Schaltfläche (Formularsteuerung). Siehe Screenshot:

5. Zeichnen Sie eine Schaltfläche in Ihr Arbeitsblatt und dann eine Makro zuweisen Das Dialogfeld wird angezeigt. Klicken Sie auf StartBlink der Makro Name Feld, und klicken Sie dann auf OK Taste. Siehe Screenshot:

6. Klicken Sie mit der rechten Maustaste auf die eingefügte Schaltfläche und klicken Sie auf Text bearbeiten aus dem Kontextmenü. Ändern Sie dann den Schaltflächentext in den gewünschten Text, z. B. Start / Stop Blinking.

Wenn Sie von nun an auf die Schaltfläche klicken, beginnt der Text der Zelle A1 zu blinken. Wenn Sie erneut auf die Schaltfläche klicken, blinkt der Text der Zelle A1 nicht mehr.

Beste Office-Produktivitätstools

🤖 Kutools KI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Erstellen Sie benutzerdefinierte Formeln  |  Analysieren Sie Daten und erstellen Sie Diagramme  |  Rufen Sie Kutools-Funktionen auf...
Beliebte Funktionen: Suchen, markieren oder identifizieren Sie Duplikate   |  Leere Zeilen löschen   |  Kombinieren Sie Spalten oder Zellen, ohne Daten zu verlieren   |   Runde ohne Formel ...
Super-Lookup: VLookup mit mehreren Kriterien  |   VLookup mit mehreren Werten  |   VLookup über mehrere Blätter hinweg   |   Unscharfe Suche ....
Erweiterte Dropdown-Liste: Erstellen Sie schnell eine Dropdown-Liste   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Fügen Sie eine bestimmte Anzahl von Spalten hinzu  |  Spalten verschieben  |  Schalten Sie den Sichtbarkeitsstatus ausgeblendeter Spalten um  |  Vergleichen Sie Bereiche und Spalten ...
Ausgewählte Funktionen: Rasterfokus   |  Designansicht   |   Große Formelleiste   |  Arbeitsmappen- und Blattmanager   |  Ressourcen (Autotext)   |  Datumsauswahl   |  Arbeitsblätter kombinieren   |  Zellen verschlüsseln/entschlüsseln   |  Senden Sie E-Mails nach Liste   |  Superfilter   |   Spezialfilter (Filter fett/kursiv/durchgestrichen...) ...
Top 15 Toolsets:  12 Text Tools (Text hinzufügen, Zeichen entfernen, ...)   |   50+ Chart Typen (Gantt-Diagramm, ...)   |   40+ Praktisch Formeln (Berechnen Sie das Alter basierend auf dem Geburtstag, ...)   |   19 Einfügen Tools (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Umwandlung (Conversion) Tools (Zahlen zu Wörtern, Currency Conversion, ...)   |   7 Zusammenführen & Teilen Tools (Erweiterte Zeilen kombinieren, Zellen teilen, ...)   |   ... und mehr

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, um die Produktivität zu steigern und Zeit zu sparen.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...

Beschreibung

Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich

  • Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
  • Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
Comments (27)
No ratings yet. Be the first to rate!
Malek
Malek
This comment was minimized by the moderator on the site
Sheet name Summary and column O

i would like to have a code to make the cell flash red/white on due date. Can someone please help?
Reply
0
0
crystal
crystal     Malek
This comment was minimized by the moderator on the site
Hi Malek,
The user Sanjeev Raghavan asked a question similar to yours, you can check the replies and see if it solves your problem.
@Sanjeev Raghavan
Reply
Report
0
0
Malek
Malek     Malek
This comment was minimized by the moderator on the site
is it possible to make it without a button and auto ran?
Reply
0
0
Sanjeev Raghavan
Sanjeev Raghavan
This comment was minimized by the moderator on the site
Thank you Crystal. Let me try and get back to you.
Reply
0
0
Sanjeev Raghavan
Sanjeev Raghavan
This comment was minimized by the moderator on the site
Hello,
I am looking for solution to flash / blink a range of cells approaching a future date, say in one week. I mean something like a purchase order delivery date is 30 August. I would like to start flashing the cells by 25th August onwards and even after 30 August till it is delivered.
Can someone give me a solution?
Thank you,
Sanjeev.
Reply
0
0
crystal
crystal     Sanjeev Raghavan
This comment was minimized by the moderator on the site
Hi Sanjeev Raghavan,
The following VBA code can do you a favor. In the code, you need to change Sheet5!D2:D5 to the sheet name and the range you want to blink.

Sub StartBlink2()
'Updated by ExtendOffice 20220830
Dim xCell As Range
Dim xTime As Variant
Dim xRg As Range
Dim xWb As Workbook
On Error Resume Next
Dim xToday
Set xCell = Range("Sheet5!D2:D5") 'If there are spaces in your sheet name, enclose the sheet name in single quotes. If no space exists, enter the sheet name without the signe quotes
'On Error Resume Next
xToday = Now()
For Each xRg In xCell
If (xRg - xToday > -1) And (xRg - xToday <= 5) Then
If xRg.Font.Color = vbRed Then
xRg.Font.Color = vbWhite
Else
xRg.Font.Color = vbRed
End If
Else
xRg.Font.Color = vbBlack
End If
Next
Set xWb = xCell.Worksheet.Parent
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & xWb.Name & "'!StartBlink2", , True
End Sub
Reply
Report
0
0
Lokesh
Lokesh
This comment was minimized by the moderator on the site
Hi I need to do the same for the duplicate cell value in selected column where cell value will blink if the duplicate value appeared in excel
Reply
0
0
jass
jass
This comment was minimized by the moderator on the site
how can i create flash blink for my time sheet .where the cell contain time above 10 hours .please suggest
Reply
0
0
crystal
crystal     jass
This comment was minimized by the moderator on the site
Hi jass,
The following VBA code may solve your problem. Please give it a try.
Don't forget to change the sheet name and the hours range in the code.

Sub StartBlink()
'Updated by ExtendOffice 20220707
Dim xCell As Range
Dim xTime As Variant
Dim xRg As Range
Dim xWb As Workbook
On Error Resume Next
Set xCell = Range("'blinking cells'!D2:E27") 'If there are spaces in your sheet name, enclose the sheet name in single quotes. If no space exists, enter the sheet name without the signe quotes
'On Error Resume Next
For Each xRg In xCell
If xRg >= TimeValue("10:00:00") Then
If xRg.Font.Color = vbRed Then
xRg.Font.Color = vbWhite
Else
xRg.Font.Color = vbRed
End If
Else
xRg.Font.Color = vbBlack
End If
Next
Set xWb = xCell.Worksheet.Parent
xTime = Now + TimeSerial(0, 0, 1)
Application.OnTime xTime, "'" & xWb.Name & "'!StartBlink", , True
End Sub
Reply
Report
0
0
shalim
shalim
This comment was minimized by the moderator on the site
how to make flashing specific cell containing specific Text only ?
Reply
0
0
connie
connie
This comment was minimized by the moderator on the site
not working,

Please help
Reply
0
0
Shreenivas AK
Shreenivas AK
This comment was minimized by the moderator on the site
when protect the sheet this code not working
Reply
0
0
mekka
mekka
This comment was minimized by the moderator on the site
hi, i need help in google sheets..

I need an entire row to blink if F3:F1001 contains the "STAT". the entire row should be in orange but also blinking until the the column W3:W1001's checkbox is ticked.

is it possible? can you help? pleaseeeeeeeeeeeeeee
Reply
0
0
crystal
crystal     mekka
This comment was minimized by the moderator on the site
Hi mekka,
Sorry can't help you with that. Thank you for your comment.
Reply
Report
0
0
Sam
Sam
This comment was minimized by the moderator on the site
How do i change this to sheet 1?
Reply
0
0
crystal
crystal     Sam
This comment was minimized by the moderator on the site
Hi Sam,
If you want to make cell A1 in Sheet1 or other specific worksheet blinking, please add "Sheet1!" or other worksheet name before the cell address. See the below code line:

Set xCell = Range("Sheet1!A1")
Reply
Report
0
0
There are no comments posted here yet
Load More
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations