Vergleich von Tabellen, Anzeige der letzten Änderung je Zeile.

Question

Vergleich von Tabellen, Anzeige der letzten Änderung je Zeile.

Anonym

Hallo zusammen,

ich habe eine Excel-Datei mit mehreren Arbeitsblättern, die verschiedene Versionen der selben Tabelle darstellen (Index 01, Index 02, Index 03, ...).

Hier mal eine Beispieldatei zum Download: https://cloud.blk2.de/index.php/s/TeCyPmgLkwnNCyq

Es geht nun darum, die einzelnen Index-Stände miteinander zu vergleichen.

Damit Excel genau weiß, welche Zeilen es miteinander vergleichen soll, gibt es in Spalte "B" eine "ID" für jede Zeile. So ist es kein Problem, wenn mal eine neue Zeile dazu kommt oder wegfällt.

In der Beispieldatei ist bereits eine Bedingte Formatierung eingerichtet, die Abweichungen vom vorigen Index farbig darstellt. Das hab ich dank der tollen Hilfe von steve1da schon geschafft :) Das nur am Rande.

Nun zur Aufgabenstellung:

In der ersten Spalte würde ich gerne für jede Zeile anzeigen lassen, in welchem Arbeitsblatt die letzte Änderung passiert ist. Dort soll also der jeweilige Name des Arbeitsblatts stehen.

Will heißen:

Keine Änderung (dh. seit "Index 01" hat sich nichts geändert) -> in erster Spalte steht "-"
Änderung in Blatt "Index 2" -> in erster Spalte steht "Index 2"
Änderung in Blatt "Index 3" -> in erster Spalte steht "Index 3"

....

Im Grunde müsste die Formel in Spalte 1 zwei Zeilen vergleichen, und zwar anhand von gleichen Werten in der Spalte B "ID".

Für den Fall, dass in der Zeile alle Zellen identisch sind, müsste "-" in die Zelle geschrieben werden.

Für den Fall, dass in der Zeile mindestens eine Zelle zwischen "Index 1" und "Index 2" unterschiedlich ist, müsste dann "Index 2" (dh. der Name des aktuellen Tabellenblatts "Index 2") in die Zelle geschrieben werden.

Im Tabellenblatt 3 ("Index 3") müsste man die Formel dann noch erweitern um den Fall, dass es Unterschiede gibt zwischen Index 2 und Index 3.

Und so weiter.

Wie komme ich zum Ziel? Habt ihr Vorschläge?

Hoffe, meine Ausführungen waren verständlich genug!

Grüße und danke im Voraus :)

Stefan

Gesperrte Frage. Diese Frage wurde aus der Microsoft-Support-Community migriert. Sie können darüber abstimmen, ob sie hilfreich ist, aber Sie können keine Kommentare oder Antworten hinzufügen oder der Frage folgen.

0 Kommentare

7 Antworten

Answer 1

Diese Antwort wurde automatisch übersetzt. Daher können grammatikalische Fehler oder seltsame Formulierungen vorkommen.

Hallo Stefan,
Es ist eine Weile her und ich schreibe, um zu sehen, wie es mit diesem Thema weitergeht. Hatten Sie Gelegenheit, die Antworten zu überprüfen? Jedes Update wäre willkommen.

Bitte lass es mich wissen, wenn ich dir bei irgendetwas helfen kann.

Ich freue mich darauf, bald von Ihnen zu hören.

Ich wünsche Ihnen einen schönen Tag.

Alles Gute
Viego An - MSFT | Spezialist für Microsoft-Community-Support.

Answer 2

Diese Antwort wurde automatisch übersetzt. Daher können grammatikalische Fehler oder seltsame Formulierungen vorkommen.

Hallo Stefan ,
Vielen Dank für Ihr Update.

Ich habe Ihnen eine neue Version des VBA-Makros per privater Nachricht geschickt. Dieses Makro dient zum Vergleich aller Indexblätter (z. B. Index 01, Index 02, Index 03 usw.), indem die eindeutige ID in Spalte B abgeglichen wird.

Für jede Zeile, beginnend mit Zeile 28, zeigt das Makro in Spalte A den Namen des Arbeitsblatts an, in dem die letzte Änderung stattgefunden hat:

Wenn seit Index 01 keine Änderungen aufgetreten sind, wird "–" angezeigt.

Wenn eine Änderung in Index 02 stattgefunden hat, wird "Index 2" angezeigt.

Wenn eine Änderung in Index 03 aufgetreten ist, wird "Index 3" angezeigt.

Der Vergleich berücksichtigt hinzugefügte oder entfernte Zeilen und basiert immer auf der eindeutigen ID in Spalte B.

Makros werden nicht automatisch ausgeführt. Sie müssen sie manuell ausführen, entweder über die Registerkarte Entwicklertools oder durch Drücken von F5 im VBA-Editor.

Wenn Sie Ihrem Client die Verwendung erleichtern möchten, können Sie dem Blatt auch eine Schaltfläche hinzufügen, die das Makro mit einem einzigen Klick auslöst.

Wir hoffen, dass diese Informationen für Sie hilfreich sind. Bitte überprüfen und testen Sie das Makro nach Belieben und teilen Sie mir mit, ob es wie erwartet funktioniert oder ob Sie auf Probleme stoßen.
Alles Gute
Viego An - MSFT | Spezialist für Microsoft-Community-Support.

Answer 3

Hi!

Many thanks for the private message! This worked, the text wasn't translated.

I added the text into the VBA Editor:

For now, it looks like it works for the first sheet. Very cool :)

Each cell in column A is set to "-".

For the other sheets, this is not yet the case - how can I implement this to the other sheets?

In addition, is it possible to start the whole process only from cell A28 / line 28 (as I have other stuff like description text etc. above that)?

I've never worked with macros - do changes (i.e. if one cell changes it's content) apply immediately or when re-opening the document or do I have to execute the macro manually? Is this only possible by going to VBA Editor and pressing F5?

Here's the updated test file: https://cloud.blk2.de/index.php/s/6eCZ7WYns3yBwD9/download/Test\_Vergleich%207.xlsm

Best regards, many many thanks!

Stefan

@Andreas Killer: Danke für die Hinweise / Formeln für die bedingte Formatierung. Das hatte ich tatsächlich schon hinbekommen, siehe mein Dokument. Ist eine sehr coole Funktion.

Answer 4

Diese Antwort wurde automatisch übersetzt. Daher können grammatikalische Fehler oder seltsame Formulierungen vorkommen.

Hallo
Vielen Dank für Ihre Antwort. Ich habe Ihnen das VBA-Makro bereits per privater Nachricht geschickt. Könnten Sie bitte überprüfen, ob es ins Deutsche übersetzt wurde?
Hier sind die Schritte zum Öffnen von "Private Nachrichten anzeigen":

Um private E-Mail-Optionen anzuzeigen, melden Sie sich bei Microsoft Community an> verwenden Sie das E-Mail-Konto, das diese Threadinformationen in Microsoft Community veröffentlicht hat, > klicken Sie in der oberen rechten Ecke auf Profil, und wählen Sie dann Mein Profil aus.

Alles Gute
Viego An - MSFT | Spezialist für Microsoft-Community-Support.

Answer 5

Andreas Killer 144.1K Volunteer Moderator

Es braucht 3 bedingte Formatierungen um die Änderungen sichtbar zu machen:

Im Blatt Index 2:

D:D: =SVERWEIS($B1;'Index 1'!$B:$F;3;0)<>$D1

E:E: =SVERWEIS($B1;'Index 1'!$B:$F;4;0)<>$E1

F:F: =SVERWEIS($B1;'Index 1'!$B:$F;5;0)<>$F1

Sieht dann so aus:

Dito. für die Folgeblätter mit entsprechend abgeändertem Blattnamen.

Andreas.

0 Kommentare