###-probleem in Excel

[Withaar]

Als een waarde te groot (te veel karakters) is laat excel ###-jes zien, kan ik in VBA hier een controle op doen?

Ik zou graag willen weten of er een ###-probleem op de sheet is zodat ik bijvoorbeeld de kolombreedte zou kunnen aanpassen of het lettertype (puntgrote) verkleinen middels VBA om zo toch alles te kunnen laten zien.

Iemand een idee?

Edit:

Ik ben zelf al wat verder gekomen,

heb nu dit

Columns("D").Select
Selection.Columns.AutoFit
br = Columns("D").ColumnWidth
Columns("B:C").ColumnWidth = br
Columns("E:AW").ColumnWidth = br

Ik kijk dus naar kolom D en pas alle andere kolommen aan. Probleem is dat niet altijd in D de cel staat met de grootste waarde (met het grootste aantal karakters).

Vraag verplaats zich dus naar, hoe vindt ik de cel met de meeste karakters, die kolom moet dan gebruikt worden voor de AutoFit, en alle andere moeten dan mee aangepast worden aan die breedte.

 

[LucHeyndrickx]

Hoi Withaar,

Dim dbl As Double
Dim i As Integer

Cells.Columns.AutoFit

For i = 1 To 256
If Columns(i).ColumnWidth > dbl Then dbl = Columns(i).ColumnWidth
Next


Columns("A:IV").ColumnWidth = dbl


Luc

 

[Withaar]

Bedankt,

Ik zat te moeilijk te denken, dit werkt perfect.:thumb: