Wert ist Listbox suchen und markieren
07.03.2023 08:01:02
Chris
ich möchte einer Variable einem Wert zuweisen.
Dieser Wert soll in einer Listbox in der ersten spalte gesucht werden.
Wenn vorhanden, soll die entsprechende Zeile markiert werden.
Bei dem Makro unten tut sich nichts, wo liegt der Fehler Der Wert ist in der ersten Spalte der LB vorhanden.
Vielen Dank.
Chris
Private Sub UserForm_Activate()
wert = "Test"
Dim i As Long
For i = 0 To UserForm1.ListBox1.ListCount - 1
If UserForm
1.ListBox1.List(i, 0) = wert Then
UserForm1.ListBox1.Selected(i) = True
Else
UserForm1.ListBox1.Selected(i) = False
End If
Next i
End Sub
Anzeige