Sub Anfang mit dem Workbook_Open() - Ereignis starten

'Code für das Modul1

Option Explicit

Public Blinke As Double

Sub Anfang()
   With ThisWorkbook.Sheets("Tabelle1").Range("A20")
      With .Font
         If .ColorIndex = 3 Then ' Textfarbe
            .ColorIndex = 2 ' tauschen
         Else
            .ColorIndex = 3 ' tauschen
         End If
      End With
      With .Interior
         If .ColorIndex = 2 Then ' Hintergrund
            .ColorIndex = 3 ' ditto
         Else
            .ColorIndex = 2
         End If
      End With
   End With
   Blinke = Now + TimeSerial(0, 0, 1)  'Intervall
   Application.OnTime Blinke, "'" & ThisWorkbook.Name & "'!Anfang", , True
End Sub

Sub Ende()
With ThisWorkbook.Sheets("Tabelle1").Range("A20")
   .Font.ColorIndex = xlColorIndexAutomatic
   .Interior.ColorIndex = xlColorIndexNone
End With
On Error Resume Next
Application.OnTime Blinke, "'" & ThisWorkbook.Name & "'!Anfang", , False
On Error GoTo 0
End Sub

WELCHE NEBENWIRKUNGEN SIND MÖGLICH?

Wie alle VBA Makros kann Sub Anfang() Nebenwirkungen haben.

So sind möglicherweise Verzögerungen bei der Tabellenbearbeitung

durch den Anwender nicht auszuschließen.

Brechen Sie die Anwendung dieses Makros sofort ab, wenn Sie das

Gefühl von Herzrasen, Herzklopfen, Auftreten oder Zunahme von

Kopfschmerzen oder brennende Augen verspüren.

Sollten diese Symptome nach Änderung der Wiederholfrequenz

(Intervall) nicht verschwinden ist eine Fortführung gesundheits-

schädlich.

BEKANNTE NEBENWIRKUNGEN

Die Funktion "Eingabe Rückgängig" wird teilweise außer Kraft gesetzt

oder funktioniert unerwartet.

BEKANNTE UNVERTRÄGLICHKEITEN

Bei der Anwendung der Sub Anfang() führt die gleichzeitige Benutzung

der VBA Editors zu unvorhergesehenen Ergebnissen bei der Eingabe

von Kommandozeilen, u.a.