Supportnet / Forum / Tabellenkalkulation
Bedingte Formatierung
Frage
Hallo,
gibt es die möglichkeit, mehr als 3 Felder in der "bedingten Formatierung" einzugeben? oder kann ich das mit einer Formel in den Zellen lösen? wenn ja, welche Formel? Ich möchte bspw. sobald ein Buchstabe in meiner Liste eingegeben wird, diesen in einer bestimmte Farbe anzeigen lassen. In der "bedingten Formatierung" kann ich nur 3 Werten eine Farbe zuordnen, ich brauche aber insg. 5-6. Danke für Hilfe !!!
Gruß
Bine
Antwort 1 von M.O.
Antwort 2 von nighty
hi all :)
hier ein kleines beispiel :)
genutzt wird das ereignis des zellenwechsels
einzufuegen unter alt f11/projektexplorer/DeineTabelle
gruss nighty
hier sind 5 zellen definiert und mit vergroesserung der dimensionen leicht erweiterbar sein sollte
Option Explicit
Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim zaehler As Integer
Dim feld(4, 2) As String
rem deine zellen
feld(0, 0) = "A1"
feld(1, 0) = "A2"
feld(2, 0) = "A5"
feld(3, 0) = "B4"
feld(4, 0) = "B7"
rem was sollte der inhalt sein
feld(0, 1) = "a"
feld(1, 1) = "b"
feld(2, 1) = "c"
feld(3, 1) = "d"
feld(4, 1) = "e"
rem was sollte die farbe sein
feld(0, 2) = "1"
feld(1, 2) = "2"
feld(2, 2) = "3"
feld(3, 2) = "4"
feld(4, 2) = "5"
For zaehler = 0 To 4
If Target.Address(0, 0) = feld(zaehler, 0) Then
If Cells(Target.Row, Target.Column) = feld(zaehler, 1) Then
Cells(Target.Row, Target.Column).Interior.ColorIndex = Val(feld(zaehler, 2))
Exit For
Else
Cells(Target.Row, Target.Column).Interior.ColorIndex = xlNone
End If
End If
Next zaehler
Application.EnableEvents = True
End Sub
hier ein kleines beispiel :)
genutzt wird das ereignis des zellenwechsels
einzufuegen unter alt f11/projektexplorer/DeineTabelle
gruss nighty
hier sind 5 zellen definiert und mit vergroesserung der dimensionen leicht erweiterbar sein sollte
Option Explicit
Private Sub worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim zaehler As Integer
Dim feld(4, 2) As String
rem deine zellen
feld(0, 0) = "A1"
feld(1, 0) = "A2"
feld(2, 0) = "A5"
feld(3, 0) = "B4"
feld(4, 0) = "B7"
rem was sollte der inhalt sein
feld(0, 1) = "a"
feld(1, 1) = "b"
feld(2, 1) = "c"
feld(3, 1) = "d"
feld(4, 1) = "e"
rem was sollte die farbe sein
feld(0, 2) = "1"
feld(1, 2) = "2"
feld(2, 2) = "3"
feld(3, 2) = "4"
feld(4, 2) = "5"
For zaehler = 0 To 4
If Target.Address(0, 0) = feld(zaehler, 0) Then
If Cells(Target.Row, Target.Column) = feld(zaehler, 1) Then
Cells(Target.Row, Target.Column).Interior.ColorIndex = Val(feld(zaehler, 2))
Exit For
Else
Cells(Target.Row, Target.Column).Interior.ColorIndex = xlNone
End If
End If
Next zaehler
Application.EnableEvents = True
End Sub