InitialFileName = "C:\" = "Ordnerauswahl". ButtonName = "Auswahl... ". InitialView = msoFileDialogViewList If = -1 Then strOrdner =. SelectedItems(1) If Right(strOrdner, 1) <> "\" Then strOrdner = strOrdner & "\" Else strOrdner = "" End If End With If strOrdner = "" Then 'MsgBox ("Kein Ordner gewählt! Excel vba pfad auswählen converter. ") Range("A1") = strOrdner End Sub Übrigens: Google "vba excel pfad auswählen", erstes Ergebniss Grüße, Klaus Geschrieben am: 05. 2013 09:19:16 das geht so: Public Sub Ordnerauswahl() Geschrieben am: 05. 2013 10:05:49 Vielen Dank Klaus! Betrifft: Danke für die Rückmeldung! owT. Geschrieben am: 05. 2013 10:17:50. Excel-Beispiele zum Thema "Pfad auswählen und im Tabellenblatt hinterlegen" Zellinhalt suchen und Zelle auswählen Die Zelle mit dem höchsten Wert Auswählen Tabellenblatt auswählen Laufwerk über InputBox auswählen Werte nach zwei Kriterien auswählen Blätter in ComboBox-Feld einlesen und auswählen Alle Zellen mit der #BEZUG!
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(. (1)) Else GivePath = "" End If End With End Function Bei Abbruch wird ein Leerstring zurückgegeben. Der Backslash in der Zeile ". 119. Excel-VBA: Auf dem richtigen Pfad!? Ordner und Dateien über das FileDialog-Objekt auswählen - YouTube. 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. Excel vba pfad auswählen tool. 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. 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".