ich könnte eure Hilfe bei folgendem Thema brauchen:
Ich habe einen Code, der mir in einem Ordner die Exceldatei sucht die zuletzt gespeichert wurde und diese in meine Exceldatei einliest.
Nun möchte ich zusätzlich den Anfangsnamen der Datei mit angeben.
Die Datei die gesucht werden soll beginnt nämlich immer mit "MIN-MAX"
Dies möchte um flexibel zu bleiben im Tabellenblatt "Setup" Range("C2") einlesen.
Wie müsste ich den Code ändern, dass er nur nach den Excelfiles sucht, die mit dem Namen beginnen, der in der Zelle steht?
Hier der Code, den ich aktuell verwende:
Sub DatenEinlesen()
'Datei mit der neuesten Speicherdatum suchen und einlesen
Dim Wb As Workbook: Set Wb = ThisWorkbook
Dim Ws As Worksheet: Set Ws = Wb.Worksheets(21) 'anpassen
Dim WbZ As Workbook
Dim FSO As Object, Verz, SubVerz, Datei, Stapel As Collection, Pfad$
Dim Datum As Date, Mappe As String
Application.ScreenUpdating = False
Pfad = Sheets("Setup").Range("B2").Text 'anpassen
If Right(Pfad, 1) "\" Then Pfad = Pfad & "\"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set Stapel = New Collection
Stapel.Add FSO.getfolder(Pfad)
Do While Stapel.Count > 0
Set Verz = Stapel(1)
Stapel.Remove 1
For Each SubVerz In Verz.SubFolders
Stapel.Add SubVerz
Next SubVerz
For Each Datei In Verz.Files
If Datei.datelastmodified > CDate(Datum) Then
Datum = Datei.datelastmodified: Mappe = Datei.Path
End If
Next Datei
Loop
Set WbZ = Workbooks.Open(Mappe)
WbZ.Worksheets(1).UsedRange.Copy Wb.Worksheets("RW-MinMax").Range("A1")
WbZ.Close False
Set Wb = Nothing: Set Ws = Nothing: Set FSO = Nothing
Set Stapel = Nothing
End Sub
Gruß
Stefan