'*** Genau 2 If Application.Countif(Range("H10:H30"),"x") = 2 Then '*** Mindestens 2 If Application.Countif(Range("H10:H30"),"x") >= 2 Then