sq = ThisWorkbook.Sheets werkt niet in Excel 2007 ?

[Offthefield]

Het inlezen van sq in een Combobox werkt niet in Excel 2007, wel in de vorige versies

Weet iemand hoe ik moet aanpassen ?

vb.

Private Sub UserForm_Initialize()
'' Hier het Blad / Sheet aangeven
sq = ThisWorkbook.Sheets("ROUTENR").UsedRange
ComboBox1.List = sq

End Sub

alvast hartelijk dank

Offthefield

 

[Mark xl]

Getest, en werkend in Excel 2007, servicepack 2

Private Sub UserForm_Initialize()
Dim sq As Variant
    sq = ThisWorkbook.Sheets("ROUTENR").UsedRange
    ComboBox1.ColumnCount = UBound(sq, 2)
    ComboBox1.List = sq
End Sub

Overigens lijkt mij het niet nuttig om een combobox te gebruiken om meerdere kolommen in in te lezen..

 

[Offthefield]

Mark xl,

Hartelijk dank, het werkt fantastisch

Groeten,

Offthefield