Office: Hintergrundfarbe als Bedingung?

Hallo, wenn ich in einem Makro per SVerweis eine Zelle bzw. dessen Nummer gefunden habe und diese Zelle dann in eine If-Bedingung einbaue, ist es dann Möglich die Hintergrundfarbe der Zelle als Bedingung zu setzten? So in etwa:

Code:

Zweitens wüßte ich gern, ob ich die Hintergrundfarbe einer anderen Zelle zum Vergleich für eine Bedingung nehmen kann? Etwa so:

Code:

:)

 

Hallo CreatorX,

ein bedingtes "Jein".

Wenn es sich um eine fest zugewiesene Hintergrundfarbe handelt, ist es möglich.
Mit
Code:

greifst Du auf die Hintergrundfarbe (als Zahl bezogen auf die Farbpalette) zu. Auslesen und zuweisen sind möglich. Selbstverständlich kannst Du auch zwei Zellen miteinander vergleichen. Wenn der Zelle keine Farbe zugewiesen ist, kommt als Ergebnis -4142, was von Weiß = 2 (Standard-Farbpalette von Excel 2003) abweicht...

Wenn es sich um eine bedingte Formatierung handelt, sind große Verrenkungen notwendig, die aber nicht zwingend zum Erfolg führen. Im letzteren Fall würde ich dann nicht die Hintergrundfarbe abfragen, sondern die Bedingung selbst prüfen.

Grüße
EarlFred

 

Nein nein, es geht um die Hintergrundfarbe und nicht um bedingte Formatierung. Ich dank dir für deine hilfreiche Erklärung!

 

So ich muss das jetzt nochmal aufgreifen. Ich möchte das jetzt mit SVerweis verbinden (in VBA). Also ich möchte, dass die Felder in Spalte G die selbe Farbe haben wie die Felder in Spalte A mit dem selben Inhalt.
Ich hab jetzt einfach mal folgendes versucht:
Code:

Dabei bekomm ich aber die Fehlermeldung "unzulässiger oder nicht ausreichend definierter Verweis" und das Cells nach Application.VLookup wird markiert, außerdem weiß ich auch gar nicht wo ich nach dem = das Interior.ColorIndex einsetzten muss.

 

Sorry, ich finde den Editierbutton nicht *eek.gif* desshalb muss ich nochmal neu Antworten.
Also, warum ich die Fehlermeldung bekommen hab, weiß ich jetzt, ich hatte kein Sheet zugewiesen. Außerdem hab ich jetzt statt Cells Range verwendet (das verwende ich sonst auch immer, ansonsten hat es keinen Grund)

So sieht der Code jetzt aus:
Code:

Leider weiß ich jetzt immernoch nicht wo ich nach dem = das Interior.ColorIndex hinsetzten muss damit es mir auch den Farbwert liefert und nicht den Wert in der Zelle selbst ^^

 

Hallo CreatorX,

der SVERWEIS (VLOOKUP) liefert Dir als Ergebnis einen Zellwert, nicht die Zelle selbst.

Eine Möglichkeit wäre: Mit FIND (entweder das Beispiel in der Excel-OH anschauen oder mal hier im Forum nach Codeschnipseln suchen, gibt es massig) im betreffenden Suchbereich arbeiten und über OFFSET die x. Spalte neben der Suchspalte zu bekommen. Bei der Fundstelle als Range kannst Du dann auch den .Interior.Colorindex abgreifen.

Grüße
EarlFred

 

Moin, CreatorX,

ich würde mit (WorksheetFunction.)MATCH arbeiten, was die Zeile der Bedingung zurück liefert (entspricht der Tabellenfunktion Vergleich)...

 

Ich hab es jetzt erstmal mit Find gemacht.
Code:

Hier wird die Spalte I von Oben nach Unten abgearbeitet und nach den selben Inhalt in Spalte A gesucht. Wird der gefunden wird die Farbe von der A-Zelle in der I-Zelle eingetragen.
Das funktioniert grundsätzlich auch, allerdings bekomm ich ne Fehlermeldung, wenn sich in I einen Inhalt befindet, den es in A nicht gibt. Wie kann ich das umgehen?

 

hi

suchergebnis als Objekt def. und abfragen ob was im Objekt steht
vgl.
http://www.ms-office-forum.net/forum...d.php?t=217331

bzw. wenn du bei find im Code F1 drückst hast du auch ein Demobsp.

[edit]

hier dein Code

ist aber nicht getestet

Code:

 

Danke, genau das wars! Top Support hier!