Gibt es eine Möglichkeit, auf einer Userform-Listbox nichtausgewählte Einträge zu entfernen?
Liebe Grüße
Roli
Private Sub ngewaehlt_loeschen()
Dim sPruef As Integer, lf As Integer
sPruef = Me.kd_preisliste.Value
For lf = 0 To Me.kd_preisliste.ListCount - 1
If Me.kd_preisliste.List(lf) <> sPruef Then
Me.kd_preisliste.RemoveItem lf
Exit For
End If
Next lf
End Sub