20.10.2021, 09:22
Halllo
ich habe mir erlaubt den Code von Hajo mal etwas zu verkürzen, damit man ihn bequem überall einbauen kann.
Man kann in in einem normalen Modul über Button starten, oder mit Auto_Open beim Öffnen einer Datei. Er blinkt 5x und stoppt dann automatisch.
mfg Gast 123
ich habe mir erlaubt den Code von Hajo mal etwas zu verkürzen, damit man ihn bequem überall einbauen kann.
Man kann in in einem normalen Modul über Button starten, oder mit Auto_Open beim Öffnen einer Datei. Er blinkt 5x und stoppt dann automatisch.
mfg Gast 123
Code:
Option Explicit
Const LoFarbe1 As Long = 255 ' erste Farbe Rot
Const LoFarbe2 As Long = 16763904 ' zweite Farbe Himmelblau
Const DaZeit As Date = "00:00:01" ' Zeitabstand Blinken
Const Blinkdauer As Integer = 5 ' Wiederholungen
Sub Blinkende_Farbe()
Dim n As Integer
With ThisWorkbook.Worksheets("Tabelle1")
Do Until n >= Blinkdauer
.Range("A4").Interior.Color = LoFarbe1
Application.Wait Now + DaZeit
.Range("A4").Interior.Color = LoFarbe2
Application.Wait Now + DaZeit
n = n + 1
Loop
End With
End Sub