Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1884to1888
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
Inhaltsverzeichnis

filename mit Werten aus Zelle

filename mit Werten aus Zelle
20.05.2022 13:20:44
Alexander
Hallo Gleichgesinnte,
ich finde keine Lösung und möchte mal hier nachfragen..
Das öffnen der Datei mit den Werten aus den genannten Zellen
mit Indirekt kann das ja in der funktionsebene recht gut, aber wie mit VBA?
Workbooks.Open Filename:="C:\user\Ablage\ $A$1 & %A&2_Ausw.xlsm"
$A$1 ist das Jahr und $2 das Quartal
Vielen herzlichen Dank für die Hilfe im Voraus
Schöne Grüße Alex

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: filename mit Werten aus Zelle
20.05.2022 13:34:48
Pierre
Hallo Alex,
Workbooks.Open Filename:="C:\user\Ablage\" & ThisWorkbook.Sheets(1).Range("A1") & ThisWorkbook.Sheets(1).Range("A2") & "_Ausw.xlsm" sollte reichen...glaub ich.
Ist jetzt die ausführliche Schreibweise, evtl. reicht auch "ActiveSheet.Range("A1")" aus, musst du mal ausprobieren.
Gruß Pierre
AW: korrekte Stringverkettung
20.05.2022 19:02:16
Yal
Hallo Alexander,
mit Variablen:

Sub Datei_öffnen()
Dim strJahr As String
Dim strQuartal As String
strJahr = Worksheets("xyz").Range("A1").Text
strQuartal = Worksheets("xyz").Range("A2").Text
Workbooks.Open filename:="C:\user\Ablage\" & strJahr & strQuartal & "_Ausw.xlsm"
End Sub
Etwa kompakter (aber genau das gleich):

Sub Datei_öffnen()
With Worksheets("xyz")
Workbooks.Open filename:="C:\user\Ablage\" & .Range("A1").Text & .Range("A2").Text & "_Ausw.xlsm"
End With
End Sub
VG
Yal
Anzeige

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige