[Hellraider]

Ich möchte in Excel 2003 folgendes bewerkstelligen.

Es soll im Tabellenblatt "Tabelle1" ein Kombinationsfeld mit mehreren Auswahlmöglichkeiten angelegt werden, nennen wir sie hier mal AAA,BBB,CCC,DDD und EEE. Diese Inhalte werden aus einem anderen Tabellenblatt als "Eingabebereich" übernommen. Das hat soweit schonmal geklappt

Je nach Auswahl sollen dann zwei unterschiedliche Makros ausgeführt werden. Diese sind auch schon wie folgt erstellt worden:

  
Sub Makro2()
    
    Range("B19:D19").Select
    With Selection.Interior
        .ColorIndex = 36
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
    End With
    Selection.Locked = False
    Selection.FormulaHidden = False
    Range("B19").Select
    ActiveCell.FormulaR1C1 = "DU"
    Range("B19").Select
    
End Sub

Dieses Makro 2 soll bei der Auswahl von CCC, DDD oder EEE ausgeführt werden und soll den Zellbereich B1919 "entsperren", mit gelber Farbe hinterlegen und in Zelle B19 den Eintrag "DU" vornehmen. Das Makro klappt auch schon.

Mit dem nächsten Makro3 soll bei der Auswahl AAA oder BBB der Zellbereich wieder "gesperrt" werden und die Hintergrundfarbe als auch enthaltener Text wieder gelöscht werden. Auch das Makro klappt soweit schon.

Sub Makro3()

    Range("B19:D19").Select
    Selection.Interior.ColorIndex = xlNone
    Selection.Locked = True
    Selection.FormulaHidden = False
    Selection.ClearContents
    Range("B19").Select
    
End Sub

Das Problem was ich jetzt habe:

Wie weise ich dem Kombinationsfeld diese beiden Makros zu bzw. mit welcher Funktion kann ich die getätigte Auswahl (entweder den 1:1 Text oder die Position der Auswahl) des Kombinationsfeldes abfragen und dann eines der beiden Makros ausführen?

Irgendwie nach dem Motto: If Worksheets("Tabelle1").ComboBox1.value = 0 OR 1 Then Makro2() Else Makro3()

Irgendwie kann man doch auch bestimmt den Eintrag AAA in der ComboBox voreinstellen, nur wie?

Irgendwie nach dem Motto: ComboBox1.ListIndex = "0" aber wo genau muss das hin?

Siehe auch Screenshot: