Voorwaardelijke opmaak variabel maken

[BasHD]

Hallo,

Even een vraagje over onderstaand stukje macro.
Alles gaat behalve :="=""Cells(30, i)"""
Als ik kijk via Opmaak en dan Voorwaardelijke opmaak dan zie ik bij voorwaarde 1

celwaarde is gelijk aan ="Cells(30, i)"

in plaats van ="Cells(30, i)" daar zou ik =$D$30 willen zien



Sub KleurMinMaxOVOrg()
'
Dim Aantal

Sheets("Blad1").Select
Range("I9").Select

Aantal = ActiveCell.Cells


Sheets("O-V Org").Select

i = 3
k = Aantal + 4

For teller = 1 tot 32

i = i + 1
k = k + 1

Range(Cells(6, i), Cells(k, i)).Select
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""Cells(30, i)"""
Selection.FormatConditions(1).Font.ColorIndex = xlAutomatic
Selection.FormatConditions(1).Interior.ColorIndex = 6
Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
Formula1:="=""cells(31, i)"""
Selection.FormatConditions(2).Font.ColorIndex = xlAutomatic
Selection.FormatConditions(2).Interior.ColorIndex = 6

Next teller

 

[snb]

Vermijd Select en Activate in VBA-code
En er nu nog even VBA van maken:

Sub KleurMinMaxOVOrg()
With Sheets("O-V Org").cells(6,4).resize(32,32).FormatConditions
  with .Add (xlCellValue, xlEqual, [COLOR="red"]"= adres(rij(),30))"[/COLOR]
    .Font.ColorIndex = xlAutomatic
    .Interior.ColorIndex = 6
  end with
  With .Add (xlCellValue, xlEqual,[COLOR="Red"]"=adres(rij();31))"[/COLOR]
     .Font.ColorIndex = xlAutomatic
     .Interior.ColorIndex = 6
  End with
End With
End Sub

 

[BasHD]

with .Add (xlCellValue, xlEqual, "=" & adres(rij();30))

Compileerfout : Verwachtlijstafscheidingsteken of )

blauw insert blokje op de ; [puntkomma] voor de 30!

Ik ga zelf nu zoeken wat het kan zijn.

Mogelijk ben je met jou ervaring sneller

gr

Bas

 

[snb]

vorige suggestie aangepast.

 

[BasHD]

Hallo snb,

De 2e with is met een kleine letter nu en dat moet een hoofdletter zijn.

Verder gebruik je de eerste keer = adres en de 2e keer =adres

de eerste keer rij(), 30 en 2e keer rij(); 31

Wat zou de juiste notatie moeten zijn?

gr

Bas