Gruppen

Top Gruppen: Windows 7; Windows Vista; Windows XP; Textverarbeitung; Excel; DSL; Internet Browser; E-Mail/Outlook
Betriebsysteme: Windows classik; Linux; BS-Sonstige
Software: Datenbanken; Bildbearbeitung; Audio/mp3/Video; Security/Viren; SW-Sonstige
Hardware: Mainboard/CPU; Grafikkarten; Peripherie; Laptop/Notebook; HW-Sonstiges
Netzwerk: Telefon,ISDN,Modem; W-Lan; NW-Sonstiges
Programmierung: PHP,ASP,Perl...; Java,C++...; Webseiten/HTML
Sonstiges: PC-Sonstiges; Plauderecke; SN Intern; Test

/ Forum / Tabellenkalkulation

Tabellenkalkulation

Fragevon unimx vom 05.01.2019, 10:04 Options

Zwei Tabellenblätter vergleichen und ungleiches hervorheben

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 schreiben

Antwort 1 von Hajo_Zi vom 05.01.2019, 10:35 Options

Hallo Namensloser,

falls Du Dich in VBA auskennnst, kannst Du Dir ein Makro in dieser Datei anpassen.

Link zur Datei

Gruß Hajo

Antwort 2 von unimx vom 05.01.2019, 10:44 Options

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

Antwort 3 von Hajo_Zi vom 05.01.2019, 10:59 Options

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

Antwort 4 von unimx vom 05.01.2019, 11:07 Options

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 :-)

Antwort 5 von Hajo_Zi vom 05.01.2019, 11:18 Options

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

Antwort 6 von unimx vom 05.01.2019, 11:30 Options

:-)

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 vom 05.01.2019, 11:50 Options

Hallo Flo,

ändere die Zeile

For Each RaZelle1 In Range(ActiveSheet.UsedRange.Address)

Gruß Hajo

Antwort 8 von unimx vom 05.01.2019, 14:44 Options

irgendwie klappt es immer noch nicht :-(

Hat es bei dir funktioniert?

Gruß Flo

Antwort 9 von unimx vom 05.01.2019, 14:52 Options

Sry, klappt, kleiner Fehler meinerseits

Danke für deine Hilfe

Gruß Flo

Hinweis

Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..