Text blinken in A1 beenden?
30.10.2012 11:56:58
Dieter(Drummer)
habe dieses Makro im Web gefunden. Wie muss es im Modul1 angepasst werden, wenn das TEXT-BLINKEN in A1, nach z.B. 3 Sekunden, beendet sein soll.
'In Modul1
Option Explicit
Public RunWhen As Double
Sub StartBlink()
With ThisWorkbook.Worksheets("Tabelle1").Range("A1").Font
If .ColorIndex = 3 Then
.ColorIndex = 2
Else
.ColorIndex = 3
End If
End With
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", , True
End Sub
Sub StopBlink()
ThisWorkbook.Worksheets("Tabelle1").Range("A1").Font.ColorIndex = _
xlColorIndexAutomatic
Application.OnTime RunWhen, "'" & ThisWorkbook.Name & "'!StartBlink", , False
End Sub
Danke für evtl. Anpassung und Lösung.
Gruß, Dieter(Drummer)
Anzeige