Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1280to1284
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
Dateien in Unterordner anzeigen
07.10.2012 16:01:46
Volker
Hallo zusammen,
ich benötige mal wieder Hilfe.
Ich habe eine UF mit zwei Comboboxen. In der ersten werden die Unterordner eines Verzeichnisses aufgelistet. Funktioniert auch.
Jetzt möchte ich den Inhalt des in Combobox1 ausgewählten Ordners in Combobox2 anzeigen.
Ich habe versucht mittels nachstehendem Code etwas zu erreichen.
Anscheinend stimmt er nicht.
Dim strFile As String
strPath = "C:\AAA\BBB\" & UserForm3.ComboBox1.Value
strFile = Dir(strPath & "*.xls")
If strFile "" Then
With UserForm3.ComboBox2
.Clear
Do
.AddItem strFile
strFile = Dir
Loop Until strFile = ""
End With
End If
Danke und
Gruß
Volker

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

Betreff
Datum
Anwender
Anzeige
AW: Dateien in Unterordner anzeigen
07.10.2012 16:18:46
Josef

Hallo Volker,
Dim strFile As String, strPath As String

strPath = "C:\AAA\BBB\" & UserForm3.ComboBox1.Value

If Right(strPath, 1) <> "\" Then strPath = strPath & "\"

strFile = Dir(strPath & "*.xls")

With UserForm3.ComboBox2
  .Clear
  Do While strFile <> ""
    .AddItem strFile
    strFile = Dir
  Loop
End With



« Gruß Sepp »

Anzeige
AW: Dateien in Unterordner anzeigen
07.10.2012 16:26:25
Volker
Vielen Dank, funktioniert!
Gruß
Volker

302 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige