nach längerer erfolgloser Suche schreibe ich jetzt doch hier.
Ich möchte ein Function die mir einen Dateinamen zurückgibt. Dabei sollen in einem vorgegebener Ordner die Dateien nach einem String durchsucht werden.
Der Ordner enthält Datein. Eine Datei ist immer so aufgebaut "Beispiel" & Datum & ".csv"
Eine andere "Datum" & "Beispiel1" & Datum-1" & ".xlsm"
Die würde jetzt gerne nach "Beispiel" und "Beispiel1" suchen und die jeweiligen Datein abspeichern
Irgendwie so
Sub Makro1
Dim Datei As String
Dim Datei1 As String
Datei = Dateiauslesen("Beispiel")
Datei1 = Dateiauslesen("Beispiel1")
End Sub
Function Dateiauslesen(Text As String)
Dim Ordner As String
Ordner = "C:\...
Text in einer Datei suchen den kompletten Dateinamen zurückgeben
Dateiauslesen = "Dateiname"
End Function
"Beispiel" ist nur in einer datei im Ordner enthalten kann also nicht zu problemen mit 2 Datein kommenViele Grüße
Hendrik