Office: VBA VLookup in geschlossene Datei

Hallo

Ich brauche Hilfe mit dem SVerweis in VBA.

Ich habe ein VBA-Skript, welches einen SVerweis in eine andere Datei ausführen soll. Die betreffende Zeile lautet:

Der Code soll überprüfen, ob der Text strAntenna in der Datei "Antennen.xlsx" bei der Nummer strTram steht. Die Variablen strTram und strAntenna wie auch die Zellen der Matrix sind alle als Text deklariert bzw. formatiert.

Den Dateipfad habe ich bereits überprüft, der stimmt.
Trotzdem erhalte ich immer den Laufzeitfehler '9': Index ausserhalb des gültigen Bereichs.
Ich habe jetzt bereits verschiedene Dinge versucht, aber jetzt weiss ich nicht mehr weiter...

mfG
Julian

 

Moinsens!

Es steht zwar wohl nicht explizit in der OH, aber das scheint nicht mit externen, geschlossenen Mappen zu funktionieren.

Code:

        v = Application.WorksheetFunction.VLookup( _
            Target.Value, _
            Workbooks([B][COLOR=#ff0000]p & f[/COLOR][/B]).Worksheets(s).Range(r), _
            2, _
            False)

Was geht: Mappe öffnen, vlookup ohne Mappen-, nur mit Blatt-Verweis durchführen, Mappe schließen.

Code:

        Workbooks.Open ([B][COLOR=#ff0000]p & f[/COLOR][/B])
        v = Application.WorksheetFunction.VLookup( _
            Target.Value, _
            Workbooks([B][COLOR=#ff0000]f[/COLOR][/B]).Worksheets(s).Range(r), _
            2, _
            False)
        Workbooks([B][COLOR=#ff0000]f[/COLOR][/B]).Close savechanges:=False

Gruß, Michael

 

Hallo Michael

Vielen Dank für die Antwort, ich habe das mal eingebaut. Die Mappe wird auch geöffnet, danach kommt jetzt aber ein Laufzeitfehler 1004: Die VLookup-Eigenschaft der Worksheet-Function kann nicht zugeordnet werden.
Zudem habe ich an verschiedenen Orten schon gelesen, dass ein SVerweis auch in eine geschlossene Datei möglich ist...

Grüsse
Julian

 

Moinsens!

Klingt für mich danach, als wenn noch einer der Parameter nicht stimmt.

Code:

Zudem habe ich an verschiedenen Orten schon gelesen, dass ein SVerweis auch in eine geschlossene Datei möglich ist...

Ja, geht auch. Sieh Dir nochmal mein Beispiel (Attachment letztes Posting) an: Dort ist Deine ursprüngliche Methode (auskommentiert) drin, danach die von mir geänderte mit dem open/close und als letztes zur Gegenprobe auch noch ein sVerweis. Der sVerweis geht immer, ob die Mappe geöffnet oder geschlossen ist. Das .vlookup scheint aber nur bei geöffneter Mappe zu gehen.

Gruß, Michael

 

Hallo Michael

Habe den Fehler gefunden; offenbar funktioniert VLookup mit Text nicht. Habe also die Zellen in Zahlen umformatiert, jetzt geht es (sogar wenn die Variablen als String deklariert sind).
Ich war bisher der Meinung, VLookup und SVERWEIS seien das selbe, aber offenbar ist dem nicht so...
Leider dauert die Ausführung des Skripts jetzt (mit Öffnen und Schliessen der andern Datei) fast doppelt so lange wie vorher.

Grüsse
Julian

 

Moinsens!

Du könntest versuchen, Target.Address statt Target.Value zu übergeben...

Code:

Leider dauert die Ausführung des Skripts jetzt (mit Öffnen und Schliessen der andern Datei) fast doppelt so lange wie vorher.

Das hatte ich befürchtet und deswegen auch noch die Methode mit dem Aufbau der sVerweis-Formel dazu gepackt. Das geht wahrscheinlich noch eine Ecke schneller. Und Du könntest nach dem Einsetzen der Formel mit

Code:

range("b2").value = range("b2").value

die Formel durch den festen Wert ersetzen.

Gruß, Michael