Reeks Comboboxen kopieren naar ander bestand Comboboxen nummers blijven identiek.

[markwat]

Reeks Comboboxen kopiëren naar ander bestand ComboBoxen nummers blijven identiek.

Zelf denk ik dat ik hem bijna heb maarrrrrr.....
het bestand opent, alleen gaat hij niet verder met kopiëren lijkt het..

Private Sub CommandButton3_Click()
Dim area As Range
Workbooks.Open ("C:\Dropbox\documenten\offerte sjabloon 1_1.xlsm") 'map die wordt geopend' 
  For i = 1 To 91
    Sheets("Sheet").OLEObjects("ComboBox" & i).Object.List = ([B]hier begint het probleem[/B]).Sheets("InvoerSheet").OLEObjects("ComboBox" & i).Object.List  'alle boxen moeten gekopieerd worden naar de zelfde boxen als waar ze uitkwamen in het nieuwe bestand'
  Next i
  For Each area In ThisWorkbook.Sheets("invoersheet").Range("G17:G21,H18:H20,H36:H39,H41:H110,I14").Areas     [I]'dit zijn de overige cellen die het volgens mij doen'[/I]
       ActiveWorkbook.Sheets("InvoerSheet").Range(area.Address) = area.Value
 Next area
End Sub

 

[HSV]

Dan moeten de comboboxen van het te openen wel gevuld zijn.
Bv. met het workbook.open(), anders zijn deze gewoon leeg.

 

[markwat]

Beste Harry,
dank voor de reactie.
sommige zijn wel dan gevuld en sommige niet maar ik vroeg mij af of de naam goed is.

 

[HSV]

Als sommigen niet gevuld zijn heeft het geen 'List' en krijg je een foutmelding.

 

[markwat]

Het gaat alleen om de inhoud wat er in staat wat gekopieerd moet worden, sommige zijn met tekst en de ander is leeg.
Heeft u een suggestie?

 

[HSV]

Vul de comboboxen tijdens het openen van de te openen bestand.
Dus: als je bestand(x) opent, zet je in Thisworkbook.open van bestand(x) een code om de lege te vullen.
Daarna wordt ook de combobox van bestand(y) waarmee je bestand(x) opent gevuld.