Listbox in Sheet mit Array befüllen
18.10.2024 16:44:26
Jo
ich ärgere mich seit einiger Zeit mit folgendem Problem herum:
Ich möchte über ein Modul eine Listbox in einem Worksheet mit einem Array befüllen.
Jeglicher Versuch, die Listbox als OLEObject anzusprechen und per .list = array füllen zu wollen scheitert, da die Option .list scheinbar nicht existiert? Wenn ich es mit VBA im Worksheet mache, kann ich meine Listbox ja ohne Definition ansprechen. Im Modul brauche ich ja aber die Definition... Weiß jemand Rat?
Private Sub nominatus()
Dim wb As Workbook: Set wb = ActiveWorkbook
Dim wtit As Worksheet: Set wtit = wb.Sheets("tituli")
Dim wcom As Worksheet: Set wcom = wb.Sheets("compendium")
Dim tbl_nom As ListObject: Set tbl_nom = wcom.ListObjects("iTab_nominatus")
Dim comArr As Variant: comArr = tbl_nom.DataBodyRange
'funktioniert beides nicht:
wtit.OLEObjects("lbx_superior").list = comArr
wtit.OLEObjects("lbx_superior").object.list = comArr
End Sub
Anzeige