Dynamic Range und ein statisches Element auf eine ComboBox über VBA

Question

Ich habe diesen Code:

With Sheet1.Shapes("comboBox1").ControlFormat 
    .ListFillRange = "namedRange" 
    .AddItem "1.Item" 
End With 

Aber danach, nur „1.Item“ ist in meinem Combo-Box und der Dynamikbereich erscheinen nicht auf allen .

Wie kann ich einItem und mein Range auf die Combo-Box?

---

EDIT

Die dynamischen range funktionieren würde, wenn ich .AddItem löschen:

With Sheet1.Shapes("comboBox1").ControlFormat 
    .ListFillRange = "namedRange" 
End With 

Meine Frage ist, ob es eine Möglichkeit gibt, die nicht in einem Bereich zu kombinieren, sondern voneinander getrennt.

---

Vielen Dank im Voraus für Ihre Antworten ...

Answer 1

Wenn ich Ihren Beitrag richtig verstanden, Sie einen anderen Artikel zur Bestellung im „Namedrange“ hinzufügen möchten, und alle zeigen diese Elemente in Ihrem Arbeitsblatt ComboBox (das ist eigentlich ein Dropdown in Ihrem Arbeitsblatt).

(ändern Sie "Sheet2" in den Namen Ihres Blattes).

Sub PopulateCombo_fromArray() 

Dim ComboArray As Variant 

'clear Combo-Box from previous runs >> modify "Sheet2" to your sheet's name 
Worksheets("Sheet2").Shapes("ComboBox1").ControlFormat.RemoveAllItems 

' reading the NamedRange into a 1-dimension array 
ComboArray = Application.Transpose(Range("namedRange").Value) 

ReDim Preserve ComboArray(UBound(ComboArray)) 
' add another element to the array (outside the "namedRange") 
ComboArray(UBound(ComboArray)) = "1.Item" 

' populate "ComboBox1" with array 
Worksheets("Sheet2").Shapes("comboBox1").ControlFormat.List = ComboArray 

End Sub 

Answer 2

Müssen Sie "Shapes" verwenden?

wenn nicht, können Sie eine Combobox mit einem benannten Bereich wie folgt füllen:

With Sheet1.ComboBox1 
    .List = Application.Transpose(Range("namedRange")) 
    .AddItem "1.Item" 
End With