Hallo,

wenn ich es richtig umgesetzt habe, ist der derzeitige Code so:

Sub Vorgabe()
    With cx_amu1_option_1
        .AddItem ""
        .AddItem va_amu1_rel
        .AddItem va_amu1_siko
        .AddItem va_amu1_ht
        .AddItem va_amu1_blhp
        .AddItem va_amu1_open
        .AddItem va_amu1_mh
        .AddItem va_amu1_ths
    End With
    With cx_amu1_option_2
        .AddItem ""
        .AddItem va_amu1_rel
        .AddItem va_amu1_siko
        .AddItem va_amu1_ht
        .AddItem va_amu1_blhp
        .AddItem va_amu1_open
        .AddItem va_amu1_mh
        .AddItem va_amu1_ths
    End With
    With cx_amu1_option_3
        .AddItem ""
        .AddItem va_amu1_rel
        .AddItem va_amu1_siko
        .AddItem va_amu1_ht
        .AddItem va_amu1_blhp
        .AddItem va_amu1_open
        .AddItem va_amu1_mh
        .AddItem va_amu1_ths
    End With
    With cx_amu1_option_4
        .AddItem ""
        .AddItem va_amu1_rel
        .AddItem va_amu1_siko
        .AddItem va_amu1_ht
        .AddItem va_amu1_blhp
        .AddItem va_amu1_open
        .AddItem va_amu1_mh
        .AddItem va_amu1_ths
    End With
End Sub

Fals die Vorgabe so stimmt, teste mal diesen Code:

Sub Alternative()
    Dim arObj(3) As Object
    Dim iCnt As Integer
    Set arObj(0) = cx_amu1_option_1
    Set arObj(1) = cx_amu1_option_2
    Set arObj(2) = cx_amu1_option_3
    Set arObj(3) = cx_amu1_option_4
    
    For iCnt = 0 To UBound(arObj)
        With arObj(iCnt)
            .AddItem ""
            .AddItem va_amu1_rel
            .AddItem va_amu1_siko
            .AddItem va_amu1_ht
            .AddItem va_amu1_blhp
            .AddItem va_amu1_open
            .AddItem va_amu1_mh
            .AddItem va_amu1_ths
        End With
    Next
End Sub

VG, BigBen