2 Dateien zwei Spalten werte suchen und wenn nicht vorhanden mit Werten füllen

Hallo Bernd,
filtere die Mappe "Datenexport" nach den Werten, die nicht in "Dokumentation" vorkommen. Dann kannst du die gewünschten Werte einfach aus der gefilterten Tabelle kopieren:

Sub Test()

Dim shQuelle As Worksheet

Dim shZiel As Worksheet

Dim varSuch As Variant, varfilter() As Variant

Dim LRowQuelle As Long, LRowZiel As Long

Dim c As Range

Dim i As Long, n As Long

Set shQuelle = ThisWorkbook.ActiveSheet

Set shZiel = Workbooks("Dokumentation").Sheets("Dokumentation QuickWin Test")

With shQuelle

LRowQuelle = .Cells(.Rows.Count, 1).End(xlUp).Row

varSuch = Application.Transpose(.Range("A2:A" & LRowQuelle))

End With

With shZiel

LRowZiel = .Cells(.Rows.Count, 4).End(xlUp).Row

For i = LBound(varSuch) To UBound(varSuch)

Set c = .Range("D2" & LRowZiel).Find(varSuch(i), LookIn:=xlValues, lookat:=xlWhole)

If c Is Nothing Then

ReDim Preserve varfilter(n)

varfilter(n) = CStr(varSuch(i))

n = n + 1

End If

Next

End With

shQuelle.UsedRange.AutoFilter Field:=1, Criteria1:=varfilter, Operator:=xlFilterValues

End Sub

Claus

Hallo Claus,
Erst einmal Danke für die schnelle Antwort.
Leider stehen in der Quelle die Daten von verschiedenen Zeiten (z.B.: ab 01.09.2022).
In meiner Auswertung stehen zum Teil die Daten drin, zum Teil auch nicht.
Deshalb kann ich zwar nach dem Datentyp innerhalb der Quelltabelle (ThisWorkbook.ActiveSheet) (Datenexport (1)) suchen und Filtern, aber was bereits in der Dokumentation steht leider nicht.
Da muss ich nachschauen was schon vorhanden ist und was nicht.
Wenn etwas vorhanden ist muss ich das ja auch nicht einfach ignorieren, sondern muss dann in der Spalte "Letzte Änderung" jeweils nachgeschaut werden ob sich etwas verändert hat.
Und zu guter Letzt passen die Spalten nicht in der Reihenfolge der beiden Tabellen zusammen.
leider habe ich deine Suchfunktion nur zum Teil verstanden, sodass ich sie leider nicht anpassen kann.
Ich werde aber versuchen sie zu verstehen.
Ich dachte es gibt eine einfache, für mich verständliche ganz einfache Suchfunktion für Anfänger.

Ich versuche einmal einen Ablauf zu erstellen.
Ich hoffe ich kann damit etwas besser den Ablauf erklären.
Ich hoffe das ich wenn das Gerüst steht, ich die anderen Kopierfunktionen einfügen kann.
Wenn das letzte i durchlaufen = end Sub
Vielen Dank
Bernd

Hallo Karsten,

was meinst du mit 2 Spalten? Kann der gesuchte Wert in beiden Spalten stehen? Oder suchst du nach zwei Texten die in A und B vorkommen müssen, um einen Treffer zu markieren?

Ein paar Beispieldaten wären hilfreich.

Claus

Auf die schnelle würde ich nach der Spalte mit den Y-Werten sortieren. Dann stehen ähnliche Werte übereinander.

Wenn die Werte aber auf größere Lücken (Sprungstellen) aufweisen können, ist die Nähe zweier Werte in der Tabelle aber kein Garant für eine tatsächliche Nähe oder Ähnlichkeit. Zunächst sollte der Ähnlichkeitsbegriff genau definiert werden. Dazu habe ich folgende
Fragen:

1. Wann sind zwei Werte ähnlich?

2. Können auch mehr als zwei Werte ähnlich zueinander sein?

Nehmen wir an es können immer nur zwei Werte zueinander ähnlich sein und es gibt keine größeren Lücken in der Liste der Y-Werte, dann würde ich wie folgt vorgehen:

1. Tabelle mit vier Spalten anlegen:

Spalte A: X-Werte

Spalte B: Y-Werte

Spalte C: Z-Werte

Spalte D: Deltas (wird ncih näher beschreiben)

2. Nach Saplte B sortieren

3. In D2 die Formel =A1-B2 eintragen und nach unten auffüllen

oder

3. In D2 die Formel =WENN(B1-B2 <= 5; A1-B2; "X"), in diesem Fall wird die Differenz der X-Werte nur berechnet, wenn die Y-Werte sich um höchstens 5 (Einheiten) unterscheiden. Sonst wird ein X zurückgegeben, weil die Y-Werte nicht ähnlich genug sind.

Hoffe ich konnte Weiterhelfen. Die Fragestellung hat viel Interpretationsraum gelassen.

Danke, und zwei Fragen noch:

1. Ich habe in einer Spalte Werte, zwischen denen Leerzellen sind.

Jetzt will ich ein Diagramm mit den Werten erstellen.

Ich möchte aber, dass das Diagramm die Leerzellen aus lässt und trotzdem nicht löscht, aber wie?



2. Ich möchte eine fortlaufende Datums- und Wochentags-Spalte aber ohne Montag, wie geht das?



Bananji