Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

SVERWEIS auf geschlossene Arbeitsmappe aus Makro aufrufen

Gruppe

SVERWEIS

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?

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

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