11.08.2010

ActiveX ComboBox erstellen - befüllen!

Eine ComboBox aus Steuerelemente (ActiveX) soll in der gerade aktiven Zelle erstellt und mit einem Wert bzw. mehreren Werten befüllt werden.

Option Explicit
Public Sub Test()
Dim objXbox As Object
With Tabelle1 ' Anpassen
Set objXbox = .OLEObjects.Add(ClassType:="Forms.ComboBox.1")
With objXbox
.Object.AddItem ("Teil1")
.PrintObject = False
.Left = ActiveCell.Left
.Top = ActiveCell.Top
.Width = ActiveCell.Width
.Height = ActiveCell.Height
End With
End With
End Sub
Public Sub Test_1()
Dim objXbox As Object
Dim varArr As Variant
varArr = Array("Teil1", "Teil2", "Teil3", "Teil4")
With Tabelle1 ' Anpassen
Set objXbox = .OLEObjects.Add(ClassType:="Forms.ComboBox.1")
With objXbox
'.Object.AddItem ("Teil1")
.Object.List = varArr
.PrintObject = False
.Left = ActiveCell.Left
.Top = ActiveCell.Top
.Width = ActiveCell.Width
.Height = ActiveCell.Height
End With
End With
End Sub

Keine Kommentare:

Kommentar veröffentlichen

Formeln auf einer UserForm in einer TextBox darstellen...

Formeln auf einer UserForm in einer TextBox anzeigen. Z. B. "Formula", "FormulaLocal"... und wie muss die Formel in VBA ...