Office: (Office 2010) Bedingte Formatierung mit Symbolen

Hallo zusammen,

erst angemeldet und schon benötige ich eure Hilfe.

Und zwar:

Ich habe z.B. in Spalte E, F, H,I,K und M Datumsangaben drin stehen.

Jetzt möchte ich, dass mir in Spalte B in den einzelnen Zellen eine Ampel angezeigt wird.

Grün: Alle Daten in Zeile > 2 Monate
Gelb: Ein oder mehrere Datensätze in Zeile < 2 Monate
Rot: Ein oder mehrere Datensätze überfällig, heute.

Das klappt nicht so ganz, da ich bei Symbolsätzen keine Formel eintragen kann.

Ich hoffe ihr könnt mir helfen.

Danke und viele Grüße
Dominic

 

Hallo Dominic,

in der beiliegenden Excel-Datei habe ich dir eine kleine VBA-Funktion in ein allgemeines Codemodul gespeichert.

Die Funktion lautet:
=AmpelWerte(AbDatum, Monate, Datum1, Datum2, Datum3, …)

Sie hat mindestens 3 Parameter: AbDatum, Monate, Datum1, [Datum2, …]
AbDatum: entspricht bei dir dem HEUTE()-Datum, zB. 13.08.2018
Monate: entspricht bei dir der Zahl 2 (nämlich 2 Monate ab dem AbDatum in der Zukunft): z.B. 13.10.2018
Datum1, Datum2, … : sind die Datumsangaben, die überprüft werden sollen, in welchem der 3 Datumsintervalle sie liegen: Ob sie vor oder am AbDatum (rote Zone) liegen, oder ob sie nach dem AbDatum und vor dem AbDatum gerechnet in Monaten (orange Zone) später liegen oder ob sie eh noch später liegen (grüne Zone).

a) Sobald auch nur eine dieser DatumX-Angaben in der roten Zone liegt, liefert die Funktion die Zahl 1 zurück (=Roter Ampelwert);
b) Gibt es keine DatumX-Angaben in der roten Zone, aber mindestens eine in der orangenen Zone, liefert die Funktion die Zahl 2 zurück (=Orangener Ampelwert);
c) Wenn weder a) noch b) zutrifft, weil alle DatumX-Angaben in der grünen Zone liegen, liefert die Funktion die Zahl 3 zurück (=Grüner Ampelwert).

Im Arbeitsblatt "Tabelle1" habe ich dir in Spalte B2:B8 sieben Zellen mit bedingter Formatierung eingebaut mit der vorhin beschriebenen AmpelWert-Funktion.
Dabei habe ich (als Beispiel gedacht), die DatumX-Spalten verschieden angeordnet, auch in ihrer Anzahl.

Die VBA-Funktion lautet wie folgt (im Modul1 enthalten):

Code:

Public Function AmpelWerte(AbDatum As Date, Monate As Integer, ParamArray arrDatum()) As Integer
  Dim DatInMon As Date
  Dim varDat As Variant
  
  DatInMon = WorksheetFunction.EDate(AbDatum, Monate)
  AmpelWerte = 3     '=Grün
  
  For Each varDat In arrDatum
    If varDat <= AbDatum Then
      AmpelWerte = 1 '=Rot
      Exit Function
    ElseIf varDat <= DatInMon Then
      AmpelWerte = 2 '=Orange
    End If
  Next varDat
  
End Function

 

Hey vielen Dank! ... Sorry hatte viel um die Ohren, deswegen schreibe ich jetzt erst.