Verwijzing

[Jack Nouws]

Hallo ik wil mijn ComboBox naar een ander bestand laten verwijzen (Green Trees) en dat lukt volgens onderstaande code. Maar ik wil hem ook naar een specifiek blad (Fust) laten verwijzen en dat krijg ik nou weer net niet voor elkaar Weet iemand hoe ik mijn formule moet aanpassen?

Met vr gr
Jack

Private Sub UserForm_Initialize()
             With CboBonnr
                .RowSource = "'Green Trees.xls'!A4:A" & Range("A65536").End(xlUp).Row
    End With
End Sub

 

[Jack Nouws]

Hallo ik wil mijn ComboBox naar een ander bestand laten verwijzen (Green Trees) en dat lukt volgens onderstaande code. Maar ik wil hem ook naar een specifiek blad (Fust) laten verwijzen en dat krijg ik nou weer net niet voor elkaar Weet iemand hoe ik mijn formule moet aanpassen?

Met vr gr
Jack

Private Sub UserForm_Initialize()
             With CboBonnr
                .RowSource = "'Green Trees.xls'!A4:A" & Range("A65536").End(xlUp).Row
    End With
End Sub

Laat maar het is me inmiddels al gelukt met deze code

Met vr gr
Jack

Private Sub UserForm_Initialize()
    Set MyRange = Workbooks("Green Trees").Worksheets("Fust").Range("A4:A100")

            With CboBonnr
                .RowSource = MyRange.Address(External:=True)
    End With
End Sub