Bedingte Formatierung -3 Monate Ist Datum

[Apfelsaft]

Moin,

ich habe ein kleines Problem.

Ich habe im Bericht ein Kündigungsdatum und nun würde ich gerne eine bedingte Formatierung anlegen. Das Feld soll rot hinterlegt sein, wenn das Kündigungsdatum noch einen Monat in der Zukunft liegt, gelb wenn das Kündigungsdatum noch 6 Monate in der Zukunft liegt, Grün bei mehr als 6 Monaten. Bekomm es irgendwie nicht hin.

Gruß

[MzKlMu]

Hallo,
die bedingte Formatierung (aus dem Menü) brauchst Du bei einem Bericht dazu nicht. Nimm das Ereignis "Beim Formatieren" des entsprechenden Bereich. Vermutlich Detailbereich.

Code [Auswählen] Erweitern

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
   Select Case DateDiff("m", Date, Me.Kündigungsdatum)
       Case Is <= 1
           Me.Kündigungsdatum.BackColor = vbRed
       Case Is <= 6
           Me.Kündigungsdatum.BackColor = vbYellow
       Case Else
           Me.Kündigungsdatum.BackColor = vbGreen
   End Select
End Sub

Wo sind denn die 3 Monate aus dem Titel geblieben?

Achtung: Obiger Code ist falsch. Bitte Beiträge weiter unten lesen.

[oma]

Hallo,

ich glaube, so wird alles rot.

Gruß Oma

[MzKlMu]

Hallo,

ich glaube, so wird alles rot.

Nein, alles wird nicht rot, aber es ist natürlich trotzdem falsch.    Ich habe zum Testen zu wenige Daten genommen. Und da hat es scheinbar gepasst. Aber jetzt sollte das klappen:

Code [Auswählen] Erweitern

Private Sub Detailbereich_Format(Cancel As Integer, FormatCount As Integer)
    Select Case Me.Kündigungsdatum
        Case Is <= DateAdd("m", 1, Date)
            Me.Kündigungsdatum.BackColor = vbRed
        Case Is <= DateAdd("m", 6, Date)
            Me.Kündigungsdatum.BackColor = vbYellow
        Case Else
            Me.Kündigungsdatum.BackColor = vbGreen
    End Select
End Sub

[oma]

Hallo Klaus,

bist du dir da sicher (Frage ohne zu testen)

Gruß Oma

[MzKlMu]

Hallo,

bist du dir da sicher (Frage ohne zu testen)

Ja, siehe Bild.
10.5. rot
11.5. gelb
11.10. gelb
11.10. grün


[Anhang gelöscht durch Administrator]

[Apfelsaft]

Moin Moin, konnte es jetzt erst testen, aber bei mir passiert nix .

[MzKlMu]

Hallo,

aber bei mir passiert nix

glaubst Du ernsthaft, eine solche Aussage wäre hilfreich?

Bitte erkläre genau was Du gemacht hast und zeige den Code (vollständig) den Du verwendet hast.