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
Ich kann zwar mit InitialFileName den Pfad voreinstellen, der oben in der Pfadzeile steht, aber der Ordnername steht auch in der Eintragungszeile. Und das führt zu keinem Ergebnis, wenn man den Button "Auswählen" drückt. Sicher, mit "Abbruch" würde es gehen, aber es soll auch mit "Auswählen" gehen. 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