82 Aufrufe
Gefragt in Tabellenkalkulation von jelena Mitglied (319 Punkte)
Bearbeitet von jelena
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

Deine Antwort

Dein angezeigter Name (optional):
Datenschutz: Deine Email-Adresse benutzen wir ausschließlich, um dir Benachrichtigungen zu schicken. Es gilt unsere Datenschutzerklärung.
Anti-Spam-Captcha:
Bitte logge dich ein oder melde dich neu an, um das Anti-Spam-Captcha zu vermeiden.
...