Blinken soll bed.Format überblenden
Jörg-HH
mit einem Code aus dem Archiv habe ich eine Zelle zum Blinken gebracht - in einer Testdatei klappt das prima. Im richtigen Leben sind bloß die fraglichen Zellen teilweise mit einem bedingten Format belegt, das offenbar vorrangig behandelt wird.
Das Bed.Form. soll da auch bleiben - aber wie kann ich Excel dazu bewegen, für die Zeit des Blinkens bitte schön VBA den Vortritt zu lassen?
Public Sub blinken(ByVal Target As Range)
Dim A As Byte, MerkFarbe As Integer
MerkFarbe = Selection.Borders.ColorIndex
MerkStärke = Selection.Borders.Weight
For A = 1 To 8
With Selection.Borders
If .ColorIndex 3 Then
.ColorIndex = 3
.Weight = xlThick
Else
.ColorIndex = 0
End If
DoEvents
End With
Sleep (200)
Next A
Selection.Borders.ColorIndex = MerkFarbe
Selection.Borders.Weight = MerkStärke
End Sub
Grüße - Jörg