ich würde gerne den User einen Ordner wählen lassen. Das mache ich jetzt so, wie unten dargestellt. Allerdings mit einem kleinen Schönheitsfehler: Die Dateien im gewählten Ordner sind nicht sichtbar. Und das macht die Ordnerwahl (möglich, aber) schwer.
Sub Ordnerwahl
Dim Pfad As String
Pfad = Range("B1")
'Backslash am Schluss wird entfernt
If Right(Pfad, 1) = "\" Then Pfad = Left(Pfad, Len(Pfad) - 1)
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Pfad & "\"
.Title = "Ordnerauswahl"
.ButtonName = "Auswahl..."
If .Show = -1 Then
'Ordner wurde ausgewählt
Pfad = .SelectedItems(1)
'Backslash wird angehängt
If Right(Pfad, 1) "\" Then Pfad = Pfad & "\"
End If
End With
End Sub
Kann man das so einstellen, dass der Anwender den gewünschten Pfad wählen kann und dabei im Dialogfenster auch die Dateien sieht? Gruss von Franzl