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

bestehenden Code präzisieren

bestehenden Code präzisieren
10.09.2013 13:44:16
Andreas
Hallo Excelfreunde!
Ich habe, Dank dieses Forums, ein Userform mit einer Combobox und mehreren Commandbuttons. Bei Aufruf des Userform werden mir in der Combobox alle Dateien des aktuellen Ordners zur Auswahl angezeigt. Dabei wird folgender Code benutzt:
Private Sub UserForm_Initialize()
Dim strFile As String
strFile = Dir(ThisWorkbook.Path & "\")
With ComboBox1
.Clear
Do Until strFile = ""
.AddItem Left(strFile, Len(strFile))
strFile = Dir
Loop
End With
End Sub
Besteht die Möglichkeit, dass in der Combobox nur alle Dateien mit der Endung xlsb angezeigt werden, und wie muss der Code dann aussehen.
Danke für's lesen und die Hilfe!
mfg, Andreas

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

Betreff
Datum
Anwender
Anzeige
AW: bestehenden Code präzisieren
10.09.2013 13:51:59
Rudi
Hallo,
ändere so:
strFile = Dir(ThisWorkbook.Path & "\*.xlsb")
Gruß
Rudi

AW: bestehenden Code präzisieren
10.09.2013 13:52:13
Hajo_Zi
Hallo Andreas,
strFile = Dir(ThisWorkbook.Path & "\*.xlsb")

Vielen Dank Euch beiden!
10.09.2013 13:55:17
Andreas
.
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige