Prüfen ob Buchstabe in Dateinamen vorkommt

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Prüfen ob Buchstabe in Dateinamen vorkommt
von: Dietmar
Geschrieben am: 04.05.2015 22:29:54

Hallo in die Abendrunde,
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

Bild

Betrifft: AW: Prüfen ob Buchstabe in Dateinamen vorkommt
von: Daniel
Geschrieben am: 04.05.2015 22:39:52
Hi
in der Instr-Funktion steht zuerst der lange Text und danach der kurze Text (ist genau andersrum wie in der Excelfunktion Finden/Suchen).
Instr(dat, "A")
Gruß Daniel

Bild

Betrifft: AW: Wie einfach, wenn ...
von: Dietmar
Geschrieben am: 04.05.2015 22:44:30
man's weiß :-)
Vielen Dank Daniel!
LG
Dietmar

Bild

Betrifft: AW: Wie einfach, wenn ...
von: Daniel
Geschrieben am: 04.05.2015 22:47:04
... man die Hilfe bedienen kann.
Cursor auf "Instr" setzen und F1 drücken, da werdest du geholfen.
Gruß Daniel

 Bild

Beiträge aus den Excel-Beispielen zum Thema "Prüfen ob Buchstabe in Dateinamen vorkommt"