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

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

Sehr geehrte S.. W..,

Vielen Dank, dass Sie sich an die Microsoft-Supportcommunity gewandt haben. Wir helfen Ihnen gerne weiter.

Was Ihre Anforderung betrifft, die letzte Änderung pro Zeile über mehrere Arbeitsblattversionen hinweg zu verfolgen: Es ist zwar technisch möglich, dies mit Formeln zu erreichen, aber die Logik wird recht komplex und schwer zu pflegen, insbesondere wenn die Anzahl der Blätter zunimmt. Aus diesem Grund empfehle ich dringend, stattdessen ein VBA-Makro zu verwenden. Es ist eine viel effizientere und skalierbarere Lösung für diese Art von Aufgabe.

Leider war ich nicht in der Lage, die von Ihnen freigegebene Beispieldatei herunterzuladen, daher habe ich meinerseits eine vereinfachte Version erstellt, um die Makrologik zu testen. In meiner Umgebung hat es erfolgreich funktioniert, daher möchte ich Sie ermutigen, es auch auf Ihrer Seite auszuprobieren.

So sieht meine Beispieldatei aus:

1. Um das Makro auszuführen, drücken Sie ALT+F11, um den VBA-Editor zu öffnen.
2. Fügen Sie > Modul ein.
3. Fügen Sie das Makro unten ein.
4. Drücken Sie F5, oder klicken Sie auf Ausführen, um das Makro auszuführen.

Sub TrackLastChangeByRow()

Dim wsIndex als Arbeitsblatt

Dim wsAls Arbeitsblatt vergleichen

Dim idBereich als Bereich, Zelle als Bereich

Dim id als Variante

Dim lastChange As String

Dim i So Long, j As Long

Schwache Übereinstimmung als boolescher Wert

BasisBlatt als Arbeitsblatt dimmen

CompareSheet als Arbeitsblatt dimmen

Dim idRow so lange

Dim colCount As Long

Set baseSheet = Worksheets ("Index 01")

colCount = baseSheet.Cells(1, Spalten.Anzahl). Ende(xlToLeft). Spalte

Für jede Zelle In baseSheet.Range("B2:B" & baseSheet.Cells(Rows.Count, "B"). Ende (xlUp). Reihe)

id = Zelle. Wert

lastChange = "-"

idRow = Zelle. Rudern

Für i = 2 Bis Arbeitsblätter.Zählen

Set compareSheet = Arbeitsblätter(i)

Wenn compareSheet.Name wie "Index *" dann

match = Wahr

For j = 3 To colCount ' Beginnen Sie in Spalte C , um die ID und die Ergebnisspalte zu überspringen

Wenn baseSheet.Cells(idRow, j). Wert <> compareSheet.Cells(idRow, j). Wert dann

Treffer = Falsch

Ende , wenn

Weiter j

Wenn nicht übereinstimmend, dann

lastChange = compareSheet.Name

Ende , wenn

Ende , wenn

Weiter i

baseSheet.Cells(idRow, 1). Wert = lastChange

Nächste Zelle

MsgBox "Nachverfolgung der letzten Änderung abgeschlossen!"

Ende Sub

So sieht es aus, nachdem ich das Makro ausgeführt habe:

HINWEIS: Stellen Sie sicher, dass Ihre Blätter einheitlich benannt sind (z. B. Index 01, Index 02 usw.) und dass die Struktur (Spalten) auf allen Blättern gleich ist.

Wir hoffen, dass diese Informationen für Sie hilfreich sind. Wenn Sie weitere Bedenken haben oder weitere Hilfe benötigen, zögern Sie bitte nicht, sich an uns zu wenden, damit wir einen Blick darauf werfen und Sie weiterhin unterstützen können. 
Alles Gute
Viego An - MSFT | Spezialist für Microsoft-Community-Support.

Hi! Many thanks already!

The code doesn't work with me, I suppose bc it is partially translated into German by the website. Is there a way to see the original text?

This is how it's written here:

Regarding the download problems with the file - maybe this direct link works better?

https://cloud.blk2.de/index.php/s/TeCyPmgLkwnNCyq/download/Test_Vergleich%206.xlsx

Best regards,

Stefan

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.

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.

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.