*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: selected item(s) tellen in een listbox  (gelezen 3530 keer)

0 leden en 1 gast bekijken dit topic.

Offline firmin

  • Ervaren lid
  • ***
  • Berichten: 442
  • Geslacht: Man
  • Excel Specialist
selected item(s) tellen in een listbox
« Gepost op: 05 oktober 2008, 20:52:52 »
Hello,
In bijgevoegd bestandje heb ik een lijstje met gegevens (3 kolommen).
Door op de knop "selecteer speler" te klikken kom je in een userform.
Deze userform bevat een listbox met de gegevens uit de lijst, en 2 optionbuttons (2 spelers, 3spelers).
Bij selectie van optionbutton (2spelers) worden de 2 geselecteerde spelers uit de listbox, gekopieerd naar sheet2, optionbutton (3 spelers) naar sheet 3.
Dat werkt perfect, ik zou alleen een melding willen inlassen indien er meer dan 2 of 3 spelers geselecteerd zijn.
Dus een melding als optionbutton 2 spelers geselecteerd is en er in de listbox 3 spelers geselecteerd worden.
Firmin
Gelogd
PB easynote LE69KB,AMD quad-core,1000GB HDD,AMD Radeon HD8330,8GB DDR3
Windows 10,office 2007
MSE, Internet Explorer 11

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.284
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: selected item(s) tellen in een listbox
« Reactie #1 Gepost op: 05 oktober 2008, 22:36:54 »
Firmin, Zet dit blokje tussen jouw 'Dim' en je 'For...Next' lus.
Code: [Selecteer]
Dim iOptie As Integer
Dim iSpelerTeller As Integer
   
    If OptionButton1.Value = True Then iOptie = 2
    If OptionButton2.Value = True Then iOptie = 3
   
    For item = 0 To ListBox1.ListCount - 1
        If ListBox1.Selected(item) = True Then iSpelerTeller = iSpelerTeller + 1
    Next item
   
    If iSpelerTeller <> iOptie Then
        MsgBox "Je hebt in de lijst een onjuist aantal spelers (" & iSpelerTeller & ") geslecteerd! Selecteer nogmaals!", vbOKOnly, "Fout"
        Exit Sub
    End If
Bij het klikken op de knop wordt er eerst gekeken of het aantal geselecteerde spelers uit de lijst overeenkomt met de aangeklikte optiebutton.

Groet, Leo
Gelogd
______________________________

Groet, Leo

Offline firmin

  • Ervaren lid
  • ***
  • Berichten: 442
  • Geslacht: Man
  • Excel Specialist
Re: selected item(s) tellen in een listbox
« Reactie #2 Gepost op: 06 oktober 2008, 16:51:12 »
RedHead,
Zoals steeds is dit weer een goed werkend progje.
Door uw inbreng zie ik ook waar de foutmeldingen bij mij vandaan kwamen.
Thanks
Firmin
Gelogd
PB easynote LE69KB,AMD quad-core,1000GB HDD,AMD Radeon HD8330,8GB DDR3
Windows 10,office 2007
MSE, Internet Explorer 11

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.284
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: selected item(s) tellen in een listbox
« Reactie #3 Gepost op: 06 oktober 2008, 23:15:19 »
Graag gedaan! ;)

Groet, Leo
Gelogd
______________________________

Groet, Leo

Offline dizzl

  • Ambassadeur
  • *****
  • Berichten: 2.346
  • I've Upped my standards,now,up yours!
Re: selected item(s) tellen in een listbox
« Reactie #4 Gepost op: 07 oktober 2008, 06:49:42 »
Kan je niet (in access werkt dit) ?
Code: [Selecteer]
ListBox1.ItemsSelected.Countipv van
iSpelerTeller te tellen?
Gelogd
Systeem  : Intel Core i5-4440 3.1Ghz, 3.1GHz 16Giga Ram 64Bits
Software : Windows 10 professional, Avira, Office 2016 Professional

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.284
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: selected item(s) tellen in een listbox
« Reactie #5 Gepost op: 07 oktober 2008, 09:09:24 »
Dizzl, Helaas... Het object 'Listbox' in Excel kent deze methode/argument niet. Vreemd dat Access en Excel daar in verschillen.  ???
't Was anders wel een héle goede toevoeging van je geweest!

Groet, Leo
Gelogd
______________________________

Groet, Leo
Pagina's: [1]   Omhoog
 


www.combell.com