Pfadnamen übergeben

Question

Hallo Gemeinde,
ich benötige Eure Hilfe.
In der aktiven Datei Blatt 2 Zelle A1steht immer der Pfad der
hier "F:\test\" heist, dieser soll nun immer automatisch übernommen werden. Ich bring es nicht hin.
Sub DateienLesen()
Scup = Application.ScreenUpdating
Ebes = Application.EnableEvents
Cclt = Application.Calculation
Call EventsOff
Dim DateiName As String
DateiName = Dir("F:\test\" & "*.xls")
Do While DateiName <> ""
If ThisWorkbook.Name <> DateiName Then
Workbooks.Open Filename:="F:\test\" & DateiName
Workbooks(DateiName).Worksheets(1).Copy Before:=Workbooks(ThisWorkbook.Name).Worksheets(1)
ActiveSheet.Name = Mid(DateiName, 1, 28)
Workbooks(DateiName).Close
End If
DateiName = Dir
Loop
Call EventsOn
End Sub
Danke für Eure Mühe.

PS. Ich glaube der Ablauf stammt ehemals von nighty

Answer 1

Hallo,

ich vermute Du meinst die Zeile
DateiName = Dir("F:\test\" & "*.xls")

DateiName = Dir(Range("A1") & "*.xls")

Gruß Hajo

Answer 2

hallo Hajo,
es geht nicht, der Dateiname wird nicht übergeben
in der Zeile "Workbooks.Open Filename:="F:\test\" & DateiName"
kommt das Gleiche dann nochmals vor.

Answer 3

Hallo Hajo,
ich wieder. Die Funktion Range("A1") nimmt den richtigen Wert an
aber er wird nicht an DateiName übergeben.