Blinkende Zelle
23.02.2016 15:18:29
chris58
Ich habe diesen Code in ein Tabellenblatt eingebaut und möchte nicht nur die Zelle A8 sondern die Zellen A7 bis A11 blinken lassen. Was muß ich bei diesem Code verändern, das dies geht. ich habe versucht A7:A11 einzugeben, jedoch kommt dann ein Fehler.
Danke
chris
Option Explicit
Private Declare
Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Blinker()
Dim x As Integer
For x = 1 To 10
Cells(8, 1).Interior.ColorIndex = 7
Sleep 500
Cells(8, 1).Interior.ColorIndex = xlNone
Sleep 500
Next x
End Sub
Anzeige