Voorwaardlijke opmaak door rijhoogte

[SUVERMO]

Hallo

In bijgevoegde excel worden de randen in kolommen AR & AS gemaakt met een formule in voorwaardelijke opmaak, de formule staat in kolom AU, het resultaat is afhangkelijk van de de fomules LENGTE() in de kolommen AR & AS. Dit geeft niet altijd het gewenste resultaat omdat niet alle letters even breed zijn, zie kolom AT. Is het mogelijk om formules te gebuiken waar de rijhoogte in wordt gebruikt, iets als de rijhoogte anders is dan rijhoogte van rij 2 dan WAAR anders ONWAAR. Testen kan men door wijzigen van A2 t.e.m. A6

 

[SUVERMO]

bedankt voor de reactie
even een paar testen gedaan, maar het klopt nog niet helemaal, de naam van de plaatjes is deze van rijen met foutjes
wat moet er aangepast worden?

 

[sylvester-ponte]

nieuwe poging : (er zat nog voorwaardelijke opmaak in )

 

[VenA]

Iets compacter en waarschijnlijk iets beter leesbaar.

Sub VenA()
  Range("AQ6").FormulaR1C1 = "=R[-1]C+1"
  With Range("Opmaak")
    ar = .Value
    .Borders.LineStyle = xlNone
    .WrapText = False
    For j = 1 To UBound(ar)
      ar(j, 1) = .Cells(j, 1).Height
    Next j
    .WrapText = True
    For j = 1 To UBound(ar)
      If ar(j, 1) <> .Cells(j, 1).Height Then .Cells(j, 1).Resize(, 2).BorderAround 1
    Next j
  End With
End Sub

 

[sylvester-ponte]

VenA :thumb: wel de voorwaardelijke opmaak er uit halen.

 

[VenA]

@sylvester-ponte, Dank je. Het idee wel van jou gejat.:d

Volgens mij vraagt de TS dit:

Sub VenA()
  Range("AQ6").FormulaR1C1 = "=R[-1]C+1"
  x = Rows(2).Height
  With Range("Opmaak")
    .Borders.LineStyle = xlNone
    .WrapText = True
    For j = 1 To .Rows.Count
      If x <> .Cells(j, 1).Height Then .Cells(j, 1).Resize(, 2).BorderAround 1
    Next j
  End With
End Sub

 

[SUVERMO]

bedankt voor de aangeboden oplossingen

de macro via Ctrl+w zal ik gebruiken omdat deze merkelijk sneller is dan de macro Ctrl+x

in bijgevoegde excel zijn er 2000 lijnen, en de uitvoering verloopt snel.