kolombreedte

[SUVERMO]

Beste,


is het mogelijk om een ​​formule te koppelen aan de waarde van een cel?


Bijgevoegd een deel van een werkblad.
Als mannen in kolom BJ, de rijen 1,2,3,4 en 5 wijzigd in NEE, dan verandering de waarde in cel BJ7.
Bedoeling is dat de kolombreedte BI wordt automatisch aangepast aan de celinhoud van BI7.

 

[footoo]

A formula cannot change the width of a column.

 

[WinteE]

Alleen mogelijk met behulp van VBA

 

[SUVERMO]

Kan ij iets voorstellen voor als de cel BJ7 veranderd.

groetjes

Vermonden Frans

 

[WinteE]

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Sheets("Sheet1").Range("B3")) Is Nothing Then
        Selection.ColumnWidth = Range("B3").Value
    End If

End Sub

Deze code wijzigt de kolombreedte van kolom B naar de waarde die wordt ingevoerd in cel B3.