Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1620to1624
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1620to1624
1620to1624
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sverweis mit variablem Dateiname

Sverweis mit variablem Dateiname
09.05.2018 13:46:08
Ben
Hallo zusammen,
ich hoffe ihr könnt mir hier etwas helfen.
Per Inputbox wird vom User ein Dateiname eingegeben (wahrscheinlich nur Zahlen z.B. ein Datum 20180509). Das krig ich hin.
In der Zelle AE2 befindet sich ein SVERWEIS inkl. Pfad zu einem anderen Excel.
Nun will ich, dass per Makro die Eingabe der Inputbox im Sverweis landet, damit dieser weiss auf welche Datei er in diesem Ordner zugreifen soll. 
=WENNFEHLER(SVERWEIS(B2; 'G:\u\v\w\x\y\z\[hier sollte der Dateiname eingefügt werden.xlsm]Tabelle1'!$A:$AI;35;0);"")
Krig ich irgendwie nicht hin. Habt ihr eine Lösung?
Danke euch!
Gruss Ben

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sverweis mit variablem Dateiname
09.05.2018 14:22:36
Daniel
Hi
prinzipell erzeugt man Variable Zellbezüge mit INDIREKT in der Funktion selbst.
(Indirekt macht aus einem "berechnenbaren" Text einen Zellbezug).
Allerdings funktioniert Indirekt nur mit Bezügen auf geöffnete Dateien.
dh. für dein Vorhaben musst du die Formel per Makro vollständig erstellen und in die Zelle schreiben.
Da du für die Inputbox sowieso schon ein Makro hast, ist das kein Problem:
dim Datei as string
dim Pfad as string
dim FO as string
Pfad = "G:\u\v\w\x\y\z\"
Datei = Inputbox("Dateiname")
if dir(Pfad & Datei & ".xlsm") = "" then
Msgbox "falscher Dateiname"
else
FO = "=IfError(VLookUp(B2,'xxx[yyy.xlsm]!Tabelle1!$A$:$AI,35,0),"""")"
FO = Replace(FO, "xxx", Pfad)
FO = Replace(FO, "yyy", Datei)
Range("AE2").Formula = FO
end if
ich habe hier die Generierung der Formel etwas aufwendiger dargestellt, aber diese Vorgehensweise ist beim erstellen von längeren Formeln deutlich übersichtlicher, vorallem wenn der selbe Variablenwert mehrfach in der Formel benötigt wird.
Achte darauf, dass du Dummy-Texte verwendest, die ansonsten im Code nicht vorkommen.
Gruß Daniel
Anzeige
AW: Sverweis mit variablem Dateiname
09.05.2018 16:25:30
Ben
Hallo Daniel,
danke schonmal,...habe leider eine Fehlermeldung bei...
Range("AE2").Formula = FO
Welche Möglichen Ursachen gibt es?
Danke dir!
Gruss Ben
AW: Sverweis mit variablem Dateiname
09.05.2018 16:34:31
Daniel
HI
die Variable FO muss eine korrekte Formel in der A1-Schreibweise haben, dh
- englische Funktionsnamen
- Zellbezüge mit A1-Addressierungsart
- Komma als Parametertrennzeichn.
wenn das makro stoppt wird dir der Inhalt der Variable in der Bubblehelp angezeigt, wenn du mit der Maus drüberfährst.
oder du lässt dir den Text im Direktfenster mit ?Fo anzeigen
bitte schau dir den String genau an, ob er einer regulären Formel entspricht.
Gruß Daniel
kleiner Tipp: ich hab im Code ein Hochkomma vergessen, das müsstest du im FO = "=IFError(...)" an passender Stelle ergänzen (bei Excel gut solltest du die Stelle eigentlich finden.
Anzeige
AW: Sverweis mit variablem Dateinamen
09.05.2018 14:26:18
Rudi
Hallo, 
Sub aaa()
Dim DateiName
DateiName = InputBox("Dateiname?")
Range("AE2").FormulaLocal = "=WENNFEHLER(SVERWEIS(B2; 'G:\u\v\w\x\y\z\[" & DateiName & "] _
Tabelle1'!$A:$AI;35;0);"""")"
End Sub
Gruß
Rudi
Funktioniert! Danke euch beiden. owT
14.05.2018 17:11:11
Ben
Funktioniert! Danke euch beiden.

303 Forumthreads zu ähnlichen Themen

Schleife nächste Zelle +1
Michael

Hallo!
Wie schaff ich es in die letzte zelle zu gehen und den wert + 1 in die nächste zelle zu schreiben,
Muss ich dann mit offset arbeiten?
Mein Code!
Gruß Michael
Sub zeileLetztePlusEins() Dim zeile As Integer Dim zeileMax As Integer Dim WertZeile As Long With Sheets("...
02.02.2009 09:39:26
Thread-ID: 1046079
7 Beiträge
Anzeige
Verweis auf andere Tabelle mit Variable
Ralf

Hallo zusammen,
ich benötige Hilfe.
Ich habe eine Übersichtsdatei in der
='G:\Werkstatt\Kunde Ordner\[Kalkulation 11.xls]Deckblatt'!$AA$53
immer wieder in ähnlicherweise vorkommt.
Ich möchte es mir vereinfachen und z.B. in Zelle A3 "Kalkulation 11" schreiben.
Und dann f...
25.03.2009 14:48:52
Thread-ID: 1063809
4 Beiträge
sverweis mit variable auf externe datei
Joni

Hi,
ich suche eine Lösung um mittels sverweis aus anderen Dateien/Tabellen Werte auszulösen. Die Schwierigkeit liegt darin, dass der Dateiname aus einer Zelle ausgelesen werden soll (der Pfad ist immer der gleiche). Die andere Datei ist nicht geöffnet und sollte dies wenn möglich auch nicht...
09.06.2009 23:34:03
Thread-ID: 1080301
4 Beiträge
Anzeige
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
Tabellenblätter um 1 erhöhen bzw. hochzählen
Mike

Hallo zusammen.
Ich hatte vor länger Zeit schon einmal angefragt...
www.herber.de/forum/archiv/1076to1080/t1076338.htm
...jedoch bis heute leider keinerlei Hilfe erhalten.
Bitte, kann mir keiner helfen? Ich bräuchte dringend Hilfe!
Vielen Dank im Voraus.
Gruß Mike
21.10.2009 23:47:21
Thread-ID: 1111214
3 Beiträge
Autofilter: 1 Kriterium für 2 Spalten
Stefan

Guten Morgen,
kann mir jemand bei folgender Frage helfen ?
Ich habe 2 Spalten, die mit Werten gefüllt sind. Nun habe ich mit dem Textfeld aus der Steuerelemente-Toolbox ein Suchfeld erschaffen. Sobald hier ein Suchbegriff eingegeben wird, sollen die beiden Spalten durchsucht und die Erg...
22.10.2009 10:51:27
Thread-ID: 1111254
5 Beiträge
Wert in Zelle um 1 erhöhen
Daniel

Hallo,
kann mir jemand sagen wie der VBA Code aussehen muss für folgendes Problem?!
Also ich habe in Zelle sagen wir B200 einen Wert von 100. Nun möchte ich das per Makro bei Zelle B201 mit dem Wert 1 angefangen wird und in den darunterliegenden Zellen jeweils um 1 erhöht wird, also 1,2...
26.10.2009 12:35:35
Thread-ID: 1112187
12 Beiträge
Letzte belegte Zelle + 1
Walter

Hallo zusammen,
habe mal diese Makrozeilen erhalten.
Dim rngFind As Range
Set rngFind = Sheets("Haus").Columns(4).Find(What:="Whg1")
ActiveSheet.Cells(rngFind.Row, 1).Select
Ich möchte das jetzt ändern, komm leider nicht drauf auf such die letzte belegte Zelle
+ 1 d...
03.03.2010 15:26:55
Thread-ID: 1143032
3 Beiträge
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
6
3
3
3
4
4
2
4
11
2
6
7
5
2
6
2
5
5
1
3
6
15
2
16
1