Danke für eure Hilfe, der Code funktioniert jetzt.
Was bedeutet Application.EnableEvents? Die Hilfe
hierzu verstehe ich nicht wirklich.
Und:
Ich untersuche den Bereich R7:R2000 / Q7 :Q2000,
wozu ist der ByVal Target as Range jetzt eigentlich gut?
So ganz habe ich das alles nicht verstanden und ich möchte gerne
wirklich verstehen was ich schreibe-
Public Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich, RaBereich2 As Range, RaZelle, RaZelle2 As Range
Set RaBereich = Range("R7:R2000")
Set RaBereich = Intersect(RaBereich, Range(Target.Address))
Set RaBereich2 = Range("Q7:Q2000")
Set RaBereich2 = Intersect(RaBereich2, Range(Target.Address))
If Not RaBereich Is Nothing Then
Application.ScreenUpdating = False
Application.EnableEvents = False
Application.Calculation = xlCalculationManual
For Each RaZelle In RaBereich
With RaZelle
If RaZelle.Value "" Then
RaZelle.Offset(0, -2) = "OK"
RaZelle.Offset(0, -2).Font.Color = vbBlue
Else
RaZelle.Offset(0, -2) = ""
End If
End With
Next RaZelle
Application.ScreenUpdating = True
Application.EnableEvents = True
Application.Calculation = xlCalculationAutomatic
End If