Hallo M.O. guten Abend ich glaube ich habs geschafft. Danke
Private Sub Workbook_Open()
Dim lngZeile As Long
Dim lngLetzte As Long
'Name der Tabelle anpassen!
With Worksheets("Tabelle2")
'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 And .Cells(lngZeile, 10).Value < 100 Then .Cells(lngZeile, 11) = "fällig"
If .Cells(lngZeile, 12).Value <> "" Then .Cells(lngZeile, 11) = "bezahlt"
Next lngZeile
End With
Bis hier her passt alles, den Rest bitte dazu programmieren.
Wenn in Zelle L8,L9,L10 usw. irgend ein Datum z.B. 05.11.2021 dann soll der Text in Zelle K8,K9,K10 usw. ausgetauscht werden in = "bezahlt am".
Vielen Dank.
'... hier kommt dann dein bereits vorhandener Code
End Sub