26.03.2021, 22:26
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 [attachment=37970] 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
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 [attachment=37970] 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