48 Aufrufe
Gefragt in Tabellenkalkulation von jelena Mitglied (156 Punkte)

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

1 Antwort

0 Punkte
Beantwortet von jelena Mitglied (156 Punkte)
Bearbeitet von jelena

Hallo M.O. guten Abend ich glaube ich habs geschafftDanke

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
...