Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 21:57:06
Diagrammpunkte in unterschiedlichen Farben je nach Wert
19.10.2025 18:21:56
Prüfen, ob Bild geladen wurde
19.10.2025 15:24:14
VBA -Drucken nur, wenn ich mit bestimmtem WLAN verbunden bin
19.10.2025 10:48:58
Zufällige Uhrzeit
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1548to1552
1548to1552
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

VBA Sverweis mit variablem Dateinamen

Forumthread: VBA Sverweis mit variablem Dateinamen

VBA Sverweis mit variablem Dateinamen
23.03.2017 08:42:42
steffen32
Guten Morgen,
ich habe ein Problem mit einer Formel und komme hier nicht mehr weiter.
Wäre für Hinweise sehr dankbar.
Folgende Ausgangslage:
Es gibt verschiedene Dateien mit dem immer gleichen Aufbau. In diesen werden Einträge zu Kundennummern erfasst.
Aufbau der Eingabedatei:
Spalte A: Kundennummer (kommt nur einmal vor) / Spalte BF soll ausgelesen werden
In einer zentralen Datei sollen bestimmte Einträge aus den Eingabedateien ausgelesen werden.
Aufbau der Datei:
In Spalte A steht auch hier die Kundennummer (kommt nur einmal vor)
In Spalte I ist der Pfad zur jeweiligen Datei hinterlegt. In Spalte J der Dateiname.
In Spalte L soll jetzt der Wert aus der Zieldatei eingetragen werden.
Mit folgender Formel funktioniert dies für die Zelle L2:
Pfad = Cells(2, 9)
Dateiname = Cells(2, 10)
Blatt = "KndNr"
Range("L2:L700").FormulaR1C1 = _
"=VLOOKUP(RC[-11],'" & Pfad & "\[" & Dateiname & "]" _
& Blatt & "'!RC1:RC58,58,FALSE)"
Aber eben nur für die Zelle L2.
Wie kann die Formel so gestaltet werden, dass je vorhandenem Eintrag in Spalte A das oben beschriebene Schema für die Formelbildung durchlaufen wird?
Schon mal vielen Dank für Eure Ideen.
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA Sverweis mit variablem Dateinamen
23.03.2017 08:48:59
Daniel
Hi
in diesem Fall musst du mit einer Schleife über alle Zelle arbeiten müssen und jede Formel einzeln mit dem zeilenspezifischen Pfad und Dateinamen erstellen.
Gruß Daniel
AW: VBA Sverweis mit variablem Dateinamen
23.03.2017 09:05:04
steffen32
Hallo Daniel,
vielen Dank für die schnelle Antwort.
Genau daran scheitere ich aktuell.
Hast du eine Idee, wie sich das in o.g. Formel darstellen lässt?
Gruß
Anzeige
AW: VBA Sverweis mit variablem Dateinamen
23.03.2017 09:16:52
steffen32
AW: VBA Sverweis mit variablem Dateinamen
23.03.2017 09:21:46
Daniel
Hi
im Prinzip so: 

Blatt = "KndNr"
for Z = 2 to 700
Pfad = Cells(Z, 9)
Dateiname = Cells(Z, 10)
Cells(Z, 12).FormulaR1C1 = _
"=VLOOKUP(RC[-11],'" & Pfad & "\[" & Dateiname & "]" _
& Blatt & "'!RC1:RC58,58,FALSE)"
Next
Gruß Daniel
Anzeige
AW: VBA Sverweis mit variablem Dateinamen
23.03.2017 09:40:22
steffen32
Hallo Daniel,
das scheint zu funktionieren.
Vielen Dank für deine schnelle Hilfe. Ich bin einfach nicht auf die Idee gekommen z zu nutzen und war schon kurz davor einfach alles manuell zu kopieren.
Du hast mir sehr weitergeholfen.
Gruß
AW: VBA Sverweis mit variablem Dateinamen
23.03.2017 10:11:13
Daniel
naja, manuell gäbe es auch einen Weg, dieses Problem mit wenig aufwand zu lösen:
1. man muss in die Zellen L2:L700 eine Formel schreiben, welches die gewünschte Zielformel als Text erstellt:
="=SVerweis(A"&Zeile()&";'"&I2&"\["&J2&"]KndNr'!$A:$BD;58;falsch)"
2. man kopiert diese Formel und fügt sie an gleicher Stelle als Text ein
3. man ersetzt mit der Menüfunktion ERSETZEN das "=" durch "=".
Bei diesem Ersetzen wandelt Excel dann den Text in eine Formel um.
Gruß Daniel
Anzeige
;

Forumthreads zu verwandten Themen

VBA - if anweisung mit variable
Thomas

Hallo,
ich habe ein blöds Problem und zwar habe ich folgendes If Abfrage in einer Forschleife in Pseudo:
Wenn A1 kleiner als A2 tu dies sonst tu das
VBA:
For i = 2 To 5 If "A" & i
Irgendwie trifft dort immer nur Else ein, ich glaube es liegt an der Bedingungsformulier...
16.10.2008 10:10:50
Thread-ID: 1016763
4 Beiträge
VBA-Sverweis mit UserName
Alex

Hi,
mit diesem Code-Teil wird der User, welcher in meiner Datei etwas verändert verewigt. :-)
Select Case Target.Column
Case 14, 17, 20, 22, 24, 25, 29, 31, 34, 38, 40, 47, 49, 51, 53, 55, 56
Sheets("Bearbeiternachweis").Range(Target.Address).Value = Application.UserName & "...
05.02.2009 12:47:52
Thread-ID: 1047363
8 Beiträge
variabler SVerweis mit VBA
Jonathan

Hallo zusammen,
in einer Tabelle sind verschiedene Zeilen mit einem "x" in Spalte C markiert. Die Anzahl der "x" variert.
Nun versuche ich ein Makro zu erstellen, welches mir, wenn eine Zeile mit einem "x" markiert ist in
Spalte B einen SVerweis (Suchwert steht in Spalte A) einträg...
17.06.2009 14:28:57
Thread-ID: 1082250
3 Beiträge
SVerweis mit variablem Spaltenindexergebnis
Dirk

Hallo zusammen,
ich habe folgendes Problem:
Ich habe zwei Tabellen; in der einen stehen Namen und ein Suchkriterium und in der anderen sollen die Namen, die neben dem Suchkriterium aufgelistet sind übertragen werden.
Beispiel:
Spalte A_______Spalte B
__P1__________Müller
...
25.08.2009 10:38:59
Thread-ID: 1098346
5 Beiträge
Variablen Druckbereich mittels VBA einrichten (2) | Herbers Excel-Forum
Space
Hallo Rudi, Hallo Forums-Mitglieder,
zunächst vielen Dank an dich Rudi für die schnelle Rückmeldung! Leider konnte ich auf deinen Beitrag nicht direkt antworten, deshalb muss ich einen neuen Beitrag aufmachen.
Kurz zum Thema: Ich suche eine Lösung für einen variablen Druckbereich mittels VB...
13.01.2010 08:46:23
Thread-ID: 1129313
5 Beiträge
VBA Reihen Löschen mit Variable
chrissey

Hallo Leut,
hab folgende Zeile und möchte diese durch eine Variable ersetzen ( Variablen Name = ErsteZeile )
Worksheets("A").Rows("2:2").Delete Shift:=xlUp
Das ("2:2") möchte ich durch die oben genannte Variable ersetzen.
Kriegs aber irgendwie nicht hin.
Grüße Euch ganz lieb...
15.02.2010 15:56:05
Thread-ID: 1138678
3 Beiträge
Anzeige
Teilergebnis per VBA mit variablen Spalten
grexx123

Hallo,
ich habe schon einmal in dieses Forum geschrieben und kann leider keine weiteren Beiträge mehr schreiben - meine Frage ist aber leider immer noch offen....
https://www.herber.de/forum/archiv/1156to1160/t1156986.htm
Ich möchte gerne eine Tabelle automatisch mit Teilergebnissen...
20.05.2010 16:15:43
Thread-ID: 1158102
3 Beiträge
VBA: Problem mit Variable in Formel einfügen
Harald

Hallo,
diese VBA Zeile
Selection.FormulaArray = "=LARGE(IF(SUBTOTAL(2,INDIRECT(""Tabelle1!G""&ROW(R1:R9))),Tabelle1!R1C[5]:R9C[5]),ROW(R[-4]C[-1]))"
fügt diese Formel in Tabelle1 ein
=KGRÖSSTE(WENN(TEILERGEBNIS(2;INDIREKT("Tabelle1!G"&ZEILE($1:$9)));Tabelle1!G$1:G$9);ZEI...
29.07.2010 19:03:24
Thread-ID: 1169548
5 Beiträge
Anzeige
SUMPRODUCT in VBA - Wert mit Variable übergeben
Peter

Guten Tag
Ich habe nochmals eine Frage zu SUMPRODUCT in der VBA-Umgebung.
Nachstehender Code liefert mir das korrekte Ergebnis.
lngValue = [SUMPRODUCT((spxSum < 500000)*(spxAktiv="JA")*(spxFehler2<>"rot")*(len(spxText)<10))]
Nun möchte ich in der Formel nicht mehr ei...
18.10.2012 11:29:03
Thread-ID: 1282584
5 Beiträge
in vba excelmappe mit variablem datum öffnen
meixner

Hallo zusammen,
unteres Makro funktioniert nicht und ich kann es mir nicht erklären.
Sub Morgenroutine_oeffnen() Dim wb As Workbook Workbooks.Open Filename:=("I:\CM_88\8801\Fondsmanagement\Archiv Morgenroutine\Morgenroutine" & _ Format(Date, " YYYYMMDD")) End Sub Hat jmd. einen Ti...
19.10.2012 13:40:09
Thread-ID: 1282818
2 Beiträge
Sverweis mit variablen Bereichsmatrix
Falk

Hallo alle zusammen,folgendes Problem mit einer Sverweis Funktion:=SVERWEIS(D1;"MATRIX";3;FALSCH)nun soll der Bereich "MATRIX" einen Anfang haben, der in Zelle A1 steht und ein Ende der in Zelle A2 steht.
In A1 würde jetzt stehen: 'Namens Parameter'!$B$3
In A2 würde dann stehen: 'Namens P...
02.07.2002 14:25:26
Thread-ID: 133081
2 Beiträge
sverweis mit mehreren variablen?
Addi

Hallo Zusammen,
ich suche eine Formel (sverweis?) die aufgrund von 3 Kriterien aus einem Worksheet genau einen Datensatz aus einem 2ten Worksheet wiedergibt. In diesem 2ten Worksheet sind die selben Kriterien ebenfalls hinterlegt.
Im anhängenden Beispiel möchte ich z.B. den Wert in der...
26.09.2013 11:37:29
Thread-ID: 1332290
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

VBA Sverweis mit variablem Dateinamen

Schritt-für-Schritt-Anleitung

Um einen VBA Sverweis mit variablem Dateinamen zu erstellen, folge diesen Schritten:

  1. Öffne den VBA-Editor: Drücke ALT + F11, um den Editor zu öffnen.
  2. Füge ein neues Modul hinzu: Klicke mit der rechten Maustaste auf "VBAProject (DeineDateiName)" > Einfügen > Modul.
  3. Kopiere den folgenden Code in das Modul:
Sub VLookupWithVariableFilename()
    Dim Blatt As String
    Dim Pfad As String
    Dim Dateiname As String
    Dim Z As Integer

    Blatt = "KndNr"
    For Z = 2 To 700
        Pfad = Cells(Z, 9)
        Dateiname = Cells(Z, 10)
        Cells(Z, 12).FormulaR1C1 = _
        "=VLOOKUP(RC[-11],'" & Pfad & "\[" & Dateiname & "]" & Blatt & "'!RC1:RC58,58,FALSE)"
    Next Z
End Sub
  1. Schließe den VBA-Editor und kehre zu Excel zurück.
  2. Führe das Makro aus: Drücke ALT + F8, wähle VLookupWithVariableFilename und klicke auf "Ausführen".

Häufige Fehler und Lösungen

  • Fehler: "Referenz kann nicht gefunden werden"
    Lösung: Überprüfe, ob der angegebene Pfad und Dateiname korrekt sind. Achte darauf, dass die Dateien existieren.

  • Fehler: "Zelle enthält eine Formel, die nicht ausgewertet werden kann"
    Lösung: Stelle sicher, dass die Zellen in Spalte A die richtigen Werte enthalten und die Eingabedateien den erwarteten Aufbau haben.

Alternative Methoden

Wenn Du keinen VBA-Code verwenden möchtest, kannst Du folgende alternative Methode nutzen:

  1. Schreibe in Zelle L2 folgende Formel: 
    ="=SVERWEIS(A2;'"&I2&"\["&J2&"]KndNr'!$A:$BD;58;FALSCH)"
  2. Kopiere die Formel von L2 nach unten bis L700.
  3. Wähle die Zellen L2:L700 aus und drücke F2, gefolgt von STRG + ENTER, um die Formeln zu aktivieren.

Praktische Beispiele

Angenommen, Du hast folgende Daten in Deiner Excel-Datei:

  • Spalte A: Kundennummer
  • Spalte I: C:\Daten\Kunden
  • Spalte J: Kundenliste.xlsx

Wenn Du das oben genannte VBA-Skript ausführst, wird es automatisch die Werte aus der Datei "Kundenliste.xlsx" auslesen und in die Spalte L eintragen.

Tipps für Profis

  • Verwende Fehlerbehandlung: Füge in deinen VBA-Code eine Fehlerbehandlung hinzu, um unerwartete Probleme elegant zu lösen.
  • Dynamische Bereiche: Nutze dynamische Bereichsnamen, um sicherzustellen, dass das Skript auch mit unterschiedlichen Datenmengen funktioniert.
  • Makros speichern: Stelle sicher, dass Du die Datei als Makro-fähige Datei (z.B. .xlsm) speicherst.

FAQ: Häufige Fragen

1. Kann ich den VBA-Code anpassen, um mehr Spalten auszulesen?
Ja, Du kannst die Cells(Z, 12)-Zeile anpassen, um Werte in andere Spalten einzufügen.

2. Funktioniert dieser VBA Sverweis auch in Excel 365?
Ja, der Code sollte in Excel 365 sowie in früheren Versionen funktionieren, solange die grundlegenden VBA-Funktionen unterstützt werden.

3. Was mache ich, wenn die Dateinamen variieren?
Du kannst eine zusätzliche Spalte einfügen, um den Dateinamen dynamisch zu generieren, oder eine Liste der Dateinamen verwenden.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige