• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

ComboBoxen

Status
Niet open voor verdere reacties.

wivoe

Gebruiker
Lid geworden
25 mrt 2008
Berichten
146
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
 
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 :).
 
Hallo OctaFish,

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

Wivoe
 
Staan ze in een werkblad of in een Userform?
Gebruik ook geen 'Rowsource' maar 'List'.

Plaats anders het bestand.
 
Hallo,

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

Wivoe
 

Bijlagen

  • Test.xlsx
    13,5 KB · Weergaven: 54
Onvindbaar.
 
Hallo,

Hopelijk gaat het nu beter.

Wivoe
 

Bijlagen

  • Map1.xlsm
    16,4 KB · Weergaven: 54
Laatst bewerkt:
Om welk bestand gaat het? Ze heten hetzelfde maar hebben een verschillende grootte.
 
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
 
VenA,

Perfect, hartstikke bedankt.

Hartelijke groet, Wivoe
 
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
 
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
 
Hallo snb,

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

Groeten, Wivoe
 
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.
 
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 Bekijk bijlage Map1 (4).xlsm
 
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
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan