Per Klick Farbe mehrerer Zellen ändern

[StefanB]

Hallo Leute,

ich möchte gern bein Klicken eines Buttons die Farbe einzelner ABER auch mehrer Zellen ändern. Habe im www ein Code gefunden, der das schon ganz gut macht. Aber der ändert leider nur eine einzelne Zelle. In diesem Beispiel     sind mehrere Zellen markiert, die farblich verändert werden sollen. Obwohl CX7:DB7 markiert sind, wird nur CX7 beim button "färben" verändert. Was muss ich wo ändern??
Besten Dank im Voraus

Code:

Sub Farbwechsel()
Select Case ActiveCell.Interior.ColorIndex
Case xlNone
ActiveCell.Interior.ColorIndex = 46
Case 46
ActiveCell.Interior.ColorIndex = 43
Case 43
ActiveCell.Interior.ColorIndex = 44
Case 44
ActiveCell.Interior.ColorIndex = xlNone
End Select
End Sub

[Kuwer]

Hallo,

Code:

Sub Farbwechsel()
  Select Case ActiveCell.Interior.ColorIndex
    Case xlNone
      Selection.Interior.ColorIndex = 46
    Case 46
      Selection.Interior.ColorIndex = 43
    Case 43
      Selection.Interior.ColorIndex = 44
    Case 44
      Selection.Interior.ColorIndex = xlNone
  End Select
End Sub

Gruß Uwe