Note: The other languages of the website are Google-translated. Back to English
Einloggen  \/ 
x
or
x
Registrieren  \/ 
x

or

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

Hinweis: 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 Developer > 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 in 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.


Die besten Tools für die Office-Produktivität

Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%

  • Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
  • Super Formula Bar (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
  • Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
  • Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
  • Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
  • Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
  • Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
  • Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
  • Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2019 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. Vollständige Funktionen 30 Tage kostenlose Testversion. 60 Tage Geld-zurück-Garantie.
kte tab 201905

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.
  • Erhöht Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!
officetab unten
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    shalim · 7 months ago
    how to make flashing specific cell containing specific Text only ?

  • To post as a guest, your comment is unpublished.
    connie · 1 years ago
    not working,

    Please help
  • To post as a guest, your comment is unpublished.
    Shreenivas AK · 1 years ago
    when protect the sheet this code not working
  • To post as a guest, your comment is unpublished.
    mekka · 2 years ago
    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
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Hi mekka,
      Sorry can't help you with that. Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    baburaj.sasco@gmail.com · 2 years ago
    How can I put a condition to blink certain cells if its value is below a limit, say below 30, without using the button. Also, i will be using a protected sheet. Thanks in advance for your help.
  • To post as a guest, your comment is unpublished.
    Sam · 2 years ago
    How do i change this to sheet 1?
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      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")
  • To post as a guest, your comment is unpublished.
    SUNARYANTO · 2 years ago
    MANTEB GAN
  • To post as a guest, your comment is unpublished.
    alassail.survey@gmail.com · 3 years ago
    Working. good
    But after protecting my sheet LOCK & Hidden ( except blinking cell ) it's not working.
    Anyone plz help me solve this issue.
  • To post as a guest, your comment is unpublished.
    Rashid Imam · 3 years ago
    Hi,
    it's working well but when I am protecting my sheet then blinking is not working showing debug msg.
    • To post as a guest, your comment is unpublished.
      crystal · 2 years ago
      Good day,
      Please try the following code.

      Sub StartBlink()
      Dim xCell As Range
      Dim xTime As Variant
      On Error Resume Next
      Set xCell = Range("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
  • To post as a guest, your comment is unpublished.
    Dayle · 3 years ago
    How do I include this code in the following so I don't need buttons but the blinking starts automatically on the workbook opening?

    Private Sub Workbook_Open()

    ' code here

    End Sub
    • To post as a guest, your comment is unpublished.
      crystal · 3 years ago
      Hi Dayle,
      Please put this code into the ThisWorkbook window.

      'Put in“ThisWorkbook”window
      Private Sub Workbook_Open()
      StarBlink
      End Sub

      Put the below code into the Module window. And then save the workbook as an Excel Macro-enabled Workbook. Hope I can help. Thanks for your comment.

      'Start blinking
      Sub StarBlink()
      Dim xCell As Range
      Dim xTime As Variant
      Set xCell = Range("A1")
      With ThisWorkbook.Worksheets("Sheet1").Range("A1").Font
      If xCell.Font.Color = vbRed Then
      xCell.Font.Color = vbWhite
      Else
      xCell.Font.Color = vbRed
      End If
      End With
      xTime = Now + TimeSerial(0, 0, 1)
      Application.OnTime xTime, "" & ThisWorkbook.Name & "!StarBlink", , True
      End Sub
      'Stop blinking
      Sub StopBlink()
      xTime = Now + TimeSerial(0, 0, 1)
      Application.OnTime EarliestTime:=xTime, Procedure:="" & ThisWorkbook.Name & "!StarBlink", Schedule:=False
      End Sub
  • To post as a guest, your comment is unpublished.
    Rafi · 3 years ago
    Working... Great
  • To post as a guest, your comment is unpublished.
    Hana · 4 years ago
    How can it make a random cell blink in a certain range?
  • To post as a guest, your comment is unpublished.
    Geoff Culbertson · 4 years ago
    Could this blinking text be applied to a condition. i.e. if a date is reached or is approaching on one worksheet, a cell on a cover/menu sheet flashes
  • To post as a guest, your comment is unpublished.
    Ken · 4 years ago
    This code will not stop the blinking it get stuck. What am I doing wrong?