ich möchte gerne in meinem Excel-File eine Zelle zum blinken bringen, wenn eine bestimmte Bedingung erfüllt ist (z.B. die aktuelle Kalenderwoche).
habe absolut kein Plan und hoffe, dass mir jemand helfen kann.
thanx Alyssia
habe absolut kein Plan und hoffe, dass mir jemand helfen kann.
thanx Alyssia
Benutze mal de Recherche
Gruß Hajo
Zur Zeit ist die automatische E-Mailbenachrichtigung abgeschaltet. Damit ist es dem Zufall überlassen, ob ich auf Rückfragen antworte.
Ich habe keine Lust in gewissen Abständen das Forum nach meinen Beiträgen zu durchsuchen, um zu sehen ob Rückfragen gibt.
kuck doch bitte in die Recherche bzw benutz die Suche, bevor du einen Thread eröffnest, ich glaube das Thema is schon zigmal behandelt worden.
Gruß Umbratus
Um eine Zelle in Excel zum Blinken zu bringen, benötigst Du VBA (Visual Basic for Applications). Hier ist eine einfache Schritt-für-Schritt-Anleitung:
Öffne Excel und drücke ALT + F11: Dies öffnet den VBA-Editor.
Füge ein neues Modul hinzu:
Einfügen > Modul.Füge den folgenden Code ein:
Dim WithEvents Timer As clsTimer
Sub StartBlink()
Set Timer = New clsTimer
Timer.StartTimer 1 ' Blinkintervall in Sekunden
End Sub
Sub StopBlink()
Timer.StopTimer
End Sub
Erstelle eine Klasse für den Timer:
Einfügen > Klasse.clsTimer und füge folgenden Code ein:Dim TimerInterval As Double
Dim NextTick As Double
Public Sub StartTimer(ByVal Interval As Double)
TimerInterval = Interval
NextTick = Now + TimeValue("00:00:" & TimerInterval)
Application.OnTime NextTick, "Blink"
End Sub
Public Sub StopTimer()
On Error Resume Next
Application.OnTime NextTick, "Blink", , False
End Sub
Sub Blink()
If Range("A1").Interior.Color = RGB(255, 255, 255) Then
Range("A1").Interior.Color = RGB(255, 0, 0) ' Farbe ändern
Else
Range("A1").Interior.Color = RGB(255, 255, 255) ' Farbe zurücksetzen
End If
StartTimer TimerInterval
End Sub
Starte das Blinken: Gehe zurück zu Excel und führe StartBlink in der VBA-Konsole aus.
Fehler: Zelle blinkt nicht: Stelle sicher, dass Du die Makros aktiviert hast. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center und aktiviere die Makros.
Fehler: Excel friert ein: Überprüfe das Intervall im Timer. Ein zu kurzes Intervall kann Excel überlasten.
Eine einfachere Methode, um Aufmerksamkeit zu erregen, ist die Bedingte Formatierung. So kannst Du die Zelle einfärben:
Start > Bedingte Formatierung > Neue Regel.Formel zur Ermittlung der zu formatierenden Zellen verwenden.=WOCHE(HEUTE())=WOCHE(A1).OK.Ein praktisches Beispiel ist das Blinken einer Zelle, wenn die aktuelle Woche erreicht wird. Nutze dafür den oben genannten VBA-Code und passe die Bedingung im Code entsprechend an.
1. Frage
Wie stoppe ich das Blinken der Zelle?
Antwort: Führe StopBlink in der VBA-Konsole aus, um das Blinken zu stoppen.
2. Frage
Kann ich mehrere Zellen zum Blinken bringen?
Antwort: Ja, Du kannst den Code anpassen, um mehrere Zellen gleichzeitig zu steuern, indem Du die entsprechenden Zellreferenzen im Blink-Code änderst.