Kleuren van cellen in een selected range

[Dolfke]

Hallo allemaal ,


Ik zou graag een macro willen maken met als ik op een knop duw dat mijn cellen van een geselecterde range een bepaalde kleur krijgen afhankelijk van wat in de cell staat .

Hoe begin ik hier aan ?

Ik zou elke cell in mijn geselecteerde range moeten doorlopen en dan kijken wat erin staat .

Bedankt

groetjes
Dolfke

 

[dnties]

Interessantere vraag is misschien of je wel een macro nodig hebt?
Het kleuren van celbereik o.b.v. de inhoud kan namelijk ook met Voorwaardelijke opmaak. Het uitvoeren van macro's is dan niet nodig.

Kijk even hier en/of zoek op Google naar: "voorwaardelijke opmaak" excel
Je kunt voor VBA-code bijv. hier kijken.

Tijs.

 

[Dolfke]

Hallo Tijs ,

Bij onderstaande code loopt het nog vast .
Als ik in de regel van Target.Adress kom
Hier krijg ik melding Object Required.en geraak ik niet verder.

Private Sub CommandButton1_Click()
Dim Cell As Range
Dim Rng1 As Range
   On Error Resume Next
    Set Rng1 = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 1)
    On Error GoTo 0
    If Rng1 Is Nothing Then
        Set Rng1 = Range(Target.Address)
    Else
        Set Rng1 = Union(Range(Target.Address), Rng1)
    End If
.....
End Sub

Bedankt

 

[Dolfke]

Ik heb code vervangen door het volgende

For Each Cell In Selection.Cells

En alles lijkt te werken .

Dus , problem solved

Bedankt