ich möchte beim Start einer Exceldatei Daten aus einer anderen Exceldatei in einer Combobox anzeigen lassen.
Die Combobox befindet sich direkt auf einem Arbeitsblatt.
Ich bin soweit gekommen das er mir die Daten per .select auswählt und wieder in die ursprüngliche Exceldatei zurückspringt.
Bei der Funktion Combobox.Additem stockt es. Ich bekomme einen Laufzeitfehler 13 angezeigt.
Was muss geändert werden?
Private Sub Workbook_Open()
Dim Sel As Variant
Dim wb1 As Excel.Workbook
Set wb1 = Workbooks.Open("Exceldatei1.xlsx")
lastRow = wb1.Sheets("Tabelle1").UsedRange.Rows.Count
wb1.Sheets("Tabelle1").Range("A2:A" & lastRow).SpecialCells(xlCellTypeVisible).Select
Sel = Selection
ThisWorkbook.Activate
With Worksheets("Eingabe")
.ComboBox1.AddItem (Sel)
End With
End Sub