Verwijzen zonder .SELECT of .ACTIVATE c.q zonder verandering van de focus

[Excelerik]

Ik wil graag een range meegeven aan een combobox in een userform, zonder de focus te verleggen naar een ander blad.
Onderstaande code werkt helaas niet (Fout 1004), maar geeft de richting aan waar ik naar toe wil

De code werkt wel als ik de apostrof (2x) verwijder en 'ws.' achter Set verwijder.
Helaas springt Excel dan ook naar het bewuste blad, terwijl ik de foocus op Blad1 wil houden
naturlijk kan ik ook de code tussen Application.ScreenUpdating=False ..True plaatsen, maar ik ben benieuwd of er nog een alternatief is

Ik hoop dat ik niet te cryptisch ben

Dim ws As Worksheet
Dim gebied As Range

Load UserForm1
Set ws = Worksheets("Fruitschaal")
'ws.Activate

Set gebied = ws.Range(Cells(1, 1), Cells(200,1))


UserForm1.ComboBox1.List = gebied.Value
UserForm1.Show

'ActiveWorkbook.Sheets("Blad1").Select

End Sub

 

[Roncancio]

Je hebt geen code nodig om een bereik aan een combobox te geven.

Bij de eigenschappen stel je RowSource in op: Fruitschaal!A1:A200

Met vriendelijke groet,


Roncancio

 

[VenA]

of

Combobox1.List = Sheets("Fruitschaal").Cells(1).Resize(200).Value

 

[Excelerik]

Dank voor jullie snelle reactie

Vergeten:Het bereik varieert, omdat er nieuwe items bijkomen

Ik heb ook het volgende geprobeerd

UserForm1.ComboBox1.RowSource

Maar ook dan lukt het niet

De oplossing van VenA werkt wel!
Kun je die verklaren?
Welk verschil is er tussen Sheets en Worksheets?

 

[Excelerik]

Heb intussen het volgende gevonden, wat het echter mij nog niet duidelijker maakt:

Sheets - collection of the Sheets of all types (Worksheets, Chart Sheets)
Worksheets - collection of Sheets of type Worksheet
Charts - collection of Sheets of type Chart Sheet

 

[Roncancio]

In Excel heb je de gewone werkbladen ("Worksheets") en bladen waarin je een grafiek ("Charts") kunt plaatsen.

Sheets bevat alle bladen (dus zowel werkbladen als grafiekbladen)

Met vriendelijke groet,


Roncancio

 

[Excelerik]

Ik vond uiteindelijk het volgende bericht: http://www.helpmij.nl/forum/showthread.php/545635-Fout-1004-Door-de-toepassing-of-door-object-gedefinieerde-fout op dit forum

De Cells in Range verwijst dus niet naar de Worksheet maar naar de Active Sheet!
Bij Sheets wordt wèl (expliciet) verwezen naar de genoemde sheet.

Weer wat geleerd! :thumb:
Allemaal bedankt

 

[VenA]

Als het bereik varieert dan kan je de code beter ook variabel maken

bv

ListBox1.List = Sheets("Fruitschaal").Range("A1:A" & Sheets("Fruitschaal").Cells(Rows.Count, 1).End(xlUp).Row).Value

of

ListBox1.List = Sheets("Fruitschaal").Cells(1).CurrentRegion