Hallo Jörg
Habe es schon gefunden. Nachdem ich überlegt hatte, dass es übersetzt ja \"Benachrichtigungsfenster\" heissen könnte.
Nun passt es, und ich kann meinem Chef die Fertigmeldung geben:  

Private Sub CommandButton1_Click()

Static int_Befehl As Integer
int_Befehl = int_Befehl + 1
Select Case int_Befehl
Case 1
Range(\"J17:J24\").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 3

Case 2
Range(\"F17:F24\").Select
With Selection.Interior
.ColorIndex = 8
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 5

Case 3
Range(\"E17:E23\").Select
With Selection.Interior
.ColorIndex = 4
.Pattern = xlSolid
End With
Selection.Font.ColorIndex = 2

Case 4
Range(\"E17:J24\").Select
With Selection.Interior
.ColorIndex = xlNone
End With
Selection.Font.ColorIndex = 0


int_Befehl = 0

End Select


End Sub