Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 16:33:24
Worksheets variable
18.04.2024 15:53:31
In Outlook (Exchange) Serientermin erstellen
18.04.2024 15:16:20
VBA Suchen, Kopieren, Einfügen
18.04.2024 15:16:07
Verschieben von Daten um bestimmte Zeilen nach unten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
684to688
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
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Ordner öffnen

Ordner öffnen
21.10.2005 13:56:22
Gerhard
Hallo
wie kann ich aus einem makro heraus einen ordner öffnen
NUR einen ordner keine datei, die will ich mir dann erst aussuchen
danke einstweilen

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordner öffnen
21.10.2005 14:01:11
Dr.
Hi,
erst Das Laufwerk und den Pfad auswählen
ChDrive "C"
ChDir "C:\Test\"
und dann mit Application.GetOpenFilename den Öffnen-Dialog anwählen.
AW: Ordner öffnen
21.10.2005 14:08:06
Gerd
"NUR einen ordner keine datei"
mfg Gerd
AW: Ordner öffnen
21.10.2005 14:25:55
Dr.
Ist klar. Und denne?
AW: Ordner öffnen
21.10.2005 14:32:48
Gerhard
un dann will ich die gesamten dateien aufgelistet haben und eine zum öffnen aufmachen können
AW: Ordner öffnen
21.10.2005 14:03:17
Rolf
Hallo Gerhard,
versuch mal das
fG
Rolf

Sub test_ordner
MsgBox GetOrdner("C:\") 'Die Vorauswahl kannst du auch weglassen
End Sub

'Ordnerauswahl

Function GetOrdner(Optional ByVal def = "")
Dim objShell As Object, objfolder As Object
Set objShell = CreateObject("Shell.Application")
Set objfolder = objShell.BrowseForFolder(0, "Bitte einen Ordner wählen", 0, def)
If objfolder Is Nothing Then End
GetOrdner = objfolder.Self.Path
End Function

Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige