Automatisk rækkehøjde i excel

Du kan ikke angive en fast rækkehøjde og samtidigt sætte den til autojustering.

Hvis du først har sat rækkehøjden til en bestemt værdi, så kan du efterfølgende autojustere rækkerne, ved at markere dem og dobbeltklikke imellem 2 rækker.

Det hjælper ikke når cellerne er flettet...?

Kan godt når det blot er en enkelt celle, men ikke når jeg fletter dem?

Hej prhan.

Fandt nu en VBA formel som kunne hjælpe...

Tak for hjælpen... Du får point for forsøget!

Formelen hed:

Private Sub Worksheet_selectionChange(ByVal Target As Excel.Range)
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
    Dim CurrCell As Range
    Dim ActiveCellWidth As Single, PossNewRowHeight As Single
    If ActiveCell.MergeCells Then
      With ActiveCell.MergeArea
            If .Rows.Count = 1 And .WrapText = True Then
                Application.ScreenUpdating = False
                CurrentRowHeight = .RowHeight
                ActiveCellWidth = ActiveCell.ColumnWidth
                For Each CurrCell In Selection
                    MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth
                Next
                .MergeCells = False
                .Cells(1).ColumnWidth = MergedCellRgWidth
                .EntireRow.AutoFit
                PossNewRowHeight = .RowHeight
                .Cells(1).ColumnWidth = ActiveCellWidth
                .MergeCells = True
                .RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _
                CurrentRowHeight, PossNewRowHeight)
            End If
        End With
    End If
End Sub