Zelle blinken lassen
10.02.2005 18:24:27
Klaus
ich habe ein 'altes' Makro gefunden, dass nur bis Version XL8 gilt.
Wenn ich die Funktion starte, dann blinkt das aktuelle Feld, aber beim Beenden gilt es einen Laufzeitfehler.
Kann man das "Beenden"-Makro irgendwie umschreiben?
Wenn ja, dann erzählt mir bitte wie.
Schon 'mal Danke
Klaus
Sub BlinkenEin()
Dim NextTime As Date
NextTime = Now + TimeValue("00:00:01")
With ActiveCell
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
End With
Application.OnTime NextTime, "BlinkenEin"
End Sub
Sub BlinkenEnde()
On Error GoTo ErrorHandler
Application.OnTime Now, "BlinkenEin", schedule:=False
ActiveCell.Interior.ColorIndex = xlNone
ActiveCell.Font.ColorIndex = xlAutomatic
End
ErrorHandler:
Call BlinkenEnde
End Sub