VBA -Code anpassen VLOOKUP
06.06.2005 12:02:13
Basti
von Herberts schöner CD (kann ich übrigens empfehlen) habe ich folgenden Code:
StandardModule: basMain
Sub Verweis()
Dim sPath As String, sFile As String
Dim sWks As String, sRng As String
sPath = ThisWorkbook.Path & "\"
sFile = Range("J8").Value 'Pfad
sWks = Range("K8").Value 'Blattname
sRng = Range("I13").Value 'Suchbereich von SVerweis
If Dir(sPath & sFile) = "" Then
Beep
MsgBox "Quelldatei " & sPath & sFile & _
" wurde nicht gefunden!"
Exit Sub
End If
Range("B7").Formula = _
"=VLOOKUP(B6,'" & sPath & _
"[" & sFile & "]" & sWks & "'!" & _
sRng & ",2,0)"
End Sub
Im unteren Bereich, wo es dann mit VLOOKUP losgeht ist eine bestimmte Schreibweise für die Pfadeingabe notwendig. Nämlich mit eckiger Klammer und so.
In meiner Zelle J8 (sFile) steht bei mir aber der Pfad und Dateiname nach dem Muster:
G:\DAT\User\SK\Datei1.xls
Nun passt der Ausdruck unten im Code ab VLOOKUP nicht mehr da ja Pfad und Dateiname mit getrennten Variablen beschrieben werden. Die eckige Klammer bekomme ich so gar nicht rein und die Variable Spath soll ja auch nicht der aktuelle Pfad sein, sondern der vorgegebene. Den Ausdruck in J8 möchte ich nicht ändern, da er so mit einem Code ausgegeben wurde. Puh, kann mir einer helfen beim anpassen der Formel.
Wäre riesig nett ......
Gruß von Basti