HERBERS Excel-Forum - die Beispiele

Thema: SVERWEIS auf geschlossene Arbeitsmappe aus Makro aufrufen

Home

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?

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

Beiträge aus dem Excel-Forum zu den Themen Funktion und SVERWEIS

Copy funktioniert nur einmal Schreibschutz prüfen funktioniert nicht
Split-Funktion beim Einlesen TXT-Datei Match Funktion spinnt (?)
SVerweis funktioniert nicht PasteSpecial funktioniert nicht.
SVERWEIS Formel Ergänzen sverweis mit mehreren Lösungen
SVERWEIS mit wahr via Zeit hh:mm bzw. hh:mm:ss VBA-Code funktioniert nicht mit anderem Office
Hilfe bei der INDEX Funktion SVERWEIS aber wie?
sverweis klappt nicht ( bei runter kopieren) kann das mit SVerweis gelöst werden ?
SVERWEIS mit Zählenwenn Zelladressen von FunktionsParametern ermitteln
Sverweis gibt falschen Wert wieder Matrixformel mit Summenfunktion
Formel funktioniert nicht, SVerweis doppelten sverweis nach #nv
Makro funktioniert nach Beenden von Excel nicht VLOOKUP auf Links funktioniert offline
Formatgleichheit von Zeichenfolgen für SVERWEIS @DAVID Zwei SUMMEWENN funktionen verknüpfen
Zwei SUMMEWENN funktionen verknüpfen Polynomfunktion
Mit vba Funktionen in Excel Zellen sverweis oder doch andere lösung
sverweis nach links möglich? Rang-Funktion für Strings?
Skript funktioniert nur auf einer seite?!?! Hyperlink auf Excel-Datei funktioniert nicht
sverweis auf combobox indirekt(verketten.. + sverweis oder alternative
Public Funktion / Variabel VBA - Suchfunktion - Fehlermeldung
Benutzerdefinierte Funktion Userform mit Löschfunktion
Frage zu Wenn Dann Funktion Wenn-Funktion
SVERWEIS per VBA? Frage zur Funktion DISAGIO
SVERWEIS ? Funktion um Chart zu kreieren
Zell-Name in Sverweis möglich? SVerweis Ergebnis #NV
Wenn-Funktion verschachtelt VBA Suchfunktion erweitern
Code für Sverweis Makro funktioniert nicht richtig