Hallo
Ich habe das mal getestet, und nur die Farbzahlen geändert. Funktioniert soweit, nur dass nach jedem Klick ein Meldungsfenster erscheint, in dem steht: wahr. Und erst nach Klick auf OK erscheint die gewünschte Änderung in den Zeilen. Gibt es dafür eine Erklärung?
Heiko
Hier der Befehlstext:

Private Sub CommandButton1_Click()

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

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

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

int_Befehl = 0
End Select

End Sub