Dateiinhalt in Showfenster anzeigen

Sub Path_search()
    Dim strOrdner, strDatei, DateiName, Pfad As String
    
    strOrdner = "C:\"
    
    With Application.FileDialog(msoFileDialogFilePicker)
        .Filters.Clear
        .Filters.Add "", "*.docm", 1
        .Title = "Bitte suchen Sie nach der Datei..."
        .ButtonName = "Auswahl bestätigen"
        .InitialView = msoFileDialogViewList
        If .Show = -1 Then strDatei = .SelectedItems(1)
    End With
    
    If strDatei  "0" Then
        Exit Sub
    Else
        
        DateiName = Mid(strDatei, InStrRev(strDatei, "\") + 1)              'Gibt aus dem Pfad nur Dateiname & Dateityp raus
        Pfad = Left(strDatei, InStrRev(strDatei, "\") - 1)                  'Gibt den Pfad ohne am Schluss das Zeichen \ raus
        Worksheets(9).Range("D2") = Pfad & "\"
        Worksheets(9).Range("D3") = DateiName
    End If
End Sub