Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

ComboBox mit LinkedCell-Eigenschaft in aktivem Blatt erstellen

Gruppe

ComboBox

Problem

Im aktiven Blatt soll eine neue ComboBox mit LinkedCell- und ListFillRange-Zuweisung erstellt werden.

Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.

StandardModule: Modul1

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")
  oObj.ListFillRange = Range("G1:G12").Address
  oCbox.ListIndex = 0
End Sub