Zelle blinken bei auto_open
11.03.2007 11:22:07
Senner
ich habe folgendes Problem:
Mein Makro zum blinken einer bestimmeten Zelle mit auto_open funktioniert super. Aber leider öffnet sich die Datei nach Abspeichern und Schließen immer wieder. Wenn ich Excel beende, gibt es kein Problem.
Sub Auto_Open()
NächstesMal = Now + TimeValue("00:00:01")
With ActiveWorkbook.Sheets("Tabelle1").Range("D1")
If .Font.ColorIndex = 3 _
Then .Font.ColorIndex = 1 Else .Font.ColorIndex = 3
End With
Application.OnTime NächstesMal, "auto_open"
End Sub
Wie kann ich das erneute Öffnen der Datei verhindern bzw. wie kann ich das Blinken der Zelle auf 15 Sekunden begrenzen?
Gruß Johann