Hallo Heiko,

> Nun passt es, und ich kann meinem Chef die Fertigmeldung geben:  

also Auftragsprogrammierung.  

Nur das Selectieren ist unelegant. Es geht auch so, wobei man den Range auch noch zusammenfassen könnte:

Private Sub CommandButton1_Click()
Static int_Befehl As Integer
int_Befehl = int_Befehl + 1
Select Case int_Befehl
    Case 1
    Range(\"J17:J24\").Interior.ColorIndex = 6
    Range(\"J17:J24\").Interior.Pattern = xlSolid
    Range(\"J17:J24\").Font.ColorIndex = 3
    
    Case 2
    Range(\"F17:F24\").Interior.ColorIndex = 8
    Range(\"F17:F24\").Interior.Pattern = xlSolid
    Range(\"F17:F24\").Font.ColorIndex = 5
    
    Case 3
    Range(\"E17:E23\").Interior.ColorIndex = 4
    Range(\"E17:E23\").Interior.Pattern = xlSolid
    Range(\"E17:E23\").Font.ColorIndex = 2
    
    Case 4
    Range(\"E17:J24\").Interior.ColorIndex = xlNone
    Range(\"E17:J24\").Font.ColorIndex = 0
    int_Befehl = 0
End Select
End Sub