2
Listbox übergabe ohne doppelte einträge
Hallo zusammen
ich habe zwei Listboxen bei der Übergabe soll geprüft werden ob der Eintrag vorhanden ist, aber irgentwie funktioniert es nicht so wie ich es will.
Bei einzelnen Markierungen ist es ja kein Problem, aber bei Mehrfachauswahl verhält es sich komisch....
For t = 0 To filDatei.ListCount - 1
If filDatei.Selected(t) = True Then
If InStr(lstDateien.Text, filDatei.List(t)) = 0 Then
lstDateien.AddItem filDatei
Else
MsgBox "bereits ausgewählt!"
End If
End If
Next t
Thx und MfG
Copro
ich habe zwei Listboxen bei der Übergabe soll geprüft werden ob der Eintrag vorhanden ist, aber irgentwie funktioniert es nicht so wie ich es will.
Bei einzelnen Markierungen ist es ja kein Problem, aber bei Mehrfachauswahl verhält es sich komisch....
For t = 0 To filDatei.ListCount - 1
If filDatei.Selected(t) = True Then
If InStr(lstDateien.Text, filDatei.List(t)) = 0 Then
lstDateien.AddItem filDatei
Else
MsgBox "bereits ausgewählt!"
End If
End If
Next t
Thx und MfG
Copro
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 27460
Url: https://administrator.de/contentid/27460
Ausgedruckt am: 25.11.2024 um 23:11 Uhr
2 Kommentare
Neuester Kommentar
Hallo,
versuchs mal so:
Dim bExit As Boolean
Dim i As Long
Dim t As Long
For t = 0 To filDatei.ListCount - 1
If filDatei.Selected(t) = True Then
bExit = False
For i = 0 To lstDateien.ListCount - 1
If lstDateien.List(i) = filDatei.List(t) Then
MsgBox filDatei.List(t) & " ist bereits ausgewählt!"
bExit = True: Exit For
End If
Next i
If Not bExit Then lstDateien.AddItem filDatei
End If
Next t
mfg
PLONK
versuchs mal so:
Dim bExit As Boolean
Dim i As Long
Dim t As Long
For t = 0 To filDatei.ListCount - 1
If filDatei.Selected(t) = True Then
bExit = False
For i = 0 To lstDateien.ListCount - 1
If lstDateien.List(i) = filDatei.List(t) Then
MsgBox filDatei.List(t) & " ist bereits ausgewählt!"
bExit = True: Exit For
End If
Next i
If Not bExit Then lstDateien.AddItem filDatei
End If
Next t
mfg
PLONK
Danke hat wundebar geklappt =)
