wie kann ich meine Lisbox mit Dateinamen füllen, ohne das Namen doppelt eingelesen werden ?
danke rolf
wie kann ich meine Lisbox mit Dateinamen füllen, ohne das Namen doppelt eingelesen werden ?
danke rolf
du kannst das zum Beispiel so überprüfen:
hinzu = "text für Liste"
anzahl = ListBox1.ListCount
Do While i < anzahl
ListBox1.ListIndex = i
zeile = ListBox1.Text
If zeile = hinzu Then
Exit Do
i = 0
End If
i = i + 1
Loop
If i <> 0 Then
ListBox1.AddItem hinzu
End If
wobei "hinzu" die Variable für den zu hinzufügenden text ist.
und das Listenfeld heisst ListBox1
hoffe dir geholfen zu haben
gruss
Steffen
gruss rolf
gruss rolf
>Meine Einträge für die Box sind Dateinamen und kein Text aus Tabellen.
Dateinamen kannst du behandeln wie normalen Text
>Ich dachte schonmal an ne Schleife die für jeden neuen Eintrag zuvor prüft ob der Wert in der box schon vorhanden ist.
Genau das habe ich doch auch gemacht.
Du musst halt statt "hinzu2 einfach einen Dateinamen einlesen:
strFile = "Mappe1.xls"
anzahl = ListBox1.ListCount 'anzahl der vorhandenen Dateien in der Liste
Do While i < anzahl
ListBox1.ListIndex = i
zeile = ListBox1.Text
If zeile = strFile Then
Exit Do 'Schleife beenden, wenn schon vorhanden
i = 0
End If
i = i + 1
Loop
If i <> 0 Then
ListBox1.AddItem strFile
End If
Wenn du damit immer noch nicht klar kommst, dann poste doch einfach dein Makro, wo du dann das ganze einbauen willst.
meiner meinungs nach, müsste es funktionieren
Gruss
Steffen D
ich habs endlich geschafft. Diese Änderungen waren allerdings noch erforderlich
+ Zeile i = 0 muss aber vor Exit Do (ansonsten liest er auch doppelte Werte ein)
+ If i <> 0 habe ich ergänzt um Or anzahl = 0 (damit überhaupt der 1. Wert genommen wird)
Vielen DAnk rolf