Hallo Forum,
ich finde meinen Fehler nicht.Irgendwas habe ich bei der
Bedingungsabfrage falsch gemacht.
(Dies ist nur ein kleiner Ausschnitt der Abfagen)
vielen Dank für die Hilfe
Peter
'****************Suchbereich abfragen*******************
IH = 0: AH = 0: AJ = 0
For Zeile = 7 To 106
Select Case Cells(Zeile, Spalte).Font.ColorIndex
Case Is <> 50
If Cells(Zeile, Spalte).Interior.ColorIndex = 36 Then _
IH = IH + 1
Case Is <> 50
If Cells(Zeile, Spalte).Interior.ColorIndex = 39 Then _
AH = AH + 1
Case Is = 50
If Cells(Zeile, Spalte).Interior.ColorIndex = 39 Then _
AJ = AJ + 1
End Select
Next Zeile

Range("C1").Value = IH
Range("C2").Value = AH
Range("C3").Value = AJ