[VBA] Fout 13 typen komen niet overeen

[cschot]

Tweakers,

In Excel heb ik een Combobox gemaakt.
Nu wil ik values van een andere sheet erin hebben.

Visual Basic:

Private Sub ComboBox1_Change()
    ComboBox1.ListFillRange = Sheets(5).Range("A2:A3") 'dit werkt niet, fout 13 typen komen niet met elkaar overeen.
End Sub

Als ik een enkele cel aangeef, dan werkt het,
maar een range niet

Visual Basic:

Private Sub ComboBox1_Change()
    ComboBox1.Value = Sheets(5).Range("A3") 'dit werkt wel
End Sub

Of het nu cijfers of tekst is, dat maakt niet uit.

Weet iemand een oplossing?

[pedorus]

Wat zou deze code moeten doen, want het is een beetje gek om de value te veranderen bij een verandering van de combobox (dus terugveranderen als deze net gezet is). Wil je niet gewoon de ListFillRange op "[sheetnaam voor sheet 5]!a2:a3" zetten bij de properties, dus niet in een event?

[F_J_K]

Een combobox vul je niet met .Value (waar je overigens .Value vergeten bent bij de range, dan zie je meteen waar het fout gaat ) maar stuk-voor-stuk met AddItem().

[cschot]

Bedankt, ListFillRange bij properties invullen werkt!

[pedorus]

F_J_K schreef op maandag 27 september 2010 @ 12:15:
(waar je overigens .Value vergeten bent bij de range, dan zie je meteen waar het fout gaat )

Nope, .Value hoef je niet te typen want dat is een default property. Enkel .Value op meer dan 1 cel levert een variant-array op, en .value en .listfillrange van een combobox zijn strings en accepteren daarom geen variant-arrays. Vandaar de fout 13, dezelfde fout die je krijgt in het immediate debug window als je [a2:a3]<enter> intoetst.

[F_J_K]

Hoewel .Value IMHO altijd 'mooier' is: