Supportnet Computer
Planet of Tech

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.

Hallo Bine,

schau mal bei

http://www.excelbeispiele.de/

bei Beispiele, Beispiel 2 nach.

Gruß

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

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: