Rijhoogte vanaf rij 4 in cellen plaatsen plaatsen

[Jap3600]

Beste

Ik ben bezig met een bestand waarvoor ik in kolom AJ vanaf regel 4 de rijhoogte wil plaatsen.

Ik kan dit middels vba code met onderstaande code doen.

sub Rijhoogte()
Range("AJ4").Value = ActiveCell.RowHeight
' tot en met 
Range("AJ550").Value = ActiveCell.RowHeight
end sub

Alleen bestaat het bestand uit vele regels (Circa 550) waardoor ik met bovenstaande code ook zo'n 546 vba codes dien aan te maken waar ik geen zin in heb.

Kan ik hiervoor een code maken die automatisch doorloopt?
Heb al van alles geprobeerd maar krijg onderstaande maar niet werkend..

Sub Rijhoogte_Kolom_AJ_vanaf_regel_4()

Dim r, AJ As Long
    AJ = 1
    For r = 4 To ActiveCell.SpecialCells(xlLastCell).Row
    Cells(r, AJ).Value = ActiveCell.RowHeight
      Next r
End Sub

Is hier nog een verschil van type in mm, pxls of per inch??

 

[edmoor]

Doe het eens zo:

Range("AJ4:AJ550").Value = Rows(4).RowHeight

Of verschilt het per regel?
Dan zo:

Sub Rijhoogte_Kolom_AJ_vanaf_regel_4()
    For r = 4 To Range("AJ1").SpecialCells(xlLastCell).Row
        Cells(r, "AJ").Value = Cells(r, "AJ").RowHeight
    Next r
End Sub

 

[lam201]

[knip]

Sub Rijhoogte_Kolom_AJ_vanaf_regel_4()
Application.ScreenUpdating = False

Dim r As Long, AJ As Long
AJ = 36

For r = 4 To ActiveCell.SpecialCells(xlLastCell).Row
    Cells(r, AJ).Value = Cells(r, AJ).RowHeight
Next r

Application.ScreenUpdating = True
End Sub

zo werkt ie wel.
Cells(r, AJ).Value = ActiveCell.RowHeight
geeft je 500x dezelfde waarde.

Als je je code begint met Application.ScreenUpdating = False en eindigt met Application.ScreenUpdating = True, dan wordt ie ook nog een stuk sneller

 

[Jap3600]

Dank je wel en
Ze werken beide prima. Ik ben verder gegaan met de code van lam201 daar deze nagenoeg hetzelfde is als mijn code maar ik nu zie dat ik gewoon een domme fout gemaakt had in de code

AJ = 36

...

Inmiddels heb ik de code werkend waarvoor mijn dank. :thumb: