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

Combobox füllen

Forumthread: Combobox füllen

Combobox füllen
04.12.2017 23:45:18
Sergej
Hallo Leute,
wie kann ich das Combobox mit allen Dateien füllen, die im Verzeichnis C:\Daten\ liegen. Es sollen nur die Dateien angezeigt werden, die im Dateiname "PDF" und "PLT" haben.
Beste Grüße,
Sergej
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Combobox füllen
05.12.2017 07:59:14
JoWE
Hallo Sergej,
versuchs so: 
Private Sub ComboBox21_GotFocus()
Dim myPath As String
Dim myFile As String
myPath = "C:\daten\"
myFile = Dir(myPath & "*.pdf")
Do While myFile > ""
ComboBox21.AddItem myFile
myFile = Dir
Loop
myFile = Dir(myPath & "*.plt")
Do While myFile > ""
ComboBox21.AddItem myFile
myFile = Dir
Loop
End Sub

Gruß
Jowe
Anzeige
Einzeiler
05.12.2017 09:35:46
RPP63
Moin!
Etwas kryptisch, aber das schadet ja nix: 
ComboBox1.List = Filter(Split(CreateObject("wscript.shell").exec("cmd /c Dir ""C:\Daten\*.p*"" /b /a-d").stdout.readall, vbCrLf), ".")

Frei nach snb:
http://www.snb-vba.eu/VBA_Fill_combobox_listbox_en.html
Gruß Ralf
Anzeige
AW: Einzeiler
05.12.2017 12:37:13
Sergej
Danke JoWE! Danke Ralf!
Schönen Gruß,
Sergej
AW: Einzeiler
05.12.2017 13:39:36
JoWE
Hallo Ralf,
schöne Lösung!
Wieder was dazu gelernt.
Gruß
Jochen
;

Beliebteste Forumthreads (12 Monate)

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