Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bestimmten Pfad in Zelle schreiben

Forumthread: Bestimmten Pfad in Zelle schreiben

Bestimmten Pfad in Zelle schreiben
22.03.2006 15:15:00
pascal
Hallo,
folgendes Problem:
Ich möchte, dass in einer Zelle ein Pfad zu einem Ornder in Windows steht.
Damit dem Benutzer kein Fehler unterläuft ist nun meine Frage:
Kann man diese Pfadangabe dem Benutzer über ein Formular oder so was zur Verfügung stellen?
Also das der Pfad so ausgewählt wird wie z.B. beim speichern der Datei.
Hoffe, Ihr versteht was ich meine.
Gruß
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bestimmten Pfad in Zelle schreiben
22.03.2006 15:26:32
Heiko S.
Hallo Pascal,
z.B. so:

Function Get_Folder(Optional capt, Optional initF) As String
Dim objShell As Object, objFolder As Object, objItem As Object
Set objShell = CreateObject("Shell.Application")
With objShell
Set objFolder = .BrowseForFolder(0&, capt, 0, initF)
End With
If Not objFolder Is Nothing Then
Set objItem = objFolder.Self
Get_Folder = objItem.Path
End If
End Function
' Aufruf der Funktion z.B. so
Sub Pfad_Auswaehlen()
Dim strPfad As String
strPfad = Get_Folder("Wählen Sie den Pfad aus !")
' Mit Pfad Vorgabe
' strPfad = get_Folder("Wählen Sie den Pfad aus !", "C:\Eigene Dateien")
MsgBox strPfad
' In eine Zelle Schreiben
' ActiveSheet.Range("C13") = strPfad
End Sub

Gruß Heiko
PS: Rückmeldung wäre nett !
Anzeige
AW: Bestimmten Pfad in Zelle schreiben
22.03.2006 15:34:36
pascal
funktioniert wunderbar... danke
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken

Beliebteste Forumthreads (12 Monate)

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