Wenn_Oder Abfrage in VBA

[Käpt'n Blaubär]

Hi,

... in diesen Verzeichnissen mehrere PDF Dateien habe und diese durch Doppelklick auf die Dateinamen (...) geöffnet werden sollen.

Das ist ja fein, daß Du uns nun diese Information auch noch gibst.

Das ist eine elementare Information, ohne die wir meiner Meinung nach noch Gott weiß wie lange im
Nebel umhergeirrt wären.

Unter diesen Umständen würde ich als VBA-Mensch das mit einem Userform als Auswahlmaske machen

[Kuwer]

Hallo,

dann nach André`s Vorschlag vielleicht einfach so?

    mycell = ActiveCell.Value

   ean = ".pdf"



   If Dir("C:\Test\" & mycell & ean) <> "" Then strDatei = "C:\Test\" & mycell & ean

   If Dir("C:\Temp\" & mycell & ean) <> "" Then strDatei = "C:\Temp\" & mycell & ean



   pdf = Shell("C:\Program Files (x86)\Adobe\Acrobat Reader DC\Reader\AcroRd32.exe " & strDatei & """", 3)

Gruß Uwe

[schauan]

Hallo Sunny,

genau so wie Uwe es beschrieben hat, musst Du es umsetzen. ich habe ja nicht umsonst ...meine.pdf dort stehen und nicht nur die Verzeichnisse.
Wenn Du den Dir-Befehl auf ein Verzeichnis absetzt, wird der Treffer in der Regel das letzte sein

[sunny01]

Hallo,

vielen Dank für Eure guten und hilfreichen Beiträge! Ich habe den Code jetzt angepasst und er funktioniert optimal.