Listboxeigenschaften
Tibo
ich habe eine Frage bezüglich Listboxen und hoffe auf eure Hilfe!
Folgenden Code habe ich auf einen commandbutton gelegt:
Sub tttt()
Dim oLB As OLEObject
Set oLB = ActiveSheet.OLEObjects.Add("Forms.ListBox.1")
With oLB
.Height = 100
.Width = 100
.Left = 10
.Top = 10
.ListFillRange = "A1:A20"
.Object.MultiSelect = 1
End With
End Sub
Dadurch wird eine Listbox erschaffen. So weit so gut. Wenn ich allerdings Werte in dieser Listbox markieren möchte geht dies erst nachdem ich vorher einmal in die Entwurfsansicht und wieder zurück geschaltet habe... Gibt es eine Möglichkeit, die Werte in der Listbox zu markieren ohne diesen Schritt vorher unternehmen zu müssen?
Vielen Dank für eure Hilfe!
MfG Tibo
ps. Solltet ihr noch Fragen haben bzw. ich das Problem nicht genau beschrieben haben dann schreibt mir, ich werde so gut es antworten.