VBA-Beispiel 084
mail schreiben
mail schreiben

Zelle einer Exceldatei soll blinken

Mit diesem Makro blinkt die Zelle E2.
Private Declare Sub Sleep Lib "kernel32" _
        (ByVal dwMilliseconds As Long)

Sub Blinker()
Dim x As Integer

For x = 1 To 10
  Cells(2, 5).Interior.ColorIndex = 3
  Sleep 500
  Cells(2, 5).Interior.ColorIndex = xlNone
  Sleep 500
Next x

End Sub

Download:   vba084.zip