Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.10.2025 10:48:58
Zufällige Uhrzeit
19.10.2025 10:46:18
Zufallszahlen nur wenn Datum ab kommenden Sonntag
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1192to1196
1192to1196
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zwei Fragen zu: Workbook.Path

Forumthread: Zwei Fragen zu: Workbook.Path

Zwei Fragen zu: Workbook.Path
Holger,
Hallo liebes Forum,
wie fast jeden Tag, Probleme, Probleme und Probleme ;).
Genauer gesagt, zwei kleine plagen mich. 
ThisWorkbook.Path
liefert den kompletten Pfad inlusive Name der Arbeitsmappe.
1 Wie erhalte ich nur den Pfad, also ohne Dateinamen?
2 Mit welchem Application Object kann ich einen Pfad auswählen? Für eine Datei wäre das ja 
.GetOpenFilename
... aber wie für einen Pfad?
Hoffe, jemand kann mir meine zwei Reißnägel ziehen.
Gruß
Holger
Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
zu 1 / 2
12.01.2011 11:39:18
Reinhard
Hallo Holger,
genau das macht doch .Path?
Gruß
Reinhard
Recht hast du, mein Screentip war ...
12.01.2011 11:44:12
Holger,
... zu unübersichtlich, daher mein Mißverständnis :)
AW: Zwei Fragen zu: Workbook.Path
12.01.2011 11:40:06
Rudi
Hallo, 
liefert den kompletten Pfad inlusive Name der Arbeitsmappe.

Falsch! Nur den Pfad. Pfad+Name bekommst du mit Thisworkbook.FullName
2. 
Sub Pfad()
Dim sPfad As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Pfad wählen"
If .Show = -1 Then sPfad = .SelectedItems(1)
End With
End Sub

Gruß
Rudi
Anzeige
Stimmt , falsch geschaut
12.01.2011 11:43:25
Holger,
Morgen Rudi,
tja, da war der Screentip einfach zu unübersichtlich, als ich mit der Maus
über die Variable fuhr.
Danke für den Tip und den Code, teste ihn gleich.
eine Frage noch
12.01.2011 13:28:55
Holger,
He Rudi,
gibt es da die Möglichkeit, einen default Path zu hinterlegen?
Welcher Pfad wird momentan als default zum auswählen benutzt?
Anzeige
AW: eine Frage noch
12.01.2011 13:35:27
Reinhard
Hallo Holger,
ungetestet, vielleicht so: 
Sub Pfad()
Dim sPfad As String, Merker As String
Merker = CurDir
ChDrive "C"
ChDir "C:\test"
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Pfad wählen"
If .Show = -1 Then sPfad = .SelectedItems(1)
End With
ChDir Merker
End Sub

Gruß
Reinhard
Anzeige
AW: eine Frage noch
12.01.2011 13:42:54
Rudi
Hallo,
geht auch 
Sub Pfad()
Dim sPfad As String
With Application.FileDialog(msoFileDialogFolderPicker)
.Title = "Pfad wählen"
.InitialFileName = "c:\test\"
.InitialView = msoFileDialogViewList
If .Show = -1 Then sPfad = .SelectedItems(1)
End With
End Sub

Gruß
Rudi
Anzeige
Klasse!!!!
12.01.2011 13:49:49
Holger,
Rudi, Herzlichen Dank.
So wird das richtig schön!!
Gruß
Holger
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige