AW: Blinkende Zelle ohne wenn...
02.11.2005 10:33:37
Jutta
Hallo,
doch, die Beispiele habe ich schon gesehen und dieses Makro auch angepaßt & ausprobiert:
Option Explicit
'**************************************************
'* H. Ziplies *
'* 12.02.03 *
'* erstellt von Hajo.Ziplies@web.de *
'* http://home.media-n.de/ziplies/ *
'* *
'**************************************************
Public VaEt As Variant ' nächste Startzeit
Public InFarbe As Integer ' Farbe der Zelle im Original
Public BoZustand As Boolean ' Zustand blinken, False =Ein
Sub ersteFarbe()
ThisWorkbook.Worksheets("Tabelle1").Range("A1").Interior.ColorIndex = 3
VaEt = Now + TimeValue("00:00:01")
Application.OnTime VaEt, "zweiteFarbe"
End Sub
Sub zweiteFarbe()
ThisWorkbook.Worksheets("Tabelle1").Range("A1").Interior.ColorIndex = 33
VaEt = Now + TimeValue("00:00:01")
Application.OnTime VaEt, "ersteFarbe"
End Sub
Sub Ende()
On Error Resume Next
Application.OnTime EarliestTime:=VaEt, Procedure:="zweiteFarbe", Schedule:=False
Application.OnTime EarliestTime:=VaEt, Procedure:="ersteFarbe", Schedule:=False
VaEt = ""
ThisWorkbook.Worksheets("Tabelle1").Range("A1").Interior.ColorIndex = InFarbe
End Sub
Sub Start()
If BoZustand = True Then Exit Sub
If Range("A1") = "Achtung !" Then
InFarbe = ThisWorkbook.Worksheets("Tabelle1").Range("A1").Interior.ColorIndex
If VaEt = "" Then ersteFarbe
Else
Ende
End If
End Sub
Es blinkt ja auch, aber nur wenn ich den Text hineinschreibe. Der Zelleninhalt wird aber nicht verändert werden. Es soll aber dauernd blinken...
Gruß
Jutta