Voorwaardelijk Opmaak VBA probleem

[Michel5]

Ik heb het volgende probleem.
Ik wil een lijst maken waar men met knoppen een bepaalde waarde aan moet toekennen.
Met behulp van voorwaardelijke opmaak wordt vervolgens een opmaak (acht verschillende) op de betreffende cel geplaatst.
Dit werkt prima, zie bijgaand voorbeeld.
Het probleem is er indien er een selectie van meerder cellen plaatsvind VBA een foutmelding geeft.
Opzich logisch, maar wie heeft hiervoor een oplossing

 

[ilse DD]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="1"
Selection.FormatConditions(1).Font.ColorIndex = 37
Selection.FormatConditions(1).Interior.ColorIndex = 34
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="2"
Selection.FormatConditions(2).Font.ColorIndex = 46
Selection.FormatConditions(2).Interior.ColorIndex = 46
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="3"
Selection.FormatConditions(3).Font.ColorIndex = 7
Selection.FormatConditions(3).Interior.ColorIndex = 7


End Sub

 

[Michel5]

Perfect

:thumb: Dit is nu precies wat ik hebben wou.