Das Problem in dieser neuen Situation ist, dass die Variable Target, nun nicht eine Zelle ist, sondern eine Vielzahl Zellen ist bzw auch immer sein kann.
Lässt sich abfängen, indem Du prüfst, ob Target eine Zelle oder viele Zellen referenziert.
Anders formuliert:
Wenn Target nur eine Zelle ist, dann verarbeite den weiteren Code, ansonsten tue nichts.
Beispiel:
If Target.Cells.Count = 1 Then
Verschachtelt:
If Not Intersect(Target, rngAufgaben) Is Nothing Then
If Target.Cells.Count = 1 Then
If (Target.Value) > (Cells(5, Target.Column)) Then
...
End If
End If
End If
|