Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
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
264to268
264to268
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Folder auswählen

Forumthread: Folder auswählen

Folder auswählen
04.06.2003 11:54:00
Dennis
Hi @ all,
ich möchte gerne über ein Fenster einen bestimmten Pfad zu einem Folder im System auswählen können (explorer) und Ihn dann als Variable benutzen! Bin für jeden vorschlag dankbar.... :)

THX
Dennis

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Folder auswählen
04.06.2003 11:59:04
L.Vira

Stimmt deine Excelversion wirklich?

Re: Folder auswählen
04.06.2003 12:06:50
Dennis

Leider ja.. (Office97) Haben hier ein paar mehr Rechner stehen, da wäre eine umstellung auf 2000 nicht gerade billig.. :) Ausserdem läuft die 97èr hier recht Stabil bis auf die Standard Bugs!
Dennis


Re: Folder auswählen
04.06.2003 12:12:27
L.Vira

Dann ist es aber Excel 8.x (Excel 97). Bei excel 5/7 wirst du kaum eine Antwort erhalten, das kennt kaum noch jemand.

Option Explicit
''**********************************************************************
''Verweis auf SHDOC401.DLL erforderlich
''Microsoft Shell Controls and Automation
''**********************************************************************
Sub ShellTest()
Dim objS As Shell
Dim objFo As Folder
Set objS = New Shell
''**********************************************************************
With objS
Set objFo = .BrowseForFolder(0&, "Wählen Sie einen Ordner...", 0, 12)
End With
On Error Resume Next
MsgBox "Gewählt wurde: " & objFo.Title
End Sub


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