Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Vlookup in andere Datei, ohne diese zu öffnen?
#1
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
Antwortento top
#2
Hallo zusammen,

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

Vielen Dank
LG
Alexandra
Antwortento top
#3
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.)
Gruß Stefan
Win 10 / Office 2007
[-] Folgende(r) 1 Benutzer sagt Danke an Steffl für diesen Beitrag:
  • cysu11
Antwortento top
#4
Hallo


Wenn die andere Mappe geöffnet ist, dann so


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

LG UweD
[-] Folgende(r) 1 Benutzer sagt Danke an UweD für diesen Beitrag:
  • cysu11
Antwortento top
#5
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!Smile

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
Antwortento top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste