Breedte kolom automatisch aanpassen wanneer waarde in een cel veranderd

[DragonDrummer]

Hallo allen,

Zoals de titel al zegt ben ik opzoek naar een manier om de breedte van een kolom (of eigenlijk kolommen) automatisch aan te passen wanneer de waarde van een cel in die kolom verandert. Dit wil ik graag doen met een minimum van breedte 10. Nu heb ik de volgende VBA code gevonden:

Private Sub Worksheet_Change(ByVal Target As Range)
Range("A:S").EntireColumn.AutoFit
For Each Kolom In Range("A:S").Columns
If Kolom.ColumnWidth < 10 Then Kolom.ColumnWidth = 10
Next
End Sub

Dit werkt opzich prima, het probleem is alleen dat deze code alleen activeert als ik zelf iets verander, maar alle waardes in de kolommen veranderen door formules.

Nu heb ik iets gelezen over Worksheet.Calculate, maar ik krijg dit niet werkend en, zoals ik de code begrijp, moet een specifieke cel dan een specifieke waarde hebben om de macro te activeren en ik wil graag dat de macro activeert wanneer de waarde verandert van een cel in een kolom, ongeacht de waarde in die cel.

Please help!

 

[edmoor]

Probeer het eens of dit doet wat je wil:

Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR="#FF0000"]    Application.Volatile
[/COLOR]    Range("A:S").EntireColumn.AutoFit
    For Each Kolom In Range("A:S").Columns
        If Kolom.ColumnWidth < 10 Then Kolom.ColumnWidth = 10
    Next
End Sub

 

[DragonDrummer]

Yes! dat doet precies wat ik wil. Thnx!

 

[DragonDrummer]

Ok, toch niet helemaal. Dit werkt bij mij alleen als de formule verwijst naar cellen in het tabblad zelf, maar als de formule verwijst naar een ander tabblad, bijvoorbeeld van blad1 naar blad2 (dus als de cel in blad1 zijn informatie haalt uit blad 2) dan werkt de code weer niet

 

[SjonR]

Een voorbeeldbestandje plaatsen dan maar?