Mit diesem VBA Code möchte ich euch einmal zeigen wie man einer Zelle, in dem man diese anklickt, eine vordefinierte Farbe zuweisen kann. Wir benötigen dafür ein Markro wie dieses:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim Bereich As Range
    Dim cell As Range
    Set Bereich = Range("A1:E5")
    If Not Intersect(Target, Range("A1:E5")) Is Nothing Then
        For Each cell In Bereich
            Target.Interior.ColorIndex = 3
        Next
    End If
End Sub

Sollten wir in dem selben Arbeitsblatt die Zellfarbe auch wieder entfernen wollen, so würde ich hier mit einem Doppelklick auf die eingefärbte Zelle arbeiten. dafür nutzen wir diesen Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim Bereich As Range
    Dim cell As Range
    Set Bereich = Range("A1:E5")
    If Not Intersect(Target, Range("A1:E5")) Is Nothing Then
        For Each cell In Bereich
            Target.Interior.ColorIndex = xlNone
            Cancel = True
        Next
    End If
End Sub

Wir könnten aber auch eine Zellfarbe mit der rechten Maustaste auswählen, damit wir diese ausgewählte Farbe zur Markierung nutzen. Für unserer Beispiel legen wir uns ein paar Farben in die Zellen H1 bis K1.

Zum Kopieren und setzen der Farben nutzen wir diese Makros:

Option Explicit

    Dim Bereich As Range
    Dim Bereich2 As Range
    Dim cell As Range
    Dim Farbe As Integer

Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Set Bereich2 = Range("H1:K1")
    If Not Intersect(Target, Range("H1:K1")) Is Nothing Then
        Farbe = Target.Interior.ColorIndex
    End If
Cancel = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Set Bereich = Range("A1:E5")
    Set Bereich = Intersect(Target, Range("A1:E5"))
    If Not Bereich Is Nothing Then
    For Each cell In Bereich
            cell.Interior.ColorIndex = Farbe
    Next
    End If
End Sub