VBA UserForm soll Caption speichern

   Private Sub Datei_MIS_Click()

Dim fdMIS As Office.FileDialog

Dim strDateiMIS As String



Set fdMIS = Application.FileDialog(msoFileDialogFilePicker)



With fdMIS



    .Filters.Clear

    .Filters.Add "Excel-Dateien", "*.xlsx?", 1

    .Title = "Wähle eine Excel-Datei aus"

    .AllowMultiSelect = False



    .InitialFileName = Worksheets("Verknüpfungen").Range("B2").Text



        If .Show = True Then

        strDateiMIS = .SelectedItems(1)

        End If

        If strDateiMIS > "Falsch" Then

        Auswahl_MIS.Caption = strDateiMIS

        Else

        Auswahl_MIS.Caption = "keine Datei ausgewählt"

        End If

        

        End With

    

End Sub