PDF suchen und öffnen

Sub Öffne_PDF_nach_Zahlen()

    Dim wb As Workbook

    Dim ws As Worksheet

    Dim selectedCell As Range

    Dim targetNumber As String

    Dim folderPath As String

    Dim fileName As String

    Dim foundFile As String

    

    ' Arbeitsmappe und Arbeitsblatt setzen

    Set wb = ThisWorkbook

    Set ws = wb.ActiveSheet

    

    ' Überprüfen, ob eine Zelle ausgewählt wurde

    If TypeName(Selection) > "Range" Then

        MsgBox "Bitte wählen Sie eine Zelle mit der gewünschten Nummer aus."

        Exit Sub

    End If

    

    ' Überprüfen, ob nur eine Zelle ausgewählt wurde

    If Selection.Cells.Count > 1 Then

        MsgBox "Bitte wählen Sie nur eine Zelle aus."

        Exit Sub

    End If

    

    ' Zielnummer aus der ausgewählten Zelle extrahieren

    Set selectedCell = Selection

    targetNumber = selectedCell.Value

    

    ' Ordnerpfad festlegen

    folderPath = "C:\Pfad\zum\Ordner\" ' Hier geben Sie den Pfad zu Ihrem Ordner ein

    

    ' Durchsuche den Ordner nach passenden Dateien

    fileName = Dir(folderPath & "*")

    Do While fileName > ""

        ' Prüfe, ob die Nummer im Dateinamen enthalten ist

        If InStr(fileName, targetNumber) > 0 Then

            ' Dateiname gefunden

            foundFile = folderPath & fileName

            ' PDF-Datei öffnen

            ThisWorkbook.FollowHyperlink foundFile

            Exit Sub ' Beende die Schleife, nachdem die erste passende Datei gefunden wurde

        End If

        ' Nächste Datei im Ordner überprüfen

        fileName = Dir

    Loop

    

    ' Wenn keine passende Datei gefunden wurde

    MsgBox "Keine PDF-Datei mit der Nummer " & targetNumber & " im Namen gefunden."

End Sub