Makro um Spalten zu vergleichen - SONDERFALL

Question

Hallo Leute,

ich bin neu hier, hoffe aber ihr werdet mir trotzdem zur Seite stehen :)

Folgendes Problem:

Ich bräuchte ein Makro für Excel 2007 mit dem ich die Werte von Spalte X und Spalte Z vergleichen kann. Es handelt sich um 310 Werte. Manche Felder sind allerdings auch leer oder enthalten Buchstaben, diese sollten einfach ignoriert werden.

Die Spalten die verglichen werden, da sie beide Zahlen enthalten (Zahlen von 1-4), sollten dann eingefärbt werden. Und zwar falls der Wert in X höher ist als in Z soll die Zelle rot gefärbt werden. Falls X niedriger als Z soll die Spalte blau werden und falls beide gleich sind, soll die Spalte Grün werden. Wie gesagt, da auch Buchstaben enthalten sein können oder eine der beiden/beide leer sein können gestaltet sich das ganze nicht gerade einfach. Dass ich eine absolut VBA Niete bin kommt erschwerend dazu :(

Ich hoffe hier findet sich jemand der aus Lust oder Langeweile mein Problem lösen kann. Wäre euch sehr sehr dankbar.

Mfg Andi

Answer 1

sorry, nochmal eine kleine Änderung. Es wird noch komplizierter.....

vergesst was ich oben zu den Farbverteilungen etc geschrieben habe... nur das Grundproblem bleibt dasselbe

es kommt eine dritte Spalte y dazu.

Falls diese leer ist, gilt:

X = Z -> wird Spalte Z keine Farbe
X < Z -> wird Spalte Z Blau
X > Z -> wird Spalte Z Rot

falls y einen Wert enthält:

y = Z -> wird Spalte Z keine Farbe
y < Z -> wird Spalte Z Gelb
y > Z -> wird Spalte Z Orange

Answer 2

Hallo Andi,

das kannst du auch mit der bedingten Formatierung lösen.

Probier mal die folgenden Formeln für die Zelle Z1 aus.

Start - Bedingte Formatierung - Neue Regel - Formel zur Ermittlung der zu formatierenden Zellen verwenden

für Blau: =UND(ISTZAHL(X1);ISTZAHL(Z1);ISTLEER(Y1);X1&lt;Z1)
für Rot: =UND(ISTZAHL(X1);ISTZAHL(Z1);ISTLEER(Y1);X1&gt;Z1)
für Gelb: =UND(ISTZAHL(X1);ISTZAHL(Z1);ISTLEER(Y1)=FALSCH;Y1&lt;Z1)
für Orange: =UND(ISTZAHL(X1);ISTZAHL(Z1);ISTLEER(Y1)=FALSCH;Y1&gt;Z1)

Dann einfach so weit wie benötigt nach unten ziehen.

Gruß

M.O.

Answer 3

Hallo,

noch mal ich :-).

Dann einfach so weit wie benötigt nach unten ziehen.

Muss natürlich heißen: Format so weit wie benötigt übertragen.

Gruß

M.O.

Answer 4

Vielen Dank schonmal M.O. werd so bald wie möglich ausprobieren und dann hier den Erfolg oder Misserfolg posten :) hoffe du schaust in nächster Zeit noch paar mal in den Thread hier rein falls noch Probleme auftreten sollten ;)

lg Andi

Answer 5

Hallo Andi,

ich bin öfters hier ;-). Ansonsten gibt es ja auch noch weitere Helfer.

Gruß

M.O.