Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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.
Anzeige
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?
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
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)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige