Mit Application.getopenfilename kann ich eine Datei auswählen usw.
Gibt es eine Möglichkeit einen Ordner auszuwählen ?
z.B Application.getopenpath
Ideen ?
Sub ttt()
Dim sPfad As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Test"
If .Show = -1 Then
sPfad = .SelectedItems(1)
MsgBox sPfad
End If
End With
End Sub