Her er et eksempel på at fylde en combobox med ting fra et andet regneark. Det kan gøres på flere måder, men denne her er nok den nemmeste. Forudsætter at den anden er åben.
Private Sub ComboBox2_GotFocus() ComboBox2.ListFillRange = "[varer.xls]Sheet1!$A$1:A10" End Sub
Jeg kan få understående til at virke hvis jeg placerer tabellen lokalt i samme regneark - men når jeg indtaster en reference til en anden Woorkbok så blokker ??????????????
Private Sub Workbook_Open() Workbooks.Open (strPath + "\" + strTableFile) Workbooks("best-skema 00.xls").Worksheets("ark1").ComboBox1.ListFillRange = "[tabeller.xls]divers.porttyper" End Sub
Ej - jeg har droppet det - laver i stedet en userform i VBA - det passer vist bedre til mit projekt... men tak for ulejligheden....! :O)
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.