kolombreedte opvragen

[SUVERMO]

hallo,
hier ben ik weer met een paar vraagjes

hoe kan men in A1 de kolombreedte tot 2 cijfers na de komma bekomen?
kan een macro de breedte van kolom E instellen op het resultaat van A1

 

[edmoor]

Kijk eens naar dit:

Dim BreedteA As Double
    
BreedteA = Columns("A").ColumnWidth
MsgBox BreedteA
Columns("E").ColumnWidth = BreedteA

Of:

Columns("E").ColumnWidth = Columns("A").ColumnWidth

Of:

Columns("E").ColumnWidth = Range("A1").Value

 

[SUVERMO]

het werkt prima,
maar sorry dat ik de vraag niet juist heb gesteld.
voor toepassing moet de breedte van kolom AN instellen op het resultaat van som(breedtes van kolommen AR+AS+AT+AU+AV)*1.06425

onderstaande werkt, maar kan dit korter?

Sub Macro1()
'
' Macro1 Macro
'

'

Columns("AN").ColumnWidth = (Columns("AR").ColumnWidth + Columns("AS").ColumnWidth + Columns("AT").ColumnWidth + Columns("AU").ColumnWidth + Columns("AV").ColumnWidth) * 1.06425


 End Sub

 

[edmoor]

Zoiets?

For i = 44 To 48
    w = w + Columns(i).ColumnWidth
Next i
Columns("AN").ColumnWidth = w * 1.06425

 

[SUVERMO]

dat heeft u weer prima opgelost, bedankt hiervoor

 

[VenA]

Sub VenA()
  x = Range("AR:AV").Width * 0.1788
End Sub