da auch wir so langsam auf neuere Excelversionen umstellen, würde ich gerne das vorhandene Filesearch Makro gegen das von Nepumuk tauschen. Leider bekomm ich es alleine nicht hin. Bei dem alten Filesearch kann der Anwender über eine Inputbox die zu suchende Datei angeben und die Treffer werden per Listbox angezeigt. Jetzt kann der Anwender die gewünschte Datei auswählen.
Diese Funktionen hätte ich auch gerne bei dem Code von Nepumuk. Ich bekomm es leider nicht hin. Folgend der bisherige Code:
Private Sub CommandButton3_Click()
'erstellt unter Excel 2003
Dim Dateiname As Variant, objFS As FileSearch
Dim varAuswahl, strMsgTxt As String, intI As Integer
Const Pfad As String = "C:\Lokale Daten\Test"
Dateiname = Application.InputBox("Bitte die Anfragenummer eingeben!", "Anfragensuche")
If Dateiname = False Then Exit Sub
Set objFS = Application.FileSearch
With objFS
.NewSearch
.Filename = Dateiname & "*"
.FileType = msoFileTypeExcelWorkbooks
.LookIn = Pfad
.SearchSubFolders = True
If .Execute > 0 Then
strMsgTxt = "Es wurde(n) " & .FoundFiles.Count & " Datei(en) gefunden" & vbLf
For intI = 1 To .FoundFiles.Count
strMsgTxt = strMsgTxt & vbLf & intI & " " & Mid(.FoundFiles(intI), Len(Pfad) + 2)
Next
strMsgTxt = strMsgTxt & vbLf & vbLf & "Bitte Nummer der zu öffnenden Datei eingeben"
varAuswahl = InputBox(prompt:=strMsgTxt, Title:="Gefundenen Datei(en)", _
Default:=1) 'Testzeile
If varAuswahl "" And IsNumeric(varAuswahl) Then
If varAuswahl > 0 And varAuswahl
Danke für die Hilfe und Grüße
Markus