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
Share on Facebook
Share on Twitter
Share on Reddit
Share on LinkedinPlease also mark the comments that contributed to the solution of the article
Content-Key: 27460
Url: https://administrator.de/contentid/27460
Printed on: April 16, 2024 at 08:04 o'clock
2 Comments
Latest comment
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 =)