Ordner vorschlagen in File Dialog
14.02.2021 18:24:33
SchubertFranzl
würde gerne in die Zelle C1 einen Ordnerpfad stehen haben, der mit einem Makro abgefragt werden soll.
Leider gelingt mir nicht, den Pfad, der in C1 steht, als Voreinstellung so in den Dialog zu bringen, sodass es auch übernommen wird, wenn man den Button "Auswählen" drückt.
Hier ma, das Makro:
Public Sub Ordnerauswahl()
Dim Pfad As String
Pfad = Range("C1")
If Right(Pfad, 1) = "\" Then Pfad = Left(Pfad, Len(Pfad) - 1)
If Pfad = "" Then Pfad = ActiveWorkbook.Path
With Application.FileDialog(msoFileDialogFolderPicker)
.InitialFileName = Left(Pfad, InStrRev(Pfad, "\") - 1)
.Title = "Ordnerauswahl"
.ButtonName = "Auswahl..."
.InitialView = msoFileDialogViewList
If .Show = -1 Then
Pfad = .SelectedItems(1)
If Right(Pfad, 1) "\" Then Pfad = Pfad & "\"
End If
End With
Range("C1") = Pfad
End Sub
Problemstellung:
Wenn das Makro gestartet wird, dann muss der Anwender seinen Wunschordner auswählen. Vorgeschlagen werden soll aber genau der Ordner, der in C1 steht oder, falls C1 leer, der Ordner, in dem die Datei selbst steht.
Dieser Vorschlag soll einfach mit dem Button "Auswählen" angenommen werden können. Wie kann man das Dialogfenster machen, dass es das Gewünschte tut
LG, Franzl