Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
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
1636to1640
1636to1640
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien in ComboBox einlesen

Forumthread: Dateien in ComboBox einlesen

Dateien in ComboBox einlesen
09.08.2018 11:27:22
Sergej
Hallo Leute,
wie bekomme ich bitte in ComboBox1 (UserForm_Initialize), die Dateien mit der Dateiendung *.cfg aus dem Pfad D:\Auswertungen\Projekt HTS\ eingelesen?
Die Dateien mit der Dateigröße 0 KB und die Dateien bei den es in Dateiname _PASS_ vorkommt, sollen ignoriert werden.
Besten Dank im Voraus!
Gruß,
Sergej
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien in ComboBox einlesen
09.08.2018 11:49:10
Nepumuk
Hallo Sergej,
teste mal:
Private Sub UserForm_Initialize()
    Const FOLDER_PATH As String = "D:\Auswertungen\Projekt HTS\"
    Dim strFilename As String
    With ComboBox1
        strFilename = Dir$(FOLDER_PATH & "*.cfg")
        Do Until strFilename = vbNullString
            If FileLen(FOLDER_PATH & strFilename) > 0 Then
                If InStr(strFilename, "_PASS_") <> 0 Then
                    Call .AddItem(pvargItem:=strFilename)
                End If
            End If
            strFilename = Dir$
        Loop
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: Dateien in ComboBox einlesen
09.08.2018 12:05:04
Sergej
Hallo lieber Nepumuk,
ich habe es getestet. Das ComboBox1 bleibt leer. Der Pfad stimmt und die Dateien sind vorhanden.
Schönen Gruß,
Sergej
AW: Dateien in ComboBox einlesen
09.08.2018 12:10:42
Nepumuk
Hallo Sergej,
mein Fehler. So geht's:
If InStr(strFilename, "_PASS_") = 0 Then

Gruß
Nepumuk
Anzeige
AW: Dateien in ComboBox einlesen
09.08.2018 12:24:31
Sergej
Hallo Nepumuk,
jetzt funktioniert es. Herzlichen Dank!
Schönen Gruß,
Sergej
AW: Dateien in ComboBox einlesen
09.08.2018 14:04:25
Sergej
Hallo Nepumuk,
kurze Frage noch: wie erreiche ich bitte, dass beim Öffnen von UserForm im ComboBox z.B. erster Eintrag oder irgendeinein Eintrag bereits vorausgewählt / geladen wird?
Schönen Gruß,
Sergej
Anzeige
AW: Dateien in ComboBox einlesen
09.08.2018 14:14:20
Nepumuk
Hallo Sergej,
so:
Private Sub UserForm_Initialize()
    Const FOLDER_PATH As String = "D:\Auswertungen\Projekt HTS\"
    Dim strFilename As String
    With ComboBox1
        strFilename = Dir$(FOLDER_PATH & "*.cfg")
        Do Until strFilename = vbNullString
            If FileLen(FOLDER_PATH & strFilename) > 0 Then
                If InStr(strFilename, "_PASS_") = 0 Then
                    Call .AddItem(pvargItem:=strFilename)
                End If
            End If
            strFilename = Dir$
        Loop
        If .ListCount > 0 Then .ListIndex = 0
    End With
End Sub

Gruß
Nepumuk
Anzeige
AW: Dateien in ComboBox einlesen
09.08.2018 14:18:48
Sergej
Vielen Dank!
Quasi OT Frage zur Call-Anweisung
09.08.2018 14:25:56
{Boris}
Hi Max,
hab ich nun schon öfter gesehen: Warum verwendest Du hier die Call-Anweisung? Welchen Vorteil hat das?
VG, Boris
AW: Quasi OT Frage zur Call-Anweisung
09.08.2018 14:35:40
Nepumuk
Hallo Boris,
damit ich auf einen Blick Methoden von Eigenschaften unterscheiden kann.
LG
Max
Anzeige
OK - leuchtet ein - danke! VG, Boris
09.08.2018 14:46:37
{Boris}
...
;

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