PDF suchen und öffnen
phsch
Hallo zusammen
Ich möchte nach einer PDF Datei in einem Ordner und dessen Unterordner suchen, auf einem Arbeitsblatt habe ich in Spalte E diverse Zahlen z.b. 21-01769 die PDF Datei die ich nun suche, hat diese Zahlen irgendwo im Namen enthalten z.b. "TP 21-01769 blablabla Odhkjsd". Ich möchte nun in Spalte E eine dieser Zahlen auswählen und einen Button drücken und dann soll sich diese Datei die diese Zahlen im Namen hat öffnen, der Rest vom Namen kann irgendeine willkürliche kombination sein.
Ich verwende diesen Code dieser Funktioniert auch auf den im Pfad befindlichen Ordner aber nicht auf die Unterordner.
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
Ich hoffe es ist verständlich so.
Gruss