Office: vlookup mit anderer Datei

paty · 8. August 2007

Hallo erstmals.
Ich hoffe es kann mir hier jemand bei meinem Problem weiterhelfen.

Also, ich habe folgendes Skript:

Code:

Sub MitVlookup()
Dim wksQuelle As Worksheet
Dim wksZiel As Worksheet
Dim rngQuelle As Range
Dim lngZeile As Long
Dim lngAbZeile As Long
Dim lngBisZeile As Long
Dim lngSpalteZielA As Long
lngSpalteZielA = 1 ' =A
lngAbZeile = 1

Set wksQuelle = Workbooks("Testfile1.xls").Worksheets("Tabelle1")
Set wksZiel = Workbooks("Testfile1.xls").Worksheets("Tabelle1")
lngBisZeile = wksZiel.Cells(Rows.Count, lngSpalteZielA).End(xlUp).Row

For lngZeile = lngAbZeile To lngBisZeile
If Application.WorksheetFunction.CountIf(wksQuelle.Range(wksQuelle.Columns(8), wksQuelle.Columns(9)), wksQuelle.Cells(lngZeile, lngSpalteZielA)) > 0 Then
wksZiel.Cells(lngZeile, lngSpalteZielA + 1).Value = _
Application.WorksheetFunction.VLookup(wksQuelle.Cells(lngZeile, lngSpalteZielA), wksQuelle.Range(wksQuelle.Columns(8), wksQuelle.Columns(10)), 2, False)
Else
wksZiel.Cells(lngZeile, lngSpalteZielA + 1).Value = "Hab da nix gefunden!"
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das Programmbeispiel in Excel siehe Anhang.

Nun möchte ich aber das die Matrix nach der Verglichen wird, nicht im selben Tabellenblatt liegt, sondern in einer anderen Exceldatei.
Das ändern der Variabeln wksQuelle und wksZiel sowie der Columns() brachte leider keinen Erfolg.

Kann mir jemand weiterhelfen?

Gruss
Paty

:)

paty · 10. August 2007

Bin nun nach langem Üben und Zwengen auf eine Lösung gekommen!

Danke trotzdem an die, die die Frage zumindest gelesen haben.

Gruss
paty

jinx · 10. August 2007

Moin, paty,

eine andere Exceldatei müsste qualifierziert (Pfad und Namen) oder nach Öffen über den Namen und per Dim wkb as Workbook und dann die Tabelle etc. angesprochen werden - teilst Du uns bitte mit, wie Du das Problem gelöst hast? Danke im Namen aller User... *wink.gif*

paty · 13. August 2007

Hallo,

Das skript sah dann schliesslich so aus:

Code:

Sub MitVlookup()
Dim wksQuelle As Worksheet
Dim wksQuelle2 As Worksheet
Dim wksZiel As Worksheet
Dim rngQuelle As Range
Dim lngZeile As Long
Dim lngAbZeile As Long
Dim lngBisZeile As Long
Dim lngSpalteZielA As Long
lngSpalteZielA = 1 ' =A
lngAbZeile = 1

Set wksQuelle = Workbooks("Testfile1.xls").Worksheets("Tabelle1")
Set wksQuelle2 = Workbooks("test.xls").Worksheets("Tabelle1")
Set wksZiel = Workbooks("Testfile1.xls").Worksheets("Tabelle1")
lngBisZeile = wksZiel.Cells(Rows.Count, lngSpalteZielA).End(xlUp).Row

For lngZeile = lngAbZeile To lngBisZeile
If Application.WorksheetFunction.CountIf(wksQuelle2.Range(wksQuelle2.Columns(1), wksQuelle2.Columns(2)), wksQuelle2.Cells(lngZeile, lngSpalteZielA)) > 0 Then
wksZiel.Cells(lngZeile, lngSpalteZielA + 1).Value = _
Application.WorksheetFunction.VLookup(wksQuelle.Cells(lngZeile, lngSpalteZielA), wksQuelle2.Range(wksQuelle2.Columns(1), wksQuelle2.Columns(2)), 2, False)
Else
wksZiel.Cells(lngZeile, lngSpalteZielA + 1).Value = "Hab da nix gefunden!"
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe noch das wksQuelle2 erstellt. Diesem habe ich dann das andere Excell file zugewiesen. In der if funktion musste ich dieses dann auch entsprechend anpassen.

Das problem so, ist dann einfach, dass das 2. Excel file auch geöffnet sein muss, damit es funktioniert. Wenn man es nun nicht manuell öffnen möchte, kann man dies mit "Workbooks.Open" und "ActiveWorkbook.Close" regeln.

Gruss
Paty

Office: vlookup mit anderer Datei

vlookup mit anderer Datei

vlookup mit anderer Datei

vlookup mit anderer Datei

vlookup mit anderer Datei - Similar Threads - vlookup Datei

VLOOKUP-Funktionalität in Power Pivot

vlookup macht probleme

Die VLookup-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden.

VLookup/Sverweis mit Variablen/Range

VBA: vlookup in einer Schleife funktioniert nicht

Problem bei Excel - VBA Makro SVERWEIS funktioniert nicht!

VBA VLookup in geschlossene Datei