Beste Forumleden,

In de listbox van UserForm1 staan items die Beginnen met *** en eindigen met***
Is er een mogelijkheid om te voorkomen dat deze items selecteerbaar zijn.

Hier een workaround.
Als je alleen dit achter je userform zet zou het moeten werken

Private Sub ListBox1_Change()
 With ListBox1
    If .ListIndex < 0 Then Exit Sub
    For i = 0 To .ListCount - 1
      If .Selected(i) Then a = a + 1
      If a > 1 Then
        .Selected(i) = False
        Exit Sub
      ElseIf InStr(.List(i, 1), "***") And .Selected(i) Then
        .Selected(i) = False
      End If
    Next
 End With
End Sub

Private Sub UserForm_Initialize()
ListBox1.MultiSelect = fmMultiSelectMulti
ListBox1.List = Sheets("Ras").Cells(1, 1).CurrentRegion.Value
End Sub

Je hebt me op een ander idee gebracht. met InStr
Lijkt vooralsnog goed te werken, met het wel nog grondig testen.
Private Sub ListBox1_Click()
 With ListBox1
    If .ListIndex > -1 Then
        If InStr(.List(.ListIndex, 1), "***") Then
            MsgBox "dit niet selecteren": Exit Sub
        End If
        TextBox1 = .Column(0)
        TextBox2 = .Column(1)
    End If
 End With

End Sub

Mooizo! En van hetzelfde!