Sverweise in einer andere Datei...
11.08.2004 18:16:59
Peter
ich wuerde gerne Daten aus einer gedownloadeten Datei (xls) in meine eigene Arbeitsmappe per Sverweis uebernehmen. Ich habe mal bissel gestoebert und folgendes Modul gefunden. Ich denk, dass es genaud as macht was ich brauche nur leider blicke ich da nicht so ganz durch, sprich ich klriegs net zum laufen...
Code:
Sub Verweis()
Dim sPath As String, sFile As String
Dim sWKs As String, sRng As String
sPath = ThisWorkbook.Path & "\"
sFile = Range("B1").Value
swks = Range("B2").Value
sRng = Range("B3").VAlue
If Dir(sPath & File = "" Then
Beep
MsgBox "Quelldatei " & sPath & sFile & _
" wurde nicht gefunden!"
Exit Sub
End If
Range("D1").Formular = _
"=VLOOKUP(B4, '" & sPath & _
"[" & sFile & "]" & sWKs & "'!" & _
sRng & ",2,0)"
End Sub
Gruss Peter