ComboBox in Tabellenblatt per VBA
05.09.2005 15:11:48
R.Schmitt
mit folgendem Code habe ich das Problem, daß ich
auf einem bestehenden Tabellenblatt eine ComboBox
mitsamt Listfillrange und LinkedCell einfügen will.
Was auch bis auf die ListFillRange (aus einem anderen
Blatt) hervorragend klappt.
Ist die ListfillRange im Selben Blatt klappt selbst
das.
Hab´ich grad´wieder ein SyntaxProblem und seh´den Wald
vor lauter Bäumen nicht oder .....?
Sub AddComboBox()
Dim oObj As OLEObject
Dim oCBox As MSForms.ComboBox
Dim cell As Range
Set oObj = ActiveSheet.OLEObjects.add( _
ClassType:="Forms.ComboBox.1", _
Link:=False, _
DisplayasIcon:=False, _
Left:=20, _
Top:=50, _
Width:=150, _
Height:=20)
Set oCBox = oObj.Object
oCBox.LinkedCell = Range("f1").Address
oObj.ListFillRange = Sheets("Listen").Range("a2:a96").Address
oCBox.ListIndex = 0
End Sub
Danke
R.Schmitt