ListBox.Clear bei LB im Blatt
Reinhard
diese Referenzierung mavcht mich noch fertig, irgendwie müßte ich da dringendst mein spärliches Wissen aufbessern, kostet mich immer viel Zeit dies durch Tests zu ermitteln wie es denn nun grad mal richtig wäre :-((
Jetzt hänge ich am Clear einer LB. Der erste Code klappt wenn er im Modul des Blattes der LB steht.
In einem Standardmodul klappt er abgewandelt als zweiter Code nicht.
Da kommt bei "Clear" Fehler 438, "Objekt unterstützt ...nicht"
Sub LBFuellen()
Dim objLB As Object
Set objLB = ListBox1
With objLB
.Visible = True
.Clear
End With
End Sub
Sub LBFuellen()
Dim objLB As Object
'Set objLB = ActiveSheet.OLEObjects("ListBox1").Object
Set objLB = ActiveSheet.OLEObjects("ListBox1")
With objLB
.Visible = True
.Clear
End With
End Sub
Como siempre Dank ^ Gruß
Reinhard
Anzeige