Match-NoMatch

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Match-NoMatch

31.01.2022 10:52:32

Yal

AW: Match-NoMatch

31.01.2022 12:20:47

Chris

AW: Match-NoMatch

31.01.2022 11:20:25

UweD

AW: Match-NoMatch

31.01.2022 12:19:50

Chris

AW: Match-NoMatch

01.02.2022 09:45:52

Chris

AW: Match-NoMatch

01.02.2022 10:43:35

Yal

AW: Match-NoMatch

01.02.2022 16:35:29

UweD

Hallo Chris,
man kann alle mit VBA machen, es ist aber nicht alles sinnvoll, mit VBA zu tun, da andere Werkzeug effektiver, leichter, stabiler sind.
In dem Fall empfehle ich Power Query (PQ).
Markiere deine Datenbereiche in "Quelle-Neu", wandle in einer aktiven Tabelle (Strg+n), gehe auf dem Reiter "Tabellentools" und benenne diese Tabelle in "kdNeu".
dasselbe auf Quelle-Alt --> "kdAlt" (Namenunterscheidung hilft bei der Erklärung)
Gehe auf die Tabelle "kdNeu", dann Menü "Daten", "aus Tabelle". Jetzt bist Du in PQ-Editor.
Auf die linke Vertikale graue Spalte, wo "Abfragen" steht gehe auf dem ">", um das Ding zu öffnen.
Mit Rechtklick auf die Abfrage "kdNeu", wähle "Duplizieren".
Klicke den Duplikat an, gehe auf dem rechten Bereich und andere den Namen der Abfrage "kdNeu (2)" in "kdAlt"
Klicke darunter auf dem Schritt "Quelle" und ändere in der Formelfenster die Name der Quelle in "kdAlt" (Achtung: Case sensitiv)
Gehe auf Menü "Start", "Abfrage zusammenführen", "Abfragen als neue Abfrage zusammenführen",
Wählt für den unteren Bereich die andere Tabelle.
Markiere in den Beide Tabellenvorschau die Spalte "KdNr" und wähle den Join-Art. An der Stelle lasst ich Dir selber nachdenken, was Du sehen möchtest ;-)
Falls Du dich verzettelst, siehe der letzten Eintrag in den "angewandete Schritten" rechts das "Einstellung"-Rädchen. Drauf klicken und anpassen.
Name der neue Abfrage in "Ergebnis" ändern.
Auf der Überschrift der neue Spalte "kdNeu" (ode "kdAlt", falls ich mich vertan habe), auf die auseindergehende Pfeile klicken, gewünschte Spalten auswählen (hier auch kann nachträglich justiert werden).
Anschliessend die Spalte zuviel entfernen.
auf Menü "Datei", "Schliessen & laden in..." auswählen, "nur Verbindung erstellen" anklicken.
Auf dem rechten Abfrageliste, Abfrage "Ergebnis" rechtsklicken, "Laden in...", diesmal "Tabelle" auswählen (hätten es vorher direkt gemacht wären die 3 Abfragen als neue Tabell gekommen).
Fertig
Möchtest Du
die Neu, die auch alt waren,
die Alt, die nicht mehr im neu sind,
die neu, die nicht alt waren?
Es spielt sich alles in diesem "Join-Art". Auf die Abfrage "Ergebnis" rechtklicken, "Bearbeiten", Abfrage duplizieren, andere Join-Art auswählen, usw.
Viel Spass beim Spielen. Das gleich per VBA? Vergiss es.
Jede geladen Abfrage lässt sich mit rechtsklick "Aktualisieren".
Das Ergebnis sieht so aus (aber selber machen ist besser ;-):
https://www.herber.de/bbs/user/150785.xlsx
VG
Yal

Sub Abgleich() Dim TbA As Worksheet, TbN As Worksheet, TbG As Worksheet Dim LrA As Long, LrG As Long, i As Long, Zeile As Long, SP As Integer Set TbA = Sheets("Quelle-Alt") Set TbN = Sheets("Quelle-Neu") Set TbG = Sheets("Ganz Neu") SP = 6 'Spalte F 'reset, Löschen ab Zeile 2 TbG.UsedRange.Offset(1).Delete LrA = TbA.Cells(TbA.Rows.Count, SP).End(xlUp).Row 'letzte Zeile der Spalte For i = 2 To LrA Zeile = WorksheetFunction.CountIf(TbN.Columns(SP), TbA.Cells(i, SP)) If Zeile > 0 Then Zeile = WorksheetFunction.Match(TbA.Cells(i, SP), TbN.Columns(SP), 0) TbA.Cells(i, SP).Offset(0, 1).Resize(1, 5).Copy _ TbN.Cells(Zeile, SP).Offset(0, 1).Resize(1, 5) Else LrG = TbG.Cells(TbG.Rows.Count, SP).End(xlUp).Row + 1 TbA.Rows(i).Copy TbG.Rows(LrG) End If Next End Sub

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread