Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
816to820
816to820
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Blinkende Zelle wenn Wert negativ ist

Forumthread: Blinkende Zelle wenn Wert negativ ist

Blinkende Zelle wenn Wert negativ ist
06.11.2006 12:18:32
Thorsten
Hallo,
gerne würde ich eine Zelle rot blinken lassen wenn der Wert dieser negativ ist - geht das und wenn ja wie ? Habe im Archiv leider nichts gefunden.
Vielen herzlichen Dank
Thorsten
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Blinkende Zelle wenn Wert negativ ist
06.11.2006 12:25:43
marcl
Hallo Thorsten,
reicht es auch, wenn die Zelle rot wird (ohne zu blineken)?
Format / bedingte Formatierung...
Zellwert ist kleiner als 0
Format... 3.Registerkarte "Muster" und dann Farbe rot.
Gruß
marcl
AW: Blinkende Zelle wenn Wert negativ ist
06.11.2006 12:27:53
Thorsten
Hallo Marcl,
im Grunde schon, wäre halt klasse gewesen wenn die Zelle blinkt - fällt dann besonders gut auf.
Liebe Grüße
Thorsten
Anzeige
AW: Blinkende Zelle wenn Wert negativ ist
06.11.2006 14:00:00
marcl
ok,
du weißt, wie man Makros einträgt?
dann diesen Teil in VBA in die Tabelle eintragen:

Sub Worksheet_Change(ByVal Target As Range)
If Range("A2") = Target Then
If Range("A2") < 0 Then
Call weiter
End If
End If
End Sub

und den in ein Modul:

Sub weiter()
Dim NextTime As Date
Range("a2").Select
nau = Now + TimeValue("00:00:10")
Do While nau > Now
With Selection.Interior
.ColorIndex = 3
.Pattern = xlSolid
End With
Application.Wait Now + TimeValue("00:00:1")
Selection.Interior.ColorIndex = xlNone
Application.Wait Now + TimeValue("00:00:1")
Loop
Selection.Interior.ColorIndex = xlNone
MsgBox ("Keine negativen Zahlen eingeben!")
End Sub

Gruß
marcl
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Blinkende Zelle in Excel bei negativem Wert

Schritt-für-Schritt-Anleitung

Um eine Zelle in Excel rot blinken zu lassen, wenn der Wert negativ ist, musst du ein Makro in VBA verwenden. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und lade die Datei, in der du die blinkende Zelle erstellen möchtest.

  2. Aktiviere die Entwicklertools: Gehe zu "Datei" > "Optionen" > "Menüband anpassen" und aktiviere das Kontrollkästchen für "Entwicklertools".

  3. Öffne den VBA-Editor: Klicke auf "Entwicklertools" und dann auf "Visual Basic".

  4. Füge ein neues Modul hinzu: Rechtsklicke auf "VBAProject (deinDateiname)" und wähle "Einfügen" > "Modul".

  5. Füge den folgenden Code ein:

    Sub Worksheet_Change(ByVal Target As Range)
   If Range("A2") = Target Then
       If Range("A2") < 0 Then
           Call weiter
       End If
   End If
End Sub

Sub weiter()
   Dim NextTime As Date
   Range("A2").Select
   nau = Now + TimeValue("00:00:10")
   Do While nau > Now
       With Selection.Interior
           .ColorIndex = 3
           .Pattern = xlSolid
       End With
       Application.Wait Now + TimeValue("00:00:1")
       Selection.Interior.ColorIndex = xlNone
       Application.Wait Now + TimeValue("00:00:1")
   Loop
   Selection.Interior.ColorIndex = xlNone
   MsgBox ("Keine negativen Zahlen eingeben!")
End Sub

  6. Schließe den VBA-Editor und gehe zurück zu Excel.

  7. Teste das Makro, indem du einen negativen Wert in die Zelle A2 eingibst.

Häufige Fehler und Lösungen

  • Fehler: Das Makro wird nicht ausgeführt: Stelle sicher, dass du die Makros in Excel aktiviert hast. Gehe zu "Datei" > "Optionen" > "Trust Center" > "Einstellungen für das Trust Center" und aktiviere die Makros.
  • Fehler: Die Zelle blinkt nicht: Überprüfe, ob der Wert in der Zelle A2 tatsächlich negativ ist. Das Makro reagiert nur auf Änderungen in dieser speziellen Zelle.

Alternative Methoden

Wenn du keine Makros verwenden möchtest, kannst du die bedingte Formatierung in Excel nutzen, um die Zelle rot zu färben, wenn der Wert negativ ist:

  1. Wähle die Zelle aus, die du formatieren möchtest (z.B. A2).
  2. Gehe zu "Start" > "Bedingte Formatierung" > "Neue Regel".
  3. Wähle "Zellen formatieren, die enthalten" und setze die Regel auf "kleiner als" und gib "0" ein.
  4. Wähle die Formatierung (z.B. rote Füllfarbe) und klicke auf "OK".

Praktische Beispiele

  • Beispiel 1: Wenn du in Zelle A2 den Wert "-5" eingibst, sollte die Zelle rot blinken.
  • Beispiel 2: Mit einer anderen Zelle, z.B. B2, kannst du das gleiche Makro verwenden, indem du den Code entsprechend anpasst.

Tipps für Profis

  • Du kannst die Wartezeit im Makro anpassen, um die Blinkfrequenz zu ändern. Ändere die Werte in TimeValue("00:00:1") zu einer größeren Zahl, um es langsamer zu machen.
  • Wenn du mehrere Zellen überwachen möchtest, erweitere den Code, um auch andere Zellen zu berücksichtigen.

FAQ: Häufige Fragen

1. Frage
Kann ich das Makro auf andere Zellen anwenden?
Ja, du kannst den Code anpassen, um andere Zellen zu überwachen, indem du die Referenz in Range("A2") änderst.

2. Frage
Funktioniert das in allen Excel-Versionen?
Ja, das Makro sollte in den meisten modernen Excel-Versionen (z.B. Excel 2010 bis 2023) funktionieren.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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