Als er in een listbox niets geselecteerd is dan...

[r3000]

Ik wil een messagebox laten zien als er in een listbox niets geselecteerd is.

Welke code kan ik daarvoor gebruiken?

Ik weet dat dit niet goed is maar ik zoek iets simpels als:

Private Sub CommandButton1_Click()

If listbox1.selected = false then

Msgbox ("selecteer een item")

Else

Me.hide
Userform2.show false

End if

 

[OctaFish]

Ik snap je probleem niet. Ik neem aan dat er standaard niks geselecteerd is in de keuzelijst, dus op welk moment moet de keuzelijst denken: nu is het mooi geweest, de gebruiker heeft nog steeds niks geselecteerd? Niet bij openen van het formulier, want je wilt 'm wel enige tijd de kans geven. 5 minuten? Half uur?

 

[E v R]

Bijna;

If listbox1.listindex = false then

 

[edmoor]

Of:

If ListBox1.ListIndex = -1 Then
    MsgBox "Niets geselecteerd"
End If

 

[r3000]

Bijna;

If listbox1.listindex = false then

@E v R, deze werkt wel maar slechts eenmalig.

 

[r3000]

Of:

If ListBox1.ListIndex = -1 Then
    MsgBox "Niets geselecteerd"
End If

@Ed Moor, deze werkt helaas niet.

 

[HSV]

Of:

If ListBox1.ListIndex > -1 Then
  MsgBox "er is iets geselecteerd"
Else
  MsgBox "geen selectie"
End If

 

[edmoor]

@Ed Moor, deze werkt helaas niet.

Die doet het hier anders prima.

 

[r3000]

Ze werken inderdaad allemaal.
Maar helaas slechts eenmaal.
Als je de selectie ongedaan maakt dan is de listindex blijkbaar gewaardeerd en wordt er aangegeven dat er wel iets geselecteerd is.

Hoe zorg ik ervoor dat als er eenmaal iets geselecteerd was en alles ge-deselecteerd wordt, er nog steeds een melding komt dat er niets geselecteerd is?

 

[edmoor]

En hoe maak je de selectie ongedaan? Of werk je met Multiselect?

 

[r3000]

@Ed, ja klopt, ik werk met Multiselect.

 

[edmoor]

Doe dan dit eens:

Private Sub CommandButton1_Click()
    Dim msg As String
    Dim i As Integer
    
    For i = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(i) Then _
          msg = msg & ListBox1.List(i) & vbCrLf
    Next i
        
    If msg <> "" Then
        MsgBox msg
    Else
        MsgBox "Niets geselecteerd"
    End If
End Sub

 

[r3000]

geweldig! dank je wel!:thumb:

 

[E v R]

werkt dit wel?:

If not listbox1.selected(listbox1.listindex) then