Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Kann man Text (Zellinhalt) blinken lassen

Kann man Text (Zellinhalt) blinken lassen
29.11.2008 13:20:41
Macro
Hi,
ich möchte von einer Userform mit einem Butten eine Zelle anfahren , zB A10 (aktiv machen oder curser dort rein setzen) und dann den Inhalt dieser Zelle, also, den Text blinken lassen. (so ungefähr 5 Sekunden oder 2-3 mal blinken).
Falls das nicht geht, kann man die Zelle irgend wie zum blinken bringen ?
Geht sowas ? wenn ja, wie ?
Danke mal
Marko
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Kann man Text (Zellinhalt) blinken lassen
29.11.2008 14:08:06
Daniel
Hi
um eine Zelle kurz blinken zu lassen (nicht Dauerhaft, weil die Eingabe wärend des Makrolaufs blockiert ist), kannst du folgenden Code verwenden:

Sub Blinken()
Const AnzahlBlinken = 3
Const Pause = 0.35
Const BlinkFarbe = 6
Dim OrgFarbe As Integer
Dim i As Long
Dim T As Single
With ActiveCell.Interior
OrgFarbe = .ColorIndex
For i = 1 To AnzahlBlinken
.ColorIndex = BlinkFarbe
T = Timer + Pause
Do Until Timer > T: Loop
.ColorIndex = OrgFarbe
T = Timer + Pause
Do Until Timer > T: Loop
Next
End With
End Sub


Gruß, Daniel

Anzeige
AW: Kann man Text (Zellinhalt) blinken lassen
29.11.2008 14:12:23
Tino
Hallo,
so müsste es mit der aktiven Zelle gehen.
Option Explicit
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Zelle_Blinken()
Dim iFarbe As Integer, i As Integer
    iFarbe = ActiveCell.Font.ColorIndex

For i = 1 To 5
 If i Mod 2 = 1 Then ActiveCell.Font.ColorIndex = 3
 If i Mod 2 = 0 Then ActiveCell.Font.ColorIndex = iFarbe
 Sleep 300
 DoEvents
Next i
ActiveCell.Font.ColorIndex = iFarbe

End Sub


Gruß Tino

Anzeige
Danke noch zur spären Stunde
29.11.2008 22:54:42
Macro
.. Hi, danke an Euch drei,
Beispiele haben weiter geholfen.
Wünsche Gute Nacht.
Marko
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Text in Excel blinken lassen


Schritt-für-Schritt-Anleitung

Um eine Zelle in Excel blinken zu lassen, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen. Diese Methode verwendet VBA (Visual Basic for Applications), um den gewünschten Effekt zu erzielen.

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Klicke auf "Einfügen" und wähle "Modul", um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub Blinken()
       Const AnzahlBlinken = 3
       Const Pause = 0.35
       Const BlinkFarbe = 6
       Dim OrgFarbe As Integer
       Dim i As Long
       Dim T As Single
       With ActiveCell.Interior
           OrgFarbe = .ColorIndex
           For i = 1 To AnzahlBlinken
               .ColorIndex = BlinkFarbe
               T = Timer + Pause
               Do Until Timer > T: Loop
               .ColorIndex = OrgFarbe
               T = Timer + Pause
               Do Until Timer > T: Loop
           Next
       End With
    End Sub
  4. Schließe den VBA-Editor und kehre zu deinem Excel-Dokument zurück.

  5. Wähle die Zelle aus, die blinken soll (z.B. A10).

  6. Führe das Makro aus (drücke ALT + F8, wähle Blinken und klicke auf "Ausführen").

Jetzt sollte die Zelle blinken! Diese Methode funktioniert gut, um die Aufmerksamkeit auf eine spezifische Zelle zu lenken.


Häufige Fehler und Lösungen

  • Fehler: Makro funktioniert nicht.

    • Lösung: Stelle sicher, dass Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen und aktiviere die Option, die Makros zulässt.
  • Fehler: Zelle blinkt nicht.

    • Lösung: Überprüfe, ob die richtige Zelle aktiv ist, bevor du das Makro ausführst. Die aktive Zelle ist diejenige, die blinken wird.

Alternative Methoden

Wenn du die blinkende Zelle in Excel ohne VBA oder Makros erstellen möchtest, sind die Möglichkeiten begrenzt. Eine Lösung könnte sein, die Zelle manuell in verschiedenen Farben zu formatieren, um den Eindruck des Blinkens zu erzeugen.

Eine andere Möglichkeit ist die Verwendung von bedingten Formatierungen, allerdings kann dies den blinzelnden Effekt nicht direkt nachahmen. Hierbei kannst du jedoch festlegen, dass eine Zelle abhängig von bestimmten Bedingungen ihre Farbe ändert.


Praktische Beispiele

  • Blinkende Zelle mit VBA: Nutze den oben genannten VBA-Code, um eine einzelne Zelle blinken zu lassen.

  • Blinkende Schrift: Du kannst den Text in einer Zelle durch Ändern der Schriftfarbe ebenfalls blinken lassen. Ändere die Farbe der Schrift im VBA-Code ähnlich wie im Code für die Hintergrundfarbe.

Sub SchriftBlinken()
    Const AnzahlBlinken = 5
    Dim i As Long
    Dim OrgFarbe As Long
    OrgFarbe = ActiveCell.Font.Color

    For i = 1 To AnzahlBlinken
        ActiveCell.Font.Color = RGB(255, 0, 0) ' Rot
        Application.Wait Now + TimeValue("00:00:01")
        ActiveCell.Font.Color = OrgFarbe
        Application.Wait Now + TimeValue("00:00:01")
    Next i
End Sub

Tipps für Profis

  • Experimentiere mit verschiedenen Farben: Du kannst die Blinkfarbe im VBA-Code anpassen, um unterschiedliche Effekte zu erzielen.
  • Einstellen der Blinkgeschwindigkeit: Ändere die Pause-Konstante im Code, um die Blinkgeschwindigkeit zu erhöhen oder zu verringern.
  • Verwende DoEvents: Dies kann helfen, die Excel-Anwendung reaktionsfähiger zu gestalten, während das Makro läuft.

FAQ: Häufige Fragen

1. Kann ich die blinkende Zelle in Excel ohne Makros erstellen? Leider ist es ohne VBA schwierig, eine Zelle zum Blinken zu bringen. Bedingte Formatierungen können helfen, aber der Blinzel-Effekt wird nicht erreicht.

2. Wie kann ich eine blinkende Schrift erstellen? Du kannst den Text in einer Zelle mithilfe von VBA ändern, sodass die Schriftfarbe blinkt. Ein Beispielcode findest du im Abschnitt "Praktische Beispiele".

3. Welche Excel-Version benötige ich für diese Methoden? Die oben beschriebenen Methoden funktionieren in Excel-Versionen, die VBA unterstützen, einschließlich Excel 2010, 2013, 2016, 2019 und Microsoft 365.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige