Rowsource en OS

[FS62]

Ik heb een menu waarin ik kan kiezen welke tabbladen ik wil printen. Bij het openen van het menu(form) is er standaard een aantal al geselecteerd.
Dit werkt onder Windows perfect. Echter OS ondersteunt RowSource niet en krijg dus een foutmelding. Ik zie wel dat een alternatief mogelijk Listfillrange. Echter ik kom er niet helemaal uit. Wie kan helpen?

Sub Teammenu_open()
Unload Teamcheck
Dim TabNaam As String
    TabNaam = ActiveSheet.Name
    Sheets("VT").Range("d1").Value = TabNaam
Load TeamMenu
TeamMenu.Caption = "Menu voor team " & Sheets("team").Range("g2")
TeamMenu.LBPrint.RowSource = "VT!A3:A15"
TeamMenu.LBPrint.Selected(0) = True
TeamMenu.LBPrint.Selected(1) = True
TeamMenu.LBPrint.Selected(7) = True
TeamMenu.LBPrint.Selected(8) = True
TeamMenu.LBPrint.Selected(9) = True
TeamMenu.LBPrint.Selected(10) = True
TeamMenu.LBPrint.Selected(11) = True
TeamMenu.LBPrint.Selected(12) = True
TeamMenu.show
End Sub

 

[edmoor]

Wat bedoel je met OS?
En als je een foutmelding zegt te krijgen, vertel deze er dan ook bij.

 

[FS62]

Met OS bedoelde ik de MAC / Apple.
De foutmelding is Fout 380 tijdens runtime.
Kan de eigenschap Selected niet instellen. Ongeldige eigenschapswaarde.

Zoals gezegd onder Windows draait hij perfect.

 

[edmoor]

MacOS kan ik helaas niet bij helpen.
Iemand anders misschien.

 

[HSV]

Werkt het zo?

TeamMenu.LBPrint.list = sheets("VT").range("a3:a15").value

 

[snb]

En gebruik userform initialize waarvoor het bedoeld is.

 

[FS62]

Top!!