Vergleich-Funktion über externe Arbeitsmappen

Hallo zusammen,
ich habe ein Problem bzgl. meines Makro-Programms und wäre für eure Hilfe ungemein dankbar. Ich möchte gerne in die aktuelle Zelle (bspw. H12) einen Wert eintragen, welcher aus einer externen Datei gelesen wird. Dabei soll ein bestimmter Eintrag (B12) aus meiner aktuellen Zeile verglichen werden mit einer bestimmten Spalte aus der externen Datei. Wird ein übereinstimmender Eintrag gefunden, soll in meine aktuellen Zelle der Wert rechts von dem gefunden Eintrag aus der externen Datei eingetragen werden.
Bisher habe ich es über die INDIREKT Funktion, jedoch muss die externe Datei geöffnet sein, und deshalb kann ich es nicht über die INDIREKT Funktion mehr machen:

=INDIREKT(ADRESSE(VERGLEICH($B12; INDIREKT(VERKETTEN("'"&H$8&"'!B:B"));0);6;;;H$8))

In diesem Beispiel steht in H8 die Adresse der externen Datei, die Spalte B in der externen Datei soll dabei durchsucht werden und der Wert in der 6.Spalte aus der gefundenen Zeile soll dann schließlich eingetragen werden.
Wie gesagt möchte ich das nun über ein Makro lösen der ohne die INDIREKT Funktion diesen Vergleich durchführt und es dann in die aktive Zelle einträgt (und später dann nicht nur mit der aktiven Zelle diesen Vergleich durchführen, sondern der kompletten aktiven Spalte, aber das sollte ja dann möglich sein)
Ich hoffe ich habe mich nicht zu unklar ausgedrückt, ansonsten beschreibe ich es gerne noch genauer. Vielleicht kann man mein Anliegen auch unkomplizierter lösen, das wäre auch super.
Viele Grüße
Anito

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Rudi,
ich habe dein Vorschlag ausprobiert, jedoch trägt er in die Zelle eine Null ein, anstatt den gewünschten Wert (145). Vielleicht habe ich die Formel falsch angepasst. Also jetzt in dem konkreten Beispiel, das ich angefügt habe, möchte ich in die aktive Celle, z.B. C12, den Wert der "Komponente1", also B12, aus der externen Datei eintragen. Das wäre wie in diesem Fall 145. Optimal wäre es noch, wenn man statt ActiveWorkbook.Path einen beliebigen Pfad angeben könnte und außerdem statt den Dateinamen über C8 auszulesen, einfach immer die 8. Zeile der aktuellen Spalte benutzt, also dass man auch wenn man eine Spalte weiter rückt und das Makro ausführt, nicht der Dateiname aus C8 gelesen wird sondern entsprechend D8, weil es die aktive Zelle wäre.
Die Links für die Dateien:
https://www.herber.de/bbs/user/83290.xlsx
https://www.herber.de/bbs/user/83291.xlsm
Die erste Datei, die in meinem Beispiel als Externe Datei dient, müsste man wieder umbenenen in "ExterneDatei1.xlsx, da es beim Upload einen anderen Namen bekommen hat.
Ich hoffe es wird mit dem Beispiel noch ein wenig verständlicher
@Matze: Dies ist das gewünschte angehängte Musterbeispiel.
Gruß
Anito

Dim i As Long Application.ScreenUpdating = False For i = Cells(Rows.Count, ActiveCell.Column).End(xlUp).Row To 1 Step -1 If Cells(i, ActiveCell.Column) = "#NV" Then Cells(i, ActiveCell.Column).ClearContents Next i Application.ScreenUpdating = True

Beliebteste Forumthreads (12 Monate)

Vergleich-Funktion über externe Arbeitsmappen

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Vergleich-Funktion über externe Arbeitsmappen

18 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

18
Beiträge zum Forumthread

Beiträge zu diesem Forumthread