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ß
Hallo,
die bedingte Formatierung (aus dem Menü) brauchst Du bei einem Bericht dazu nicht. Nimm das Ereignis "Beim Formatieren" des entsprechenden Bereich. Vermutlich Detailbereich.
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? ;D
Achtung: Obiger Code ist falsch. Bitte Beiträge weiter unten lesen.
Hallo,
ich glaube, so wird alles rot.
Gruß Oma
Hallo,
Zitatich glaube, so wird alles rot.
Nein, alles wird nicht rot, aber es ist natürlich trotzdem falsch. ;D Ich habe zum Testen zu wenige Daten genommen. Und da hat es scheinbar gepasst. Aber jetzt sollte das klappen:
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
Hallo Klaus,
bist du dir da sicher (Frage ohne zu testen)
Gruß Oma
Hallo,
Zitatbist 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]
Moin Moin, konnte es jetzt erst testen, aber bei mir passiert nix :(.
Hallo,
Zitataber 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.