Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 17 van 17

Onderwerp: ComboBoxen

  1. #1
    Senior Member
    Geregistreerd
    25 maart 2008
    Vraag is opgelost

    ComboBoxen

    Offtopic
    Voor de Belgische bezoekers maar zeker ook voor de Belgische helpers hier,
    jammer dat het gisteren zo gelopen is. Had gehoopt dat België doorging.
    Ontopic

    Voor het naderhand toevoegen van gegevens voor een ComboBox uit tabblad 'Lijst'
    gebruik ik de goed werkende code:

    CB_01.RowSource = "Lijst!A2:A" & Sheets("Lijst").Columns(1).SpecialCells(2).Count

    Mijn vraag is, is het ook mogelijk dat met opeenvolgende ComboBoxen CB_01, CB_02 enz. t/m CB20
    de code aangepast kan worden tot 1 regel, of moet er voor iedere ComboBox een aparte regel
    worden gemaakt?
    Alleen de CB_ nummers veranderen de overige code blijft hetzelfde, dus voor alle ComboBoxen :
    = "Lijst!A2:A" & Sheets("Lijst").Columns(1).SpecialCells(2).Count

    Bedankt, Wivoe

  2. #2
    Tera Honourable Senior Member
    Verenigingslid
    OctaFish's avatar
    Geregistreerd
    6 februari 2009
    Locatie
    Rotterdam
    Afstand tot server
    ±151 km
    Dat kan prima met een lus:
    Code:
    For i = 1 to 20
         Me(“CB_” & Right(“00” & i,2).RowSource = "Lijst!A2:A" & Sheets("Lijst").Columns(1).SpecialCells(2).Count
    Next i
    Wel even de quootjes vervangen, ik krijg geen rechte op een iPad .
    Gebruik de QUOTE knop alleen als je iets wit citeren.
    Op deze pagina kun je zien hoe je met TAGS werkt.

  3. #3
    Senior Member
    Geregistreerd
    25 maart 2008
    Hallo OctaFish,

    Heb de quootjes aangepast, maar krijg helaas de melding Compileerfout: Syntaxisfout

    Wivoe

  4. #4
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Staan ze in een werkblad of in een Userform?
    Gebruik ook geen 'Rowsource' maar 'List'.

    Plaats anders het bestand.
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  5. #5
    Senior Member
    Geregistreerd
    25 maart 2008

    ComboBoxen

    Hallo,

    Hier het voorbeeld, zoals te zien staan de ComboBoxen in een UserForm.

    Wivoe
    Attached Files Attached Files

  6. #6
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Onvindbaar.
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  7. #7
    Senior Member
    Geregistreerd
    25 maart 2008

    ComboBoxen

    Hallo,

    Hopelijk gaat het nu beter.

    Wivoe
    Attached Files Attached Files
    Laatst aangepast door wivoe : 12 juli 2018 om 07:45

  8. #8
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Om welk bestand gaat het? Ze heten hetzelfde maar hebben een verschillende grootte.
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  9. #9
    Senior Member
    Geregistreerd
    25 maart 2008

    ComboBoxen

    Goedemorgen,

    Sorry, was 1 bestand teveel, heb het weggehaald.

    De ComboBoxen staan allen in een Userform.
    Het veranderen van 'Rowsource' in 'List' levert
    ook niet het gewenste resultaat op.

    Groet, Wivoe

  10. #10
    Mega Honourable Senior Member
    Geregistreerd
    2 maart 2013
    Zo?
    Attached Files Attached Files
    Je kan een paard naar het water leiden, maar je kan het niet dwingen te drinken.

  11. #11
    Senior Member
    Geregistreerd
    25 maart 2008

    ComboBoxen

    VenA,

    Perfect, hartstikke bedankt.

    Hartelijke groet, Wivoe

  12. #12
    Giga Honourable Senior Member
    Verenigingslid

    Geregistreerd
    12 juni 2008
    Berperk interaktie met een werkblad:

    Code:
    Private Sub Userform_Initialize()
      CB_01.List = Sheets("Lijst").Columns(1).SpecialCells(2).value
    
      for j=2 to 20
        Me("CB_" & format(j,"00")).list=CB_01.List
      next
    End Sub
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  13. #13
    Senior Member
    Geregistreerd
    25 maart 2008

    ComboBoxen

    Sorry snb, dat ik nu pas reageer, had mijn vraag op opgelost gezet
    vandaar dat ik per toeval kijk en nu pas je bericht tegenkwam.

    Ga het straks even proberen en laat het je weten.

    Groet, Wivoe

  14. #14
    Senior Member
    Geregistreerd
    25 maart 2008

    ComboBoxen

    Hallo snb,

    Heb deze code geprobeerd en hij doet exact hetzelfde als
    van VenA, bedankt ook voor het meedenken.

    Groeten, Wivoe

  15. #15
    Giga Honourable Senior Member
    Verenigingslid

    Geregistreerd
    12 juni 2008
    Lees vooral eens de toelichtende tekst bij mijn suggestie.
    En analyseer het verschil tussen mijn suggestie en die van VenA.
    Niet alleen het resultaat is van belang, ook de methode doet ertoe.
    VBA voor smarties
    VBA is een taal die je moet leren met een grammatica- en een woordenboek.

    http://www.helpmij.nl/forum/announcement.php?f=5
    Plaats svp geen bestanden op andere sites; nadat het bestand daar verwijderd is wordt een forumdraad onbegrijpelijk voor anderen.

  16. #16
    Senior Member
    Geregistreerd
    25 maart 2008

    ComboBoxen

    Hallo,

    Wat ik ook nog wilde bereiken, maar nog niet had gevraagd, was
    dat een bepaald aantal ComboBoxen in dit voorbeeld dus 2 stuks, de
    gegevens van blad 'Lijst' zijnde A2:A en C2:C moest kunnen weergeven.

    De voorstellen van OctoFish, VenA en snb werken op zich prima,
    voor een enkele gegevens kolom, maar niet voor meerdere.
    Wat ik ook wilde bereiken was, om de weergave in de diverse
    ComboBoxen te laten beginnen bij de 2e rij en niet bij de eerste rij
    van blad 'Lijst' dus niet de tekst 'Kleur' en/of 'Lees' erbij.

    De code die ik nu gebruik werkt mijn inziens prima en is een combinatie
    van de gegeven codes.

    Wat niet werkte was om 'RowSource' te vervangen door 'List',
    krijg dan de foutmelding 381.


    Met vriendelijke groet,

    Wivoe Map1 (4).xlsm

  17. #17
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Als het aantal rijen van kolom C even lang is als kolom A, volstaat.
    Code:
    Private Sub Userform_Initialize()
       For i = 1 To 10
        Me("CB_" & Format(i, "00")).List = Sheets("Lijst").Columns(1).SpecialCells(2).Offset(1).SpecialCells(2).Resize(, 3).Value
      Next i
    End Sub
    De eigenschappen van de combobox 6 t/m 10 pas je als volgt aan.
    Columncount = 3
    ColumnWidths = 0;0;40
    Textcolumn = 3
    ____________
    Met vriendelijke groet,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren