• 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.

Meerdere comboboxen tegelijk instellen ( op sheet, niet op Userform) :)

Status
Niet open voor verdere reacties.
SjonR

SjonR

Verenigingslid
Lid geworden
10 nov 2016
Berichten
3.279
Ik kom er zo gauw ff niet uit, maar hoe stel ik meerdere comboboxen tegelijk in dmv een loopje?

Ik dacht hieraan, maar dat werkt niet:

Code: 
For i = 4 To 23
    Blad11.Controls("ComboBox" & i).List = Application.Transpose(Sheets("Filters").Range("Voldoen"))
Next

Wie o wie verlost mij?
 
Code: 
sn=sheets("Filters").Range("Voldoen")

For i = 4 To 23
    Blad11.oleobjects("ComboBox" & i).List = sn
Next

waarschijnlijk ook:
Code: 
sn=[Voldoen]

For i = 4 To 23
    Blad11.oleobjects("ComboBox" & i).List = sn
Next
 
Laatst bewerkt:
Helaas... werken geen van beide.
 

Bijlagen

  • comboboxen instellen.xlsm
    22,2 KB · Weergaven: 35
Laatst bewerkt:
Grappenmaker: waar is dat benoemde gebied gebleven ?

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  sn = Cells(1).CurrentRegion

  For i = 1 To 4
    Blad1.OLEObjects("ComboBox" & i).Object.List = sn
  Next
End Sub
 
.Object lost het op!

enorm bedankt snb.

Zou zweren dat ik A1:A2 een naampje had gegeven in het voorbeeldbestand, maar blijkbaar dus niet :)
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan