Farbe mit Hilfe von VBA Code uebertragen

http://xlforum.herber.de/
Hallo Liebe VBA-Freunde,
ich habe ein kleines Problem, bei dem ich Hilfe benoetigen wuerde.
Ich habe einen Code in VBA geschrieben, der die Zellfarbe in Zelle B4 zu rot/gruen/gelb/blau aendert, wenn Zelle Q4 genau zu dieser Farbe geandert wird. Dies klappt auch wenn ich die Zellfarbe in Q4 manuell umstelle.
Es funktioniert nicht, wenn ich die Zellfarbe in Q4 anstatt manuell, durch eine bedingte Formatierung automatisch umstellen lasse. Dies ist aber Sinn und Zweck der Sache.
Habt ihr hier eine Idee, warum mein VBA code die Farbe in B4 nicht aendert, wenn die Farbe in Q4 durch die bedingte Formatierung geaendert wird?
Anbei der Code:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Traffic_Signs_GreenYellowRed End Sub

Sub Traffic_Signs_GreenYellowRed()
If Range("Q4").Interior.ColorIndex = 1 Or _
Range("Q4").Interior.ColorIndex = 1 Or _
Range("Q4").Interior.ColorIndex = 1 Then
Worksheets("CPC_Full").Range("B4").Interior.ColorIndex = 1
End If
If Range("Q4").Interior.ColorIndex = 3 Or _
Range("Q4").Interior.ColorIndex = 3 Or _
Range("Q4").Interior.ColorIndex = 3 Then
Worksheets("CPC_Full").Range("B4").Interior.ColorIndex = 3
End If
If Range("Q4").Interior.ColorIndex = 4 Or _
Range("Q4").Interior.ColorIndex = 4 Or _
Range("Q4").Interior.ColorIndex = 4 Then
Worksheets("CPC_Full").Range("B4").Interior.ColorIndex = 4
End If
If Range("Q4").Interior.ColorIndex = 6 Or _
Range("Q4").Interior.ColorIndex = 6 Or _
Range("Q4").Interior.ColorIndex = 6 Then
Worksheets("CPC_Full").Range("B4").Interior.ColorIndex = 6
End If
End Sub

Vielen Dank im Voraus!
Marci

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

…Marci;
1. Mach dich mit den (VBA-)Elementen der BedingtFormatierung vertraut, dann merkst du schnell, dass du nur die Einstellungen pro BedingtFormatierungsRegel abfragen kannst, nicht aber, welche aktiv ist. Dafür gibt's 3 verschiedene Methodenarten, die alle mehr oder weniger kompliziert/komplex sind.
2. Ab Xl14/2010 gibt's die Möglichkeit, die gezeigten Formate abzufragen. Dazu wurde ein neues, Range nachgeordnetes Objekt geschaffen, DisplayFormat, das alles außer Symbole und Datenbalken zurückgeben kann, sofern es unter seinen Eigenschaften aufgeführt ist. Mit deiner XlVersion hast du also Pech! Außerdem hat MS es inzwischen für die reguläre Anwendung in UDFs für ZellFmln gesperrt, aber so etwas hattest du ja auch nicht vor.
3. Grundsätzlich kann man ab Xl12/2007 ZellFormate auch per UDF in einer ZellFml übertragen, wie dir der deinem direkt nachfolgende Thread zeigt (dafür ist allerdings auch noch ein gewisser Trick erforderlich). Man sollte also auch mal etwas mehr im Forum lesen als nur auf die zu einer konkreten Frage gegebenen AWen zu hoffen!
4. Ab Xl14/2010 kann man 3. unter Einsatz von 2. auch für bedingt erzeugte Formate machen. Eine derartige ZellFml könnte dann so lauten: =LetFormula("ColorMe(,CellColor(C54),C54,1)") für C54 als bedingt formatierte QuellZelle
Die UDF LetFormula müsstest du dann in Archiv bzw Internet suchen oder sie dir selbst schreiben (Hinweise im nachfolgd Thread → minimal 3 Zeilen inkl Kopf- und FußZeile). Die UDF ColorMe steht im nachfolgd Thread und CellColor (erst ab Xl14/2010!) ist in der einfachsten Variante genauso simpel wie die erste UDF:

Rem Ermittelt gezeigte ZellFarbe (auch aus BedFormat, erst ab Xl14!)
Function CellColor(Zelle As Range)
CellColor = Zelle.DisplayFormat.Interior.Color
End Function

Gruß + FrOst, Luc :-?

Beliebteste Forumthreads (12 Monate)

Farbe mit Hilfe von VBA Code uebertragen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread