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

Kommentare

Beliebte Posts aus diesem Blog

Formeln - auch Array - per VBA eintragen...

Alle Dateien eines Ordners - Optional mit Unterordner

Excel -> Word in Textmarken (Bookmarks)...