Hallo Experten
Mit der bedingten Formatierung kann ich ja nur 3 Bedingungen setzen. Leider.
Wie kriege ich das hin, wenn ich aber 10 Zellenformate (sprich farblich) haben möchte?
Das ganze befindet sich immer in Spalte „B“; unterscheidung von
„TAF“,„FLU“,„FLO“,ILS",Met",Gen",BBU",BFS",„RIM“,„Div“
in je einer eigenen Zellenfarbe.
Any solutions?
Thanks
Entweder hiermit:
http://www.xldynamic.com/source/xld.CFPlus.Download…
oder mit Makro
z.B.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCell As Range
Dim bytColor As Byte
Dim Bereich As String
’ Bereich der überwacht wird
Bereich = „B1:B20“
For Each rngCell In Range(Bereich)
Select Case rngCell.Value
Case „a“
bytColor = 3 ’ Rot
Case „b“
bytColor = 4 ’ Grün
Case „c“
bytColor = 5 ’ Blau
Case „d“
bytColor = 6 ’ Gelb
Case „e“
bytColor = 7 ’ Rosa
’ usw…
'…
Case Else
bytColor = 0 ’ keine Farbe
End Select
rngCell.Interior.ColorIndex = bytColor
Next rngCell
End Sub
Case " " musst Du anpassen - desgleichen den Bereich B1:B100 - und noch weitere Farben hinzufügen für Deine Ansprüche.
Gruß Lisa
ähm…ganz eine scheue Frage 
Habe Probleme mit abspeichern und ausführen des Makros. Ist es ein Modul, Klassenmodul Prozedur…?
öffne Deine Arbeitsmappe - Dein Arbeitsblatt - Menue Extras - Makros - Visual Basic Editor - dort links oben Deine Arbeitsmappe anklicken - darunter das Arbeitsblatt für das Makro - Menue Einfügen - Modul - hier den Code hineinkopieren und anpassen an Deine Erfordernisse VBE schliessen
siehe auch hier:
Das Einfügen von Makros bzw. benutzerdefinierte Funktionen in VBA
http://www.online-excel.de/excel/singsel_vba.php?f=4…
Gruß Lisa
Toll! Hat geklappt.
Besten Dank Lisa