Ax Combox Additem aus Zelle
21.03.2022 08:38:18
robert
Habe ein Blatt aus dem der Inhalt jeder zweiten Zelle aus Zeile 1 in die Combobox sollen.
Hier bekomme ich "Zugriff verweigert" und weiß nicht warum
Dim ii As Integer
Dim iend As Integer
iend = Worksheets("Material").Cells(1, Columns.Count).End(xlToLeft).Column 'letzte Spalte
For ii = 1 To iend
Worksheets("Wartungsprotokoll").ComboBox_kat_select.AddItem Worksheets("Material").Cells(1, ii)
ii = ii + 1
Next