VBA-Fehler 424 Objekt im Bereich Objekt

Question

Ich bekomme den 424 Fehler im Code unten und ich kann nicht herausfinden, was los ist. Im Grunde versuche ich, eine Combobox mit Daten aus einer Spalte in einer Tabelle in einer anderen Arbeitsmappe zu füllen. Ich dachte daran, dies mit Bereichen zu tun und zu automatisieren, so viel wie ich konnte, d. H. Ich wollte sogar das Combobox-Objekt als Variable übergeben ... Aber ich stecke hier fest ...

Vielen Dank für Ihre Hilfe!

Sub PopListBoxTbl(tbl As String) 
Dim popv As Range, col As Range 
Dim cmb As ComboBox 
Dim wb As Workbook 
Dim sheet As Worksheet 
Set cmb = UserForm1.ComboBox2 
Set wb = Workbooks.Open(path, False, True) 
Set sheet = wb.Worksheets(tbl) 
Set col = sheet.Range(tbl) 
wb.Close 
cmb.Clear 
For Each popv In col.Cells 'here's the error line 
With cmb 
    .AddItem popv.Value 
End With 
Next popv 
End Sub 

Answer 1

Sobald Sie die Quellarbeitsmappe schließen, ist Ihre col Variable nichts. Das verursacht Ihren Fehler - Sie können kein Objekt Range auf einen Bereich in einer geschlossenen Arbeitsmappe verweisen. Schließen Sie es einfach, nachdem Sie das Steuerelement gefüllt haben, oder laden Sie die Daten zuerst in ein Array.