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
Das Makro läuft prima und ich möchte es OHNE Makro "StopBlink" zu aktivieren, nach ca. 3 Sek. beenden.Danke für evtl. Anpassung und Lösung.
Gruß, Dieter(Drummer)