Ich kann mir über eine MsgBox die vorhandenen Datei anzeigen lassen,
was geht, "die XXXXXXX stehen für Kontonr. setzte ich wieder ein."
aber ich möchte gerne das die gefundene Datei sofort geöffnet wird.
Hier mein Ansatz dazu.
Private Sub CommandButton2_Click()
Dim Dateiname, Pfad, teil
Pfad = "F:\"
teil = "2014"
Dateiname = Dir(Pfad & "umsaetze-XXXXXXX-" & 2014 & "-?-?-?-?-?.xls")
' Pfad = Application.GetOpenFilename
Do While Dateiname ""
MsgBox Pfad & Dateiname
Dateiname = Dir()
Loop
End Sub
Ich danke im Voraus der HilfeMfg.
dieter