Live-Forum - Die aktuellen Beiträge
Datum
Titel
06.10.2025 20:14:37
Ich suche einfach erstmal nach einer Idee oder ein Demo
06.10.2025 19:15:29
Mit Uhrzeit rechnen
06.10.2025 18:25:16
Einträge einer Tabelle über Userform ändern
06.10.2025 17:03:04
Makro csv-Datei laden und Int.Tabelle anlegen
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
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
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