Guten Tag, brauche wiedermal eure Hilfe.
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 Then Cells(lngZeile, 11) = "fällig"
Next lngZeile
End With
End Sub
Wenn in Spalte J8, J9, J10 usw. die Zahl grösser als 100 ist, soll in Zelle K8, K9, K10 usw. kein Text "fällig" eingetragen werden.
Und wenn in Zelle F8, F9, F10 usw. ein neueres Datum eingetragen wird, soll der Text "fällig" in der Zelle K8, K9, K10 usw. wieder gelöscht werden. Danke