Office: Range vergleichen Zelle für Zelle (Änderungsverfolgung)

Moin alle zusammen,
das Thema "Vergleichen" wurde ja schon reichlich besprochen. Nur entweder waren die Tipps für mich nicht relevant oder ich war mit dem Code überfordert. Daher hier mal mein Problem. Ich möchte 2 Ranges miteinander vergleichen. Also z.B. Tabelle1.A1:C5 mit Tabelle2.A1:C5. Dabei soll Zelle für Zelle verglichen werden. Also A1 mit A1, A2 mit A2 bis C5 mit C5. Die Daten in Tabelle1 stellen dabei das Original dar, die Daten in Tabelle2 könnten durch Benutzer geändert werden.
Ändert also ein Benutzer den Inhalt einer Zelle in Tabelle2, so soll der Text dieser Zelle gefärbt werden. Es ist also eine Art Änderungsverfolgung. Den Code für eine einzelne Zelle habe ich fertig.
Code:

Problematisch für mich ist nun, dass Ganze auf eine Range auszuweiten. da die Range recht groß ist, macht der Code oben wenig Sinn.
Ich hoffe, dass jemand weiß, wie ich das anstellen könnte.

:)

 

Moin, André,

Code:

 

Ahhhh... habe mir schon gedacht, dass dazu nicht allzu viel Code notwendig ist. Nur selber machen..... *frown.gif*
Da ich ja nicht bloß Spalten vergleichen muss, sondern Ranges, habe ich den Code aufgebohrt. Er ändert die Textfarbe sofort bei Änderung, vergleichtnun 3 Spalten und ändert den Text auf schwarz zurück, wenn er wieder übereinstimmt. Kann man das noch vereinfachen, damit man nicht für jede Spalte so einen Textblock braucht?
Code:

 

Moin, André,

Code:

 

Ich bin schwer begeistert. Vielen Dank!

 

So, nun stehe ich wieder vor'm neuen Tore.....
Mein Code sieht so aus:
Code:

Problem: In den Spalten B-E funktioniert es, in F-H nicht. Es gibt in diesen Bereichen keine verbundenen Zellen. Bedingte Formatierungen gibt es nur in Spalte F und G. Was könnte den Code noch blockieren?

 

Moin, André,

ohne Mappe kann ich nur in der Bereichsangabe für den Vergleich einen Fehler finden (unnd bei mir funktioniert der Code dann auch in dem gesamten Bereich):

Code:

 

Meine Tabelle enthält schon zuviel Internas. Die kann ich hier leider nicht reinsetzen. Ich habe es jetzt soweit, dass die Funktion über die ganze Range funktioniert. Das Problem war wohl, das ich mehrere Ranges ändern möchte, und das Makro mehrfach hintereinander geschrieben habe.
Die Frage ist also nun, wie kann ich das Makro für mehrere Ranges zum laufen bringen?
Vielleicht noch als Ansatz die Ranges aus meiner Datei:
B9:B28

B32:E81
H32:E81

B85:E184
H85:H184

und dann geht es noch eine Weile in dem Schema
Bxx:Exx
Hxx:Hxx weiter.

 

Moin, André,

Bereich entweder per Union miteinander zu einem Großbereich verbinden oder explizit einzeln angeben (B32:E81 und H32:E81 ist wohl ein Schreibfehler):
Code:

 

Ah, da war ich doch fast dran. Ich hatte nur die Ranges einzeln in "" gesetzt. Ok, funktionert. Aber leider reichen die möglichen Ranges nicht aus. Mein Code würde so aussehen:
Code:

Lösche ich das rot markierte, funktioniert er super. Wie könnte man das lösen? Gibt's da Alternativen?

 

Ähm, was ist eine "Union". Ich geh mal suchen....

 

Moin, Anré,

eine "Vereinigung" mehrerer Bereiche... *wink.gif*

Code:

 

Wow, was es nicht alles gibt. Wenn das so funktioniert wie ich es mir denke, müsste das meine Arbeitsmappe gerade zu ausdürren. Ich hoffe, ich kann das morgen gleich mal testen.
Danke trotzdem schonmal!

 

Moin Moin jinx & Co!
Ich habe nun mein Makro angepasst. Es funktioniert bestens. das mit der Union ist echt genial. Da kann ich in meiner Arbeitsmappe noch so einiges verbessern. Danke für den Tipp! Hier für die Interessierten der Code:

Code:

 

MoinMoin,
jetzt habe ich doch noch eine Schwachstelle entdeckt. Da ich den Code aber nicht zu 100% verstehe, stecke ich fest. Der Code funktioniert nicht bloß in den definierten Ranges bzw. der Union, sondern anscheinend in allen Spalten. In Spalte A ändert sich die Schriftfarbe nicht. Ab in Spalte B auch ausserhalb der Ranges. Hat jemand eine Idee woran das liegen könnte?
Gruß, André.