Verzeichnis in Listbox formatieren
15.05.2008 11:01:00
Chezar
ich habe ein Makro erstellt, welches mir ein Verzeichnis in eine Listbox einliest. Jetzt würde ich die Listbox gerne so formatieren, dass die Dateien des Verzeichnisses in aufsteigender Reihenfolge formatiert werden. Weiß jemand eine Lösung dafür?
Hier der Code:
Sub ListBoxEinlesen()
Application.StatusBar = "Lese aktuelle Dateiliste ein..."
Worksheets("Einlesen").ListBox1.Clear
Ordner = Worksheets("Einlesen").TextBox1.Value()
Dateien = Dir(Ordner & "*_I.cnd")
Do While Dateien ""
zeichen = InStr(1, Dateien, ".")
listeneintrag = Left(Dateien, zeichen - 3)
Worksheets("Einlesen").ListBox1.AddItem listeneintrag
Dateien = Dir
Loop
Application.StatusBar = "Bereit."
If listeneintrag = "" Then Modul1.Alertbox0
End Sub
Anzeige