Hallo ihr Lieben,
manchmal ist es gar nich so verkehr, wenn nicht gleich eine Antwort kommt. So habe ich nun etwas weiter gesuch und bin auch weiter gekommen - danke ;)
Das ist erstmal mein Code, soweit funtkioniert der auch:
Sub Sverweis()
Dim c As Long
Dim rngZiel As Range
Dim Dateiquelle As String
Dim Dateiziel As String
Dim sPfad As String
Dim ab As Long
Dim wksQuelle As Worksheet
Dim wksZiel As Worksheet
Dateiquelle = "Daten.xls"
Dateiziel = "Test Sverweis.xls"
sPfad = "C:\Users\Caro\Desktop"
ab = 2
lr = Cells(Rows.Count, "A").End(xlUp).Row
Set wksQuelle = Workbooks(Dateiquelle).Worksheets("Auswahl")
Set wksZiel = Workbooks(Dateiziel).Worksheets("Tabelle1")
Set rngZiel = Columns("L:L").Cells(ab)
For c = ab To lr
rngZiel.Cells(c).Value = Application.WorksheetFunction.VLookup(wksZiel.Cells(c, "A"), wksQuelle.Range("A1:J556"), 10, False)
Next
End Sub
Könnt ihr mir helfen, wie ich den sPfad einpflege, damit ich Quell-Datei nicht geöffnet haben muss?
Und komischerweise beginnt bei mir der SVerweis immer erst ab Zeile 3, dabei habe ich doch ab = 2 angegeben?
Wäre klasse, wenn ihr mir dabei noch helfen könnt!
Caro
|