Vlookup in andere Datei, ohne diese zu öffnen?

[cysu11]

Schönen guten Abend zusammen!

Wie muss ich diesen Code ändern, damit rngB aus eine andere Datei gelesen wird, evtl. ohne diese zu öffnen?

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim rngA As Range
    Dim rngB As Range
    If Target.Column = 1 Then
Application.EnableEvents = False
    Set rngA = Cells(Target.Row, 1)
    Set rngB = Sheets("Kartabmess").Range("A1:E30")
        If IsError(Application.VLookup(rngA, rngB, 2, False)) Then
            MsgBox "Kein Eintrag vorhanden"
        Else
            Cells(Target.Row, 4).Value = Application.VLookup(rngA, rngB, 2, False)
            Cells(Target.Row, 5).Value = Application.VLookup(rngA, rngB, 3, False)
            Cells(Target.Row, 6).Value = Application.VLookup(rngA, rngB, 4, False)
            Cells(Target.Row, 3).Value = Application.VLookup(rngA, rngB, 5, False)
        End If
Application.EnableEvents = True
    End If
End Sub

Vielen Dank im Voraus
LG
Alexandra

[cysu11]

Hallo zusammen,

hat niemand eine Idee? Gerne auch andere Vorschläge!? :)

Vielen Dank
LG
Alexandra

[Steffl]

Hallo Alexandra,

vielleicht mit einer Funktion von Thomas Ramel http://www.office-loesung.de/ftopic166648_0_0_asc.php

(den Bereich in eine neue Tabelle kopieren und deinen Sverweis darauf ansetzen.)

[UweD]

Hallo


Wenn die andere Mappe geöffnet ist, dann so

Code:

Set rngB = Workbooks("Mappe2.xlsx").Sheets("Kartabmess").Range("A1:E30")
   

LG UweD

[cysu11]

Hallo Stefan, Hallo Uwe,

vielen Dank für Eure Vorschläge, ich habe mich inzwischen für eine ganz andere Variante entschieden, ich schreibe per VBA die Sverweis-Formeln in den Zellen und ersetze diese durch die Werte anschließend! :)

Ist zwar bissi langsam, wahrscheinlich aufgrund der großen Datei die durchsucht wird mit über 36000 Einträgen, aber es funktioniert perfekt!

Vielen lieben Dank Euch nochmals
LG & ein schönen WE noch
Alexandra