ich habe Dank des Forums bereits eine gut funktionierende Lösung bekommen, für die ich eine Erweiterung benötige.Leider reichen meine Fähigkeiten nicht für eine Lösung.
Ich habe verschiedene Comboboxen, deren Inhalt in einer Listbox gesucht und markiert werden soll, das funktioniert perfekt. Jetzt möchte ich gern erreichen, dass mir zu den Treffern eine Menge in die Spalte 3 der Listbox schreibt.
Meine Idee dazu sieht wie folgt aus und funktioniert leider nicht:
Sub aktualisieren()
Dim lngZeile As Long
Dim lngIndex As Long
Dim markieren As Boolean
With UserForm1.ListBox1
For lngZeile = 0 To .ListCount - 1
markieren = False
For lngIndex = 1 To 6 'lngIndex entspricht der Nummer im TxtBox Namen
If UserForm1.Controls("ComboBox" & lngIndex) "" Then
Select Case lngIndex
Case 1, 3, 4 'Prüft Inhalt aus ComboBox 1,3,4 in ListBox Spalte 1
If .List(lngZeile) Like "*" & UserForm1.Controls("ComboBox" & lngIndex) _
& "*" _
Then markieren = True
.List(lngZeile,3) = Userform1.Combobox6
End Select
End If
If markieren = True Then Exit For 'damit ist der Code ggf. schneller
Next
If markieren = True Then
.Selected(lngZeile) = True
Else
.Selected(lngZeile) = False
End If
Next lngZeile
End With
End Sub