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
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.
Anzeige