Hallo,
am einfachsten wäre es natürlich, wenn du alle Makros einfach zusammenfügst:
Sub colour()
Dim rngZelle As Range
With ActiveSheet
.Range("A1:B1").Interior.Color = RGB(130, 55, 119)
For Each rngZelle In .UsedRange
If rngZelle.Interior.Color = RGB(51, 51, 51) Then rngZelle.Interior.Color = RGB(130, 55, 119)
If rngZelle.Interior.Color = RGB(128, 128, 128) Then rngZelle.Interior.Color = RGB(207, 143, 198)
If rngZelle.Interior.Color = RGB(192, 192, 192) Then rngZelle.Interior.Color = RGB(247, 236, 244)
Next rngZelle
End With
End Sub
Gruß
M.O.