Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
256to260
256to260
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

text soll blinken

text soll blinken
22.05.2003 07: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
Anzeige
Re: text soll blinken
22.05.2003 08: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

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige