Datei_108, Blinkende Zelle

108. Blinkende Zelle

Aufgabenstellung:

In dieser Beispieldatei geht es darum, ein Blinken in einer Zelle zu erzeugen. Der Zellhintergrund und die Schriftfarbe verändern sich in Zeitintervallen wenn der Wert in einer Zelle eine bestimmte Grenze überschreitet.

Diese Beispiele stehen auch als Beispieldatei zum Download zur Verfügung.
In der Zipdatei befindet sich eine xls-Datei für Excel 2000 - 2003 und eine xlsm-Datei für Excel 2007.

Aufbau des Tabellenblatts:

	A	B	C	D
1
2		5,00 €	Betrag im Soll
3

	A	B	C	D
1
2		12,00 €	Betrag erreicht/ überschritten
3

Realisiert wurde das durch eine VBA-Lösung.

Die Makros "Farbumschlag1_start" und "Farbumschlag2_start" sind für das Ändern der Hintergrund- und Schriftfarbe zuständig. Mit dem Makro "Blinken_ende" wird der Wechsel des Farbumschlags beendet.

Der Code ist in ein StandardModul einzufügen

Option Explicit

Public varWaitTime As Variant

Sub Farbumschlag1_start()
'In Zelle C2...
With Range("C2")
    '...die Hintergrundfarbe in "rot" ändern...
    .Interior.ColorIndex = 3
    '...die Schriftfarbe in "weiß" ändern und...
    .Font.ColorIndex = 2
    '...die Schriftart auf "Fett" stellen
    .Font.Bold = True
End With
'in Variable "varWaitTime" die aktuelle Zeit plus _
1 Sekunde schreiben
varWaitTime = Now + TimeValue("00:00:01")
'Makro "Farbumschlag2_start" zu der Zeit, die in Variable _
"varWaitTime" steht, starten
Application.OnTime varWaitTime, "Farbumschlag2_start"
End Sub

Sub Farbumschlag2_start()
'In Zelle C2...
With Range("C2")
    '...die Hintergrundfarbe in "weiß" ändern...
    .Interior.ColorIndex = 0
    '...die Schriftfarbe in "weiß" ändern und...
    .Font.ColorIndex = 2
    '...die Schriftart auf "Normal" stellen
    .Font.Bold = False
    End With
'in Variable "varWaitTime" die aktuelle Zeit plus _
1 Sekunde schreiben
varWaitTime = Now + TimeValue("00:00:01")
'Makro "Farbumschlag1_start" zu der Zeit, die in Variable _
"varWaitTime" steht, starten
Application.OnTime varWaitTime, "Farbumschlag1_start"
End Sub

Sub Blinken_ende()
'Fehlerbehandlung aktivieren
On Error Resume Next
'Makro "Farbumschlag1_start" stoppen
Application.OnTime EarliestTime:=varWaitTime, Procedure:="Farbumschlag1_start", Schedule:=False
'Makro "Farbumschlag2_start" stoppen
Application.OnTime EarliestTime:=varWaitTime, Procedure:="Farbumschlag2_start", Schedule:=False
'Variable "varWaitTime" leeren
varWaitTime = ""
'In Zelle C2...
With Range("C2")
    '...die Hintergrundfarbe in "weiß" ändern...
    .Interior.ColorIndex = 0
    '...die Schriftfarbe in "grün" ändern und...
    .Font.ColorIndex = 10
    '...die Schriftart auf "Fett" stellen
    .Font.Bold = True
End With
End Sub

Dieses Beispiel wurde unter den in der Tabelle aufgeführten Versionen getestet.

	A	B	C	D	E
1
2		Excel - Version		Getestet
3
4		Excel 2007	12.0	a
5		Excel 2003	11.0	a
6		Excel 2002	10.0	a
7		Excel 2000	9.0	a
8		Excel 97	8.0
9
10		Anzahl der Downloads:
11
12		Dieses Beispiel wurde bereits x aufgerufen.
13		Dieses Beispiel wurde bereits x aufgerufen.
14

> Beispieldatei herunterladen <

Sollten beim Ausführen der Beispieldatei Fehler auftreten, bitte ich darum, mir eine Mail mit der Fehlerbeschreibung an fehler@excelbeispiele.de zu schicken.
Danke!

Möchten Sie www.excelbeispiele.de in Ihre Favoriten aufnehmen? Dann Klicken Sie hier.

Kontakt:

letzte Aktualisierung am 02.05.2008