im u.s. Befehl möchte ich e10 durch die aktive Zelle ersetzten.
Dim zelle As Range
For Each zelle In Range("af9:af1000")
If zelle.Value = Range("e10").Value And zelle.Interior.Colorindex = 15 Then
Selection.ClearContents
If ActiveCell.Interior.Colorindex = 15 Then
Application.DisplayAlerts = False
MsgBox "stop"
Else
MsgBox "weiter"
End If
Exit Sub
End If
Next zelle
Danke für eure Hilfe.
Gruß
Karsten