Hallo...
Ich habe ein Problem mit OLE Objekten. Und zwar möchte ich eine Listbox dynamisch erstellen und mit Werten abfüllen. Suche seit Stunden nach einer Lösung aber finde nichts richtiges. Hier mein Code der über Worksheet_Change aufgerufen wird:
Sub adden()
Dim list As OLEObjects
Worksheets("Tabelle1").Range("A1").Select
Set list = Worksheets("Tabelle1").OLEObjects.Add(ClassType:="Forms.ListBox.1", Left:=1, Top:=1, Height:=20, Width:=50)
list.AddItem Range("C1").Value
End Sub
Benutze Excel 2007.
Hoffe ihr könnt mir da helfen!!??
Danke Greeeeez
|