blinkende Zelle
Andreas
ich hab da mal ne Frage.
Ich lasse in meiner Tabelle die Zelle AP7 blinken, wenn ein Wert reingeschrieben wird.
Ich möchte gern, das Zelle AP10 ebenfalls blink, wenn in AP10 etwas geschrieben wird.
Wie müsste ich die Formel - siehe unten- (ebenfalls hier aus dem Forum) ändern, damit es "blinkt" ?
Leider bekomme ich dieses nicht alleine hin.
Könnte mir jemand auf die Sprünge helfen - wäre echt nett
Danke im voraus
Andreas
Private Sub Worksheet_Calculate()
Dim A As Byte, MerkFarbe As Integer
With Range("AP7")
If .Value WertZelleAP7 Then
For A = 1 To 8
If .Interior.ColorIndex 3 Then
.Interior.ColorIndex = 3
Else
.Interior.ColorIndex = 0
End If
DoEvents
Sleep (200) 'Blinkintervall in Millisekunden
Next A
.Interior.ColorIndex = MerkFarbe
End If
WertZelleAP7 = .Value
End With
End Sub