Hallo M.O. ich bräuchte dieses Makro so:
Sub faellig()
Dim lngZeile As Long
Dim lngLetzte As Long
'Name der Tabelle anpassen!
With Worksheets("Hauptformular")
'letzte beschriebene Zeile in Spalte F feststellen
lngLetzte = .Cells(Rows.Count, 6).End(xlUp).Row
'alle Zeilen ab Zeile 8 durchlaufen
For lngZeile = 8 To lngLetzte
If .Cells(lngZeile, 6).Value <= DateSerial(Year(Now), Month(Now), Day(Now) - 10) And .Cells(lngZeile, 11).Value < 2 Then Cells(lngZeile, 11) = "fällig"
'UND wenn in Zelle J8, J9, J10 usw. die Zahl >=100 steht dann keinen Text auch wenn Datum älter als 10 Tage ab HEUTE().
Next lngZeile
End With
End Sub Danke.