In der Wenn-Formel auf Textfarbe kalkulieren

Hallo zusammen,

ich bin ein Noob im Bereich Excel-Funktionen.
Mein derzeitiges problem ist folgendes:
Ich habe in der Spalte A1 Daten stehen. Bsp. 23.02.2011.
Wenn dieses datum blau geschrieben ist, soll in Spalte B1 nichts erscheinen. Aber sobald dieses Datum rot geschrieben wird, soll in der Spalte B1 +40 gerechnet werden. Bsp. A1=23.02.2011 in roter Farbe, Ergebnis: B1=04.04.2011.
Kriege ich das vllt. mit bedingter Formatierung hin? Falls ja, wie kriege ich das bloß hin?

Danke schon Mal für die Antwort und Mühe.

Gruß

Sly

Hi Speedysly

Interessant wäre, mit welcher Excel-Version du das machen willst. Ich bin mir ziemlich sicher, dass das mit Excel 2010 funktioniert (hier am Arbeitsplatz habe ich aber nur Excel 2007 und kann deshalb nicht gleich nachschauen).

Ich habe in der Spalte A1 Daten stehen. Bsp. 23.02.2011.

Wenn dieses datum blau geschrieben ist, soll in Spalte B1
nichts erscheinen. Aber sobald dieses Datum rot geschrieben
wird, soll in der Spalte B1 +40 gerechnet werden. Bsp.
A1=23.02.2011 in roter Farbe, Ergebnis: B1=04.04.2011.

Hallo Sly,

wer hat A1 gefärbt, eine bed. Formatierung oder manuell?

Gruß
Reinhard

Hi maximus,
ich arbeite mit Excel 2010. Hier ist schon vieles erleichtert, aber ich komme nicht weiter. Eine Hilfe wäre sehr nett.
Danke

Hallo Reinhard,
manuell wird die Zeile geändert. Hast du meine Fragestellung verstanden? Kann ja sein, dass die Frage unverständlich gestellt wurde :smile:

Gruß
Sly

manuell wird die Zeile geändert. Hast du meine Fragestellung
verstanden? Kann ja sein, dass die Frage unverständlich
gestellt wurde :smile:

Hallo Sly,

zum Einen gibt es keine Spalte A1, das ist der name einer Zelle.

Und meine Nachfrage zielt daraufhin, die Zellfarbe einer Zelle die mit bed. Formatierung gefärbt wurde kann man nur mit Vba umständlich ermitteln.
Hast du die Zelle manuell gefärbt geht die farbermittlung auch mit Excelmitteln ohne Vba.

und, ob ich die Frage richtig verstanden habe, du willst doch wissen für eine andere Zelle welche Farbe, egal Schrift oder Hintergrund, eine andere Zelle hat. Wenn dem so ist, wieso habe ich da was falsch verstanden?

Wenn es dem nicht so ist, tja nun, dann habe ich sie nicht verstanden.

Gruß
Reinhard

Ich habe in der Spalte A1 Daten stehen. Bsp. 23.02.2011.
Wenn dieses datum blau geschrieben ist, soll in Spalte B1
nichts erscheinen. Aber sobald dieses Datum rot geschrieben
wird, soll in der Spalte B1 +40 gerechnet werden. Bsp.
A1=23.02.2011 in roter Farbe, Ergebnis: B1=04.04.2011.

Sly

Hallo Sly, 

Lege einen Modul an (Alt+F11, Einfügen/\>Modul) und gib im
Modul die folgende benutzerdefinierte Funktion ein:

Function ZielDatum(Zeile%, Spalte%) As Variant
 Const Farbe% = 3
 Const Differenz% = 40
 Const Intervall$ = "d" 'd=Tag, m=Monat, q=Quartal ...
 If Cells(Zeile, Spalte).Font.ColorIndex = Farbe Then
 ZielDatum = DateAdd(Intervall, Differenz, Cells(Zeile, Spalte).Value)
 Else
 ZielDatum = ""
 End If
End Function

In der Funktion kannst Du die Schriftfarbe in Spalte A mit
"Farbe" festlegen; Deine Vorgabe war Rot, daher Farbe=3.
Die Art des Intervalls, das Du zum Ausgangsdatum addieren
willst, ist in "Intervall" angebbar; Du wolltes 40 Tage,
daher Intervall = "d" ("w" wäre Wochen, "q" wäre Quartale).
Die Anzahl der Intervalle legst Du in "Differenz" fest.
Du wolltest 40 Tage, also Differenz=40.

In B1 gibst Du die Formel ein:

=ZielDatum(ZEILE(A1);SPALTE(A1))

Die Formel kannst Du auch unter den benutzerdefinierten 
Funktionen anwählen (über die Schaltfläche fx in der 
Menüleiste). Sie läßt sich in Spalte B beliebig nach 
unten kopieren.

Gruß
Gerd