Sub Import_ordnerauswahl()
        Dim AppShell As Object
        Dim BrowseDir As Object
        Dim Pfad As String
        AppShell = CreateObject("Shell.Application")
        BrowseDir = AppShell.BrowseForFolder(0, "Ordnerauswahl", &H1000, 17)
        On Error Resume Next
        Pfad = BrowseDir.items().Item().Path
 
        If Pfad = "" Then Exit Sub
 
        '...
 
    End Sub