Hallo zusammen,

ich möchte über einen Command Button erst bestimmte OLEObjects löschen dann aber im gleichen Zug neue erstellen.
Leider werden die Comboboxen immer falsch angeordnet, wenn die beiden Methoden auf einen Button lege.
Auf zwei unterschiedlichen Button funktioniert alles wie gewünscht, es wäre aber sehr von Vorteil, wenn es über einen Button funktionieren würde.

Methoden:

Sub Steuerelemente_loeschen()
            'delete all controls
    Dim myShapes As OLEObject
    For Each myShapes In Tabelle1.OLEObjects
        If StrComp(myShapes.Name, "CommandButton1", vbTextCompare) <> 0 And StrComp(myShapes.Name, "CommandButton2", vbTextCompare) <> 0 And StrComp(myShapes.Name, "CommandButton3", vbTextCompare) <> 0 Then
            myShapes.Delete
        Else
            'do nothing
        End If
    Next
End Sub

Sub Dropdown_Boxen_erstellen()
    Dim top_comboboxAttribute As Integer
    top_comboboxAttribute = 150
    
    Do While top_comboboxAttribute <= 355
        Tabelle1.OLEObjects.Add ClassType:="Forms.ComboBox.1", _
        Left:=450, _
        Top:=top_comboboxAttribute, _
        Width:=210, _
        Height:=18

        top_comboboxAttribute = top_comboboxAttribute + 45
    Loop
End Sub

Command Button 1 + 2 = funktioniert

Private Sub CommandButton1_Click()
    Steuerelemente_loeschen
End Sub

Private Sub CommandButton2_Click()
    Dropdown_Boxen_erstellen
End Sub

Command Button 3 = funktioniert nicht

Private Sub CommandButton3_Click()
    Steuerelemente_loeschen
    Dropdown_Boxen_erstellen
End Sub

Hat hier jemand vielleicht eine Idee, wie ich meine zwei Methoden über einen Command Button ausführen kann und die Dropboxen dann auch in richtiger Reihenfolge angeordnet werden?

Weiß hier leider nicht mehr weiter, wäre sehr verbunden, wenn mir hier jemand helfen könnte.

Viele Grüße und vielen Dank

Eric