vba wenn HEUTE()-10 dann Text in andere Zelle

Question

Hallo M.O. bitte schon wieder um 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 And .Cells(lngZeile, 10).Value < 100 Then .Cells(lngZeile, 11) = "fällig"
  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".
Vielen Dank.
'... hier kommt dann dein bereits vorhandener Code
End Sub

Answer 1

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