OLEObjects-ListBox: komisches Füllverhalten
06.12.2006 15:15:29
Geisel_der_Menschheit
ich habe folgendermaßen ein Listenfeld (ListBox) erstellt und bekomme es nicht gebacken Daten ordentlich einzuspielen:
Dim shiit as WorkSheet
Dim listenfeld as OLEObject
Set shiit = WorkSheets("Tabellenblatt")
Set listenfeld = shiit.OLEObjects.Add(classtype:="Forms.ListBox.1", _
Left:=1140, Top:=0, Height:=40, Width:=61)
listenfeld.Object.AddItem ("funzt!")
Folgendes passiert nun: das Listenfeld wird erstellt, aber der Eintrag "funzt!" erscheint nicht. Wechsle ich in ein anderes Tabellenblatt und wieder zurück, dann ist er da.
Ich bekomme den Eintrag auch zum Vorschein, wenn ich den Entwurfsmodus einschalte, auf das Listenfeld gehe, den Entwurfsmodus-Fokus von dem Listenfeld nehme und den Entwurfsmodus wieder ausschalte.
Gibt es eine art Aktualisierungsmethode, die ich vergessen habe damit der Eintrag sofort angezeigt wird?
Ich komme nicht drauf! Es ist zum Verzweifeln.
Gruß
Michael