Zellen Blinken
28.07.2005 17:18:40
Urs
Ich habe versucht ein Marko aus dem Archiv anzupassen. Den Wert in der Zelle H8 ziehe ich von eine anderen Zelle an. Das Makro läuft leider noch nicht so wie ich will. Es kommt noch die Fehlermeldung bei "Call BlinkenEnde". Könnt Ihr mal das Makro checken? Die Zelle soll blinken wenn der Wert =1 und nicht wenn der Wert = 0 steht. Zusätzlich sollte die Zelle wieder das Zellenformat annehmen welches vor dem Blinken bestand (Hintergrundfarbe keine; Schrift Schwarz Arial 10).
Vielen Dank für Eure Hilfe.
Gruss
Urs
Worksheet:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("H8") = "1" Then BlinkenEin
If Range("H8") = "0" Then BlinkenEnde
End Sub
Modul1
Sub BlinkenEin()
Dim NextTime As Date
NextTime = Now + TimeValue("00:00:01")
With Worksheets("Investitionen").Range("$H$8")
Worksheets("Investitionen").Unprotect
If .Interior.ColorIndex = 6 Then
.Interior.ColorIndex = 9
Else
.Interior.ColorIndex = 6
End If
If .Interior.ColorIndex = 9 Then
.Font.ColorIndex = 6
Else
.Font.ColorIndex = 9
End If
Worksheets("Investitionen").Protect
End With
Application.OnTime NextTime, "BlinkenEin"
End Sub
Sub BlinkenEnde()
On Error GoTo ErrorHandler
Application.OnTime Now, "BlinkenEin", schedule:=False
Worksheets("Investitionen").Unprotect
Worksheets("Investitionen").Range("$H$8").Interior.ColorIndex = xlNone
Worksheets("Investitionen").Range("$H$8").Font.ColorIndex = xlAutomatic
Worksheets("Investitionen").Protect
End
ErrorHandler:
Call BlinkenEnde
End Sub