ComboBox mit Erstellung bestücken
10.03.2009 13:05:44
Michael
das erstellen einer comboBox mit entsprechender Ausrichtung in der gewünschten Zelle klappt wunderbar.
Allerdings ist das Bestücken der ComboBox nicht im gleichen Makro möglich - zumindest nicht wie unten angeführt. Ich möchte allerdings vermeiden, mit einem Makro die Combobox zu erstellen und danach noch ein anderes Makro zum Bestücken dieser ausführen zu müssen.
Hat jemand ne Idee ?
Viele Grüße
Sub ComboBoxErstellen()
Set chb = ActiveSheet.OLEObjects.Add( _
ClassType:="Forms.ComboBox.1")
With chb
.Left = Cells(Var + 4, 1).Left
.Top = Cells(Var + 4, 1).Top
.Width = 110
.Height = 20
End With
With Worksheets("A").ComboBox1
.Clear
.AddItem "Name"
.AddItem "Adress"
.AddItem "Postal Code"
.ListIndex = 0
End With
End Sub