Allgemeine Zeitung Mainz Stellenanzeigen
Das wird im Makro abgefangen und mit einem anderen Hinweisfenster beantwortet. Die folgende Abbildung zeigt, wie dieses Fenster aussieht:
Die folgende Funktion startet den FileDialog zur Ordnerauswahl und gibt den ausgewählten Pfad als String zurück: Public Function GivePath() As String Dim fDialog As FileDialog Dim result As Integer 'Dateidialog für Auswahl Set fDialog = leDialog(msoFileDialogFolderPicker) On Error Resume Next With fDialog. AllowMultiSelect = False = "Ablagepfad für pdf-Datei auswählen".. InitialFileName = "c:\Standardordner" & "\" 'Wichtig = "\" result = If (result <> 0) Then GivePath = Trim(. Excel vba pfad auswählen converter. (1)) Else GivePath = "" End If End With End Function Bei Abbruch wird ein Leerstring zurückgegeben. Der Backslash in der Zeile ". InitialFileName" bewirkt, dass im Auswahlfeld "Ordner" kein Eintrag steht und dass, wenn keinerlei Änderung vorgenommen wird, der Standardpfad zurückgegeben wird. "On Error Resume Next" ist nicht elegant, aber anders funktioniert die Rückgabe ohne Änderung nicht. Vielleicht hat jemand eine elegantere Lösung;)
Ordner auswählen Ordner auswählen von A. B. vom 17. 02. 2011 20:33:26 AW: Ordner auswählen - von Rudi Maintaire am 17. 2011 20:40:44 AW: Ordner auswählen - von A. am 17. 2011 20:52:31 AW: Ordner auswählen - von Josef Ehrensberger am 17. 2011 22:43:56 Betrifft: Ordner auswählen von: A. B. Geschrieben am: 17. 2011 20:33:26 Hallo Forum. Mit topenfilename kann ich eine Datei auswählen usw. Gibt es eine Möglichkeit einen Ordner auszuwählen? z. B topenpath Ideen??? Betrifft: AW: Ordner auswählen von: Rudi Maintaire Geschrieben am: 17. 2011 20:40:44 Hallo, ab XL2000: Sub ttt() Dim sPfad As String With leDialog(msoFileDialogFolderPicker) = "Test" If = -1 Then sPfad =. SelectedItems(1) MsgBox sPfad End If End With End Sub Gruß Rudi Geschrieben am: 17. 2011 20:52:31 Super, genau diesen Befehl hatte ich gesucht. Pfad aus Zelle für Formel verwenden. Gibt es noch die Möglichkeit einen Pfad als default zu definieren? von: Josef Ehrensberger Geschrieben am: 17. 2011 22:43:56 Hallo A. B., Sub ttt() Dim sPfad As String With leDialog(msoFileDialogFolderPicker) = "Test".