Has Text Enough Space in a cell
I find it simpler to use Autofit.
"Marcel" wrote in message
...
Hello,
I would like to test if myValue has enough space (place) to be written in
a cell.
I know the width of my cell with
Set selected_cell = Target.Cells(1, 1)
Debug.Print selected_cell .Width
What is the width of the value?
Dim myValue as string
myValue = "a value from database"
selected_cell.value = myValue
Reason: I would like that the whole value has place in the cell, otherwise
I would shorten the value.
I need A function like width(cell, myValue) this depends on the font in
the cell
Any Hints
Thanks
Marcel
|