Hallo Jelena,
wenn "fällig" nur bei Werten unter 100 erscheinen soll, dann ändere die Zeile
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"
in
If .Cells(lngZeile, 6).Value = DateSerial(Year(Now), Month(Now), Day(Now) - 10) And .Cells(lngZeile, 11).Value < 100 Then Cells(lngZeile, 11) = "fällig"
Zum Löschen des Wortes "fällig" kopiere das folgende Makro in das VBA-Projekt der betreffenden Tabelle:
Private Sub Worksheet_Change(ByVal Target As Range)
'nur bei Eingabe in Spalte F ausführen
If Not Intersect(Target, Range("F:F")) Is Nothing Then
'Inhalt in Spalte K löschen, wenn eingegebenes Datum nicht älter als 10 Tage ist
If Target.Value > DateSerial(Year(Now), Month(Now), Day(Now) - 10) Then Cells(Target.Row, 11).ClearContents
End If
End Sub
Gruß
M.O.