' Funktion zum Auswählen eines Ordners über ein Dialogfeld
Public Function GetFolder(strPath As String) As String
    Dim fldr As FileDialog
    Dim sItem As String

    ' Initialisierung des Ordnerauswahldialogs
    Set fldr = Application.FileDialog(msoFileDialogFolderPicker)

    With fldr
        .Title = "Select a Folder" ' Setzt den Titel des Dialogs
        .AllowMultiSelect = False  ' Erlaubt keine Mehrfachauswahl
        .InitialFileName = strPath ' Setzt den anfänglichen Pfad

        ' Zeigt den Dialog an und prüft, ob ein Ordner ausgewählt wurde
        If .Show <> -1 Then GoTo NextCode
        sItem = .SelectedItems(1)  ' Speichert den ausgewählten Pfad
    End With

NextCode:
    GetFolder = sItem ' Gibt den ausgewählten Ordnerpfad zurück
    Set fldr = Nothing ' Bereinigt das Dialogobjekt
End Function