Supportnet / Forum / Tabellenkalkulation
Zwei Tabellenblätter vergleichen und ungleiches hervorheben
Frage
Hallo,
Ich habe folgendes Problem und zwar habe ich eine Mappe mit zwei Tabellen, zb.:
Tab1:
111 333
555 222 111
333 777 888
Tab2:
111 333
555 222 111
333 333 888 232
das Makro soll beide Blätter vergleichen und die, die nicht identisch sind farbig hervorheben.
ich habs schon versucht, aber ich hab keinen blassen schimmer, ich hoffe jemand kann mir helfen
Antwort 1 von Hajo_Zi
Hallo Namensloser,
falls Du Dich in VBA auskennnst, kannst Du Dir ein Makro in dieser Datei anpassen.
Link zur Datei
Gruß Hajo
falls Du Dich in VBA auskennnst, kannst Du Dir ein Makro in dieser Datei anpassen.
Link zur Datei
Gruß Hajo
Antwort 2 von unimx
Hi, deine Website hab ich auch schon gefunden :-)
Ich kenne mich ein wenig in VBA aus.
Ich hab mir deine Makros mal angeschaut, nur ich weiss nicht, wie ich es richtig anpassen kann.
Bei dir ist es immer bezogen auf kleine Bereiche,
Es muss bei mir alles in der ersten Zeile von Tab1 mit allem in der ersten Zeile in Tab2 vergleichen und wenn nicht gleich, dann farbig machen.
und das halt entsprechend wiederholen, bis zum letzten Eintrag.
ich hoffe du kannst mir da weiterhelfen
Ich kenne mich ein wenig in VBA aus.
Ich hab mir deine Makros mal angeschaut, nur ich weiss nicht, wie ich es richtig anpassen kann.
Bei dir ist es immer bezogen auf kleine Bereiche,
Es muss bei mir alles in der ersten Zeile von Tab1 mit allem in der ersten Zeile in Tab2 vergleichen und wenn nicht gleich, dann farbig machen.
und das halt entsprechend wiederholen, bis zum letzten Eintrag.
ich hoffe du kannst mir da weiterhelfen
Antwort 3 von Hajo_Zi
Hallo Namensloser,
Option Explicit
Sub Tabellen_Vergleichen4()
Dim RaZelle1 As Range
For Each RaZelle1 In ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell)
If RaZelle1 = Worksheets("Tabelle2").Range(RaZelle1.Address) And RaZelle1 <> "" Then
If RaZelle1 = RaZelle1 Then RaZelle1.Interior.ColorIndex = 6
End If
Next RaZelle1
End Sub
Gruß Hajo
Option Explicit
Sub Tabellen_Vergleichen4()
Dim RaZelle1 As Range
For Each RaZelle1 In ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell)
If RaZelle1 = Worksheets("Tabelle2").Range(RaZelle1.Address) And RaZelle1 <> "" Then
If RaZelle1 = RaZelle1 Then RaZelle1.Interior.ColorIndex = 6
End If
Next RaZelle1
End Sub
Gruß Hajo
Antwort 4 von unimx
hmm, danke für das Anpassen, aber irgendwie klappt es nicht, oder ich hab mich falsch ausgedrückt .
Tab1:
111 333
555 222 111
333 777 888
Tab2:
111 333
555 222 111
333 333 888 232
ich meine Zeile1 bis zur letzten Spalte
Zeile 2 bis zu letzen Spalter
usw.
so müsste, in meine Bsp Tabelle, die 3 Zeile gelb markiert werden
ps
Mein Name steht doch dabei :-)
Tab1:
111 333
555 222 111
333 777 888
Tab2:
111 333
555 222 111
333 333 888 232
ich meine Zeile1 bis zur letzten Spalte
Zeile 2 bis zu letzen Spalter
usw.
so müsste, in meine Bsp Tabelle, die 3 Zeile gelb markiert werden
ps
Mein Name steht doch dabei :-)
Antwort 5 von Hajo_Zi
Hallo Namensloser,
ich habe in keinen Beitrag ein Gruß mit einem Namen gesehen, was den Beitrag schon persönlicher machen würde. Dein Anmeldedind wird im Internationalen und bei Wikipedia nicht als Vorname geführt.
im ersten Beitrag Stand
"das Makro soll beide Blätter vergleichen und die, die nicht identisch sind farbig hervorheben"
Also markiere die Zellen die unterschiedlich sind.
In Deinem letzten Beispiel wären es 2 Zellen und ich vemute mein Makro macht das auch.
Gruß Hajo
ich habe in keinen Beitrag ein Gruß mit einem Namen gesehen, was den Beitrag schon persönlicher machen würde. Dein Anmeldedind wird im Internationalen und bei Wikipedia nicht als Vorname geführt.
im ersten Beitrag Stand
"das Makro soll beide Blätter vergleichen und die, die nicht identisch sind farbig hervorheben"
Also markiere die Zellen die unterschiedlich sind.
In Deinem letzten Beispiel wären es 2 Zellen und ich vemute mein Makro macht das auch.
Gruß Hajo
Antwort 6 von unimx
:-)
Er tut es aber warum auch immer nicht...
Ich habe die Datei mal hochgeladen
http://www.netupload.de/detail.php?img=da5aa1ba06593efea9eca017722dda80.xls
Nochmal Danke für deine Hilfe.
Gruß Flo
Er tut es aber warum auch immer nicht...
Ich habe die Datei mal hochgeladen
http://www.netupload.de/detail.php?img=da5aa1ba06593efea9eca017722dda80.xls
Nochmal Danke für deine Hilfe.
Gruß Flo
Antwort 7 von Hajo_Zi
Hallo Flo,
ändere die Zeile
For Each RaZelle1 In Range(ActiveSheet.UsedRange.Address)
Gruß Hajo
ändere die Zeile
For Each RaZelle1 In Range(ActiveSheet.UsedRange.Address)
Gruß Hajo
Antwort 8 von unimx
irgendwie klappt es immer noch nicht :-(
Hat es bei dir funktioniert?
Gruß Flo
Hat es bei dir funktioniert?
Gruß Flo
Antwort 9 von unimx
Sry, klappt, kleiner Fehler meinerseits
Danke für deine Hilfe
Gruß Flo
Danke für deine Hilfe
Gruß Flo