Ich möchte eine Funktion erstellen, die mir überprüft, wieviele Dateien, deren Dateinamen einen bestimmten String enthalten geöffnet sind. Wenn dies nur eine ist, möchte ich gerne den ganzen Dateinamen zurück erhalten.
Beispiel 1:
Gesuchter String: "Statstik"
Geöffnete Dateien:
- 2001StatistikA.xls
- StatistikB.xls
Rückgabe: 2
Beispiel 2:
Gesuchter String "Statistik"
Geöffnete Datei, die Kriterium erfüllt:
- StatistikA.xls
Rückgabe: "StatstikA.xls"
Wer kann mir helfen?
Vielen Dank und gruss, Peter
Function isWorkbookOpen(strBW As String) As String '"Statistik" wird mit strBW übergeben
On Error Resume Next
End Function