Also, Du meinst anstelle
If WorksheetFunction.CountIf(Range("B1:B" & Zeile), Range("B" & Zeile)) > 1 Then
das hier:
If WorksheetFunction.CountIfs(Range("B1:C" & Zeile), Range("B; C" & Zeile)) > 1 Then
?