[onderbar]

Hab jetzt das zusammen geschustert, aber als Fehler kommt "Block IF without End IF)

Kann mir jemand sagen, ob das sonst passt, und wo der Fehler ist?

Sub test() ' überprüfen

For Each zelle In Bereich
  If zelle.Value(3, 3) > 39 And zelle.Value(3, 3) < 59 And zelle.Value(3, 7) > 7000 And zelle.Value(3, 7) < 9900 Then
  zelle.Value(3, 3).Font.ColorIndex = 8
  Else
  If zelle.Value(3, 3) < 39 Or zelle.Value(3, 3) > 59 And zelle.Value(3, 7) < 7000 Or zelle.Value(3, 7) > 9900 Then
  zelle.Value(3, 3).Font.ColorIndex = 8
  Else
  zelle.Value(3, 3).Font.ColorIndex = 1
  End If
  
End Sub

Danke!