ich möchte prüfen, ob im Dateinamen der zu öffnenden Datei an irgendeiner Stelle ein bestimmter Buchstabe vorkommt.
Dazu habe ich folgenden code gefunden:
Sub Dateiname_pruefen()
Dim dat As String, pruef As Byte
dat = ThisWorkbook.Name
pruef = InStr("A", dat)
If pruef = 0 Then
msgbox "Dateiname enthält kein A"
Else
msgbox "Ja, A enthalten"
End If
End Sub
Es funktioniert aber nicht.Ich habe mal die Beispieldatei hochgeladen.
https://www.herber.de/bbs/user/97461.xls
Jemand eine Idee?
Vielen Dank!
Dietmar