Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1592to1596
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
Inhaltsverzeichnis

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

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
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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige