text soll blinken

Forumthread: text soll blinken

text soll blinken

22.05.2003 09:57:25

dieter

Guten tag Forum.
Der Text einer Zelle soll blinken.wie geht das? und in excel 5.0.

danke für euren tip
dieter

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

Re: text soll blinken

22.05.2003 10:19:27

Roland

Re: text soll blinken

22.05.2003 10:19:27

Roland

Hallo 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

Forumthread: text soll blinken

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread