danke für euren tip
dieter
versuch es mal damit:
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
Roland
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen