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