Hallo M.O. Vielen Dank für deine Nachricht.
Also, das Wort "Fehler" wird über die WENN(ODER-Formel gebildet.
Den Blinker habe ich bereits in VBA.
Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Sub Blinken()
Dim x As Integer
For x = 1 To 10
Cells(x, 2).Interior.ColorIndex = 3
Sleep 500
Cells(x, 2).Interior.ColorIndex = xlNone
Sleep 500
Next
End Sub
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = "Fehler" Then Blinken (<- hier blinkt nur A1)
End Sub
Nun möchte ich aber, dass die Zellen B1:B100 blinken, wenn in A1:A100 das Wort Fehler geschrieben wird. Also wenn
A10= "Fehler", dann blinkt B10, wenn A90="Fehler", blinkt B90, wenn A57= "Fehler", dann blinkt B57 usw, usw. Ich hoffe das du bitte mein Problem lösen kannst. Gern warte ich Antwort. Viele Dank im Voraus.
Mf.G.
Micha