Gruppe
Ereignis
Problem
Wenn nach einer Eingabe in Zelle A1 der Wert von A1 <> dem Wert von B1, soll sich der Hintegrund von Zelle B1 für 1 Minute auf gelb stellen.
ClassModule: Tabelle1
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
If Range("A1").Value <> Range("B1").Value Then
Range("B1").Interior.ColorIndex = 6
Application.Wait Now + TimeSerial(0, 1, 0)
Range("B1").Interior.ColorIndex = xlColorIndexNone
End If
End Sub