Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verzeichnis bestimmen/Pfad angeben

Forumthread: Verzeichnis bestimmen/Pfad angeben

Verzeichnis bestimmen/Pfad angeben
07.03.2007 11:30:32
jens
Hallo,
ich möchte gerne ein bestimmtes Verzeichnis auf der Festplatte aus einer Liste(Verzeichnisstruktur) auswählen und dieses Verzeichnis dann in einer Zelle ausgeben.
Bspw. C:\Dokumente und Einstellungen\
Kann mir hier jemand mit einem Code weiterhelfen?
Danke, Jens
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verzeichnis bestimmen/Pfad angeben
07.03.2007 13:11:01
Rolf
Hallo Jens,
ActiveCell = Application.GetOpenFilename
fG
Rolf
AW: Verzeichnis bestimmen/Pfad angeben
07.03.2007 14:14:00
jens
Hallo Rolf,
mit dieser Funktion kann ich m.E. eine Datei öffnen, nicht aber eine Verzeichnis anwählen, welches in einer Zelle angegeben werden soll, oder?
Jens
AW: Verzeichnis bestimmen/Pfad angeben
07.03.2007 16:13:00
Sven
Hi,
aus dem Forum von K.Rola
Option Explicit 
Sub Verzeichnis()
Dim Ordner As FileDialog, Pfad As String
Dim Zielzelle
Zielzelle = "A1" 'Anpassen
Set Ordner = Application.FileDialog(4)
If Ordner.Show = -1 Then
Pfad = Ordner.SelectedItems(1)
Range(Zielzelle).Cells.Value = Pfad
End If
Set Ordner = Nothing
End Sub

mfg Sven
Anzeige
AW: Verzeichnis bestimmen/Pfad angeben
07.03.2007 17:21:02
Rolf
Hallo Jens,
da irrst du - probier's einfach mal aus.
fG
Rolf
AW: Verzeichnis bestimmen/Pfad angeben
07.03.2007 22:55:00
Hubert
Schmarrn!
AW: Verzeichnis bestimmen/Pfad angeben
07.03.2007 22:21:00
Anton
Hallo Jens,
noch eine Variante:
Sub ordnerauswahl()
Dim AppShell As Object
Dim BrowseDir As Variant
Dim Pfad As String
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
On Error Resume Next
Pfad = BrowseDir.items().Item().Path
If Pfad = "" Then Exit Sub
Set AppShell = Nothing
MsgBox Pfad
End Sub

mfg Anton
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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