Gruppe
Funktion
Problem
Wie kann ich über ein VBA-Makro in eine Zelle einen SVERWEIS() auf eine geschlossene Arbeitsmappe eintragen, wenn sich das Suchkriterium, der Dateiname, der Blattname und die Matrix-Adresse im aktiven Blatt befinden?
StandardModule: basMain
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 & sFile) = "" Then
Beep
MsgBox "Quelldatei " & sPath & sFile & _
" wurde nicht gefunden!"
Exit Sub
End If
Range("D1").Formula = _
"=VLOOKUP(B4,'" & sPath & _
"[" & sFile & "]" & sWks & "'!" & _
sRng & ",2,0)"
End Sub