Markierung in Listbox
17.06.2021 20:26:10
Eberhard
Ich habe in einer UserForm eine ListBox (MultiSelect) eingebaut. Nun möchte ich nur bestimmte Markierungen löschen. Also nicht gleich alle Markierungen. Ich habe folgendes versucht. Doch löscht es mir gleich jede Markierung. Ist dies überhaupt möglich?
Hier ein Teil vom Code. Hoffe das reicht?
Dim i As Long
Dim Suchen As String
Dim ws As Worksheet
Set ws = Worksheets("Lagerliste_drucken")
With ListBox1
For i = 0 To .ListCount - 1
If .Selected(i) Then Exit For
Next
If i = .ListCount Then
MsgBox "Bitte Auswahl treffen"
Exit Sub
End If
For i = 0 To .ListCount - 1
If .Selected(i) = True Then
Suchen = strAusgabe & .List(i)
Set rng = Worksheets("WSCAR_Daten").Range("F:F").Find(Suchen, LookIn:=xlValues, lookat:=xlWhole, MatchCase:=True)
If rng Is Nothing Then
MsgBox "Lagerort " & Suchen & " nicht gefunden!", vbInformation
Else
If WorksheetFunction.CountIf(Worksheets("WSCAR_Daten").Range("F:F"), Suchen) Gruss Daniel
