Total bredde på flere kolonner

Med VBA?

B = Columns("A").ColumnWidth + Columns("B").ColumnWidth + Columns("C").ColumnWidth

Med formel?
=CELL("width";A1)+CELL("width";B1)+CELL("width";C1)

Den regner dog ikke med decimaler, og opdatere ikke sig selv efter du har ændret celle bredden uden du lige trykker F9 eller på cellen trykker F2 & Enter

Hej igen
Super,det fungerer med kolonner(bruger formlen)
Kan ikke finde en info tekst for række højder.....håber du kan hjælpe mig videre.
Tak for det hurtige svar
Lars

Svar :-)

Jeg kan heller ikke lige finde række højde

Ok jeg tjekker manuelt
Lars

Her er lidt og lege med - husk at ændre tallene i FOR sætningen


Sub SumRowHeight()
    Dim lRow As Long
    Dim dSum as Double

    For lRow = 1 To 10
        dSum = dSum + ActiveSheet.Rows(lrow).EntireRow.Height
    Next lRow

    MsgBox "Summen af rækkehøjderne er " & cstr(dsum)
End Sub


Sub SumColumnWidth()
    Dim lCol As Long
    Dim dSum As Double

    For lCol = 1 To 10
        dSum = dSum + ActiveSheet.Columns(lCol).Width
    Next lCol

    MsgBox "Summen af kolonnebredderne er " & CStr(dSum)
End Sub

Disse to funktioner burde gøre det samme og de vil også virke som regnearksfunktioner

Public Function GetHeight(rCell As Range) As Double
    Application.Volatile
    GetHeight = rCell.Height
End Function

Public Function GetWidth(rCell As Range) As Double
    Application.Volatile
    GetWidth = rCell.Width
End Function


Sub example()
Dim rng As Range
Set rng = Range("A2:h11")
MsgBox "Samlet højde af området :  " & GetHeight(rng)
MsgBox "Samlet bredde af området :  " & GetWidth(rng)
End Sub

Super men jeg er på glat is i VB
Jeg skal åbne VB indsætte module,indsætte
'flemmingdahl'
Sub SumRowHeight()
    Dim lRow As Long
    Dim dSum as Double

    For lRow = 1 To 10
        dSum = dSum + ActiveSheet.Rows(lrow).EntireRow.Height
    Next lRow

    MsgBox "Summen af rækkehøjderne er " & cstr(dsum)
End Sub
Eller indsætte
'bak'
Public Function GetHeight(rCell As Range) As Double
    Application.Volatile
    GetHeight = rCell.Height
End Function

Public Function GetWidth(rCell As Range) As Double
    Application.Volatile
    GetWidth = rCell.Width
End Function


Sub example()
Dim rng As Range
Set rng = Range("A2:h11")
MsgBox "Samlet højde af området :  " & GetHeight(rng)
MsgBox "Samlet bredde af området :  " & GetWidth(rng)
End Sub
vende tilbage til regneark
køre markroerne
er det rigtig fremgangs måde ,det ser ud til at virke.
mvh. og tak
Lars

Åben Excel og et nyt ark
Tryk Alt+F11
Vælg Insert -> Module
Kopier følgende ind

Public Function GetHeight(rCell As Range) As Double
    Application.Volatile
    GetHeight = rCell.Height
End Function

Public Function GetWidth(rCell As Range) As Double
    Application.Volatile
    GetWidth = rCell.Width
End Function

Luk VBA editoren igen

I en celle skriver du f.eks. =GetHeight(A1:A5)
I en anden celle skriver du f.eks. =GetWidth(A1:E1)