Wirst das wohl dann nur noch mit VBA lösen können. Formeln erlauben meines Wissens nach keine Formatierungen durch zu führen.
Habe im Web ein Beispielcode gefunden:
Code:
Private Sub Worksheet_Change(ByVal Ziel As Excel.Range)
Dim rngZelle As Range
For Each rngZelle In ActiveSheet.UsedRange
Select Case rngZelle
Case "Urlaub"
rngZelle.Interior.Color = RGB(255, 0, 0)
Case "Krank"
rngZelle.Interior.Color = RGB(0, 255, 0)
Case "Aussendienst"
rngZelle.Interior.Color = RGB(0, 0, 255)
Case "Innendienst"
rngZelle.Interior.Color = RGB(255, 255, 0)
Case "Technik"
rngZelle.Interior.Color = RGB(0, 255, 255)
Case Else
rngZelle.Interior.ColorIndex = xlNone
End Select
Next
End Sub
(Gefunden:
http://www.office-loesung.de/ftopic3...c.php&start=15)
auch:
http://xltreff.de/makro/art_bedingte.htm
Am Besten googlen
Da findet man haufen Beispiele:
http://www.google.de/search?hl=de&q=...g%22+vba&meta=
Gruss,
Gregor W.
Zertifikate: SCJP, SCJA, ECDL (komplett)
| in Planung: MCTS, LPIs, OCUP (UML)
|| Weiterbildung: VB6, Office, Dreamwaver + FrontPage (ohje
) ... und viele Bücher
Excel--> Bedingte Formatierung -
23.03.2006, 15:57
