Ich steh einfach unfassbar auf dem Schlauch gerade ...
In mein aktives Workbook mit dem Sheet "Tabelle1" sollen Daten aus dem Worksbook "K:\EDV\Filstamm\new_all_fil.xlsx" per SVerweis importiert werden.
Der entsprechende SVerweis hierzu wäre =SVERWEIS(A15;[new_all_fil.xlsx]Sheet!$1:$1048576;2;FALSCH)
Übersetzt: =VLOOKUP(A15,'K:\EDV\Filstamm\[new_all_fil.xlsx]Sheet'!$1:$1048576,2,FALSE
Und das Ganze natürlich solange, bis in Spalte A in TAbelle1 keine Wert mehr zu finden ist.
Mein Versuchscode sieht bisher so aus:
Sub Beipackliste()
Dim i As Long
'Arbeitsmappen öffnen
Workbooks.Open Filename:="K:\EDV\Filstamm\new_all_fil.xlsx"
'Fil-Name, VC, Tour und Fahrer importieren
For i = 15 To 4000
.Cells(i,"B)=(Application.VLookup(i,'K:\EDV\Filstamm\[new_all_fil.xlsx]Sheet'!$1:$1048576,2,FALSE)
'Arbeitsmappe schließen
Workbooks("K:\EDV\Filstamm\new_all_fil.xlsx").Close savechanges:=False
End Sub
|