füllen mehrere Excel-Dropdowns in einer Schleife

Question

Ich habe eine for-Schleife, die mehrere Dropdown-Elemente in verschiedenen Teilen meiner Excel-Tabelle erstellt. Es fällt mir jedoch schwer, diese mit einer Liste zu füllen. Die Liste sollte von den Blättern in WS erhalten werden. Ich denke, das Problem hier ist, dass, wenn ich meine Combo-Box, wird es nicht als Objekt zugewiesen zugewiesen. Hier ist der Code, den ich habe. Hat jemand eine Idee, wie man das macht? Danke im Voraus.

Private Sub CommandButton1_Click() 

Set ws = Sheets(Array("rpi301", "rpi302", "rpi303", "rpi304", "rpi305")) 

For Each Sh In ws 
    Set Cell = Range(Sh.Range("B8").Value & CStr(Sh.Range("B9").Value)) 
    With Cell 
     ActiveSheet.DropDowns.Add(.Left, .Top, .Width, .Height).Name = "Combo" 
     ActiveSheet.Shapes("Combo").ControlFormat.ListFillRange = Sh.Range("B2:B7") 
    End With 
Next 
End Sub 

Answer 1

Der Code ist richtig. Aber das Problem, was die Dropdown-Listen benennen. Sie sollten eindeutige Namen haben.