Office: Zellen vergleichen und färben

Hallo Forum,

ich möchte folgendes machen:

Mittels VBA den Wert der Spalte A1:C100 mit den Spalten D1:D100 vergleichen und dannach die unterschiede rot färben. Kann mir jemand Helfen?

Gruß

Usi

:)

 

Welche Werte aus A:C sollen verglichen werden? A mit D, B mit D, C mit D? Und Einfärben, wenn alle mit D gleich sind oder wenn bereits einer mit D gleich ist?

 

Es sollen jeweils a1 mit D1 a2 mit D2 usw. verglichen werden. Es sollen nur die Daten die nichtgleichen daten rot gefärbt werden. Z.b A1 = d1 nicht färben a2d2 a2 rot färben.

Gruß

Usi

 

Ahhh so...
Markiere alle Zellen in Spalte A.
Wähle Format, Bedingte Formatierung
Statt "Zellwert ist" wähle "Formel ist", trage dann ein:
=A1D1
und wähle über Button Format die gewünschten Merkmale aus.
Geht's?

 

Ich würde geren das ganze nicht über die "Bedingte Formatierung" sonder über VBA lösen, da die Formate in eine neue Arbeitsmappe übertragen werden und daher auch die Bedingte Formatierung und daher alle Zellen in der neuen Arbeitsmappe rot sind.

Gruß

Usi

 

Hi Usi,

Code:

Hiermit werden in jeder Zeile die Werte der Spalten A bis C mit dem Wert in Spalte D verglichen und wenn die beiden Werte ungleich sid wird die entsprechende Zelle (A,B,C) rot gemacht.

Gruß
André

 

Morgen Andre`

ich würde ja gerne die Werte der spalte
a1 mit d1
b1 mit e1
c1 mit f1

bis

a100 mit d100
b100 mit e100
c100 mit f100

Dein Code fergleicht ja a-c mit d1

Gruß

Usi

 

Code:

 

Mahlzeit Matthias,

genau das was ich gewollt habe. Recht herzlichen Dank!!!! *biggrin.gif*

Gruß

Usi

 

Moin, tusner,

hoffentlich ändern sich Deine Werte nie...

 

Morgen jinx,

warum hoffst Du für mich das sich meine Werte nie ändern????

Gruß

Usi

 

Moin, tusner,

dann ändere doch bitte einmal zwecks Demonstartion einen Deiner als unterschiedlich eingefärbten Werte auf einen inhaltsgleichen - das System ist statisch und weist diesen weiterhin als nicht inhaltsgleich aus, das Makro muss manuell neu gestartet werden, nimmt aber die Veränderungen nicht heraus...

 

Dises "Färben Makro" ist ein teil eines Makros, das beim Öffnen der Datei Werte (Namen und x) in der Tabelle1 der Spalten a:c in die Tabelle2 in die Zeilen d-f kopiert.
Wenn man auf einen Button Werte übernehmen klickt, werden die Werte der Tabelle2 der Spalten a-c in die Spalten d-f der Tabelle2 kopiert und die Werte der Tabelle1 a:c in Tabelle2 a:c kopiert. Somit habe ich den vergelich der Tabelle2 Spalten a:c gegenüber d:e und bin glücklich!!!

Gruß

Thomas

 

Frage:
Wie sähe der Code aus, wenn ich in Spalte A alle Zellen nacheinander vergleiche, wenn nun A1 und A2 identisch sind nichts machen, ist jedoch zb. A2 und A3 unterschiedlich, so soll er A2 markieren (Quasi vor jeder neuen "Gruppe" eine Markierung, in etwa so:

Code:

)

 

Moin, schlauchturm,

möglicherweise so (Bereich für den Rahmen ist anzupassen - hier nur in Spalte A), für vor der Gruppe würde ich nicht unbedingt den unteren Rahmen empfehlen:

Code: