Rijhoogte auto aanpassen lukt niet

[molfi]

Hallo

Als ik gegevens overneem uit een ander tabblad dan wordt de rijhoogte niet automatisch aangepast, ook al heb ik de hele kolom op automatisch aanpassen ingesteld.
Op het tabblad "rapportering" bv een 7 invullen in de kolom nr, dan wordt de hoogte niet aangepast.

Bekijk bijlage testrapport.xlsx

 

[VenA]

Zet er een klein macrotje onder.

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("C8:C23")) Is Nothing And Target.Count = 1 Then Rows(Target.Row).AutoFit
End Sub

Nb. De formule heb ik ook aangepast.

 

[molfi]

Super! De formule is inderdaad korter en eenvoudiger.
Bedankt!

 

[VenA]

Volgens mij is de formule langer.:shocked:

 

[molfi]

Idd, beide bestanden stonden open en heb de formules gewisseld. Wat is de reden? De andere formule werkte ook.

 

[VenA]

Lijkt mij duidelijk te zien.