Listbox multiselect msgbox

[loek010]

Beste Hulpverleners,

Vraagje hoe krijg ik een msgbox" Nothing selected" in deze code als er niks is geselecteerd in de Listbox

Sub Copy()
For lItem = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(lItem) Then
            FileCopy "C:\Temp scans\" & Me.ListBox1.List(lItem), "D:\Temp\"  & Me.ListBox1.List(lItem)
        End If
        Next lItem
        MsgBox "Bestand(en) gekopieerd ", vbInformation, ""
End Sub

Loek010

 

[edmoor]

Zo:

If ListBox1.ListIndex =  0 then

 

[loek010]

@Ed

Ok maar waar plaats ik die code in de code zo dat hij de sub onderbreekt met exit sub


Loek

 

[edmoor]

Daar komt helemaal geen onderbreking met Exit Sub bij kijken:

Sub Copy()
    If ListBox1.ListIndex = 0 Then
        MsgBox "Geen items(s) geselecteerd", vbCritical
    Else
        For lItem = 0 To Me.ListBox1.ListCount - 1
            If Me.ListBox1.Selected(lItem) Then
                FileCopy "C:\Temp scans\" & Me.ListBox1.List(lItem), "D:\Temp\" & Me.ListBox1.List(lItem)
            End If
        Next lItem
        MsgBox "Bestand(en) gekopieerd ", vbInformation, ""
    End If
End Sub

 

[loek010]

@ Ed

Dan was ik inderdaad te moeilijk bezig maar krijg nu fout Else zonder If
Nou weet ik niet waar ik end if moet plaatsen


Loek010

 

[edmoor]

Dat staat gewoon in #4.

 

[loek010]

@Ed

Sorry ik had 1x end if teveel staan.

Maar nu met de code geeft hij geen msgbox geen items geselcteerd wel de msgbox bestanden gekopieerd maar kopieert niks
uiteraard om dat er niks is geselcteerd in de listbox
Komt het niet dat de listbox multiselect is


Loek010

 

[loek010]

@Ed

Het is de warmte die me concentratie beïnvloed :d de Listindex stond op -1 in plaats van 0
Hij doet het nu wel


Bedankt voor je inspanning


Loek010 :thumb:

 

[edmoor]

Even geen rekening mee gehouden dat het een multiselect is.
Met die 0 zal het ook niet kloppen als je al wat had geselecteerd en daarna deselecteert.
Je kan het dan beter zo doen:

Private Sub CommandButton1_Click()
    For lItem = 0 To Me.ListBox1.ListCount - 1
        If Me.ListBox1.Selected(lItem) Then
            Uitgevoerd = True
            FileCopy "C:\Temp scans\" & Me.ListBox1.List(lItem), "D:\Temp\" & Me.ListBox1.List(lItem)
        End If
    Next lItem
    
    If Uitgevoerd Then
        MsgBox "Bestand(en) gekopieerd ", vbInformation
    Else
        MsgBox "Geen items(s) geselecteerd", vbCritical
    End If
End Sub

 

[loek010]

@Ed

Code gewijzigd in die van je laatste post en inderdaad als ik nu de-selecteer dan krijg inderdaad ook weer geen items geselcteerd
Ook die werkt zoals ik het bedacht had.


Bedankt

Loek010