Inhaltsverzeichnis
Frage:
Zusammengeführte Zellen haben nach einem Zeilenumbruch nicht die richtige Höhe. Wie kann ich das korrigieren?
Antworten:
Fügen Sie den folgenden Code in das Standardmodul ein.
Sub AutoFitMergedCellRowHeight() 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 False CurrentRowHeight = .RowHeight ActiveCellWidth = ActiveCell.ColumnWidth für jede CurrCell in der Auswahl MergedCellRgWidth = CurrCell.ColumnWidth + MergedCellRgWidth Next. ColumnWidth = ActiveCellWidth .MergeCells = True .RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _ CurrentRowHeight, PossNewRowHeight) End If End With End If Application.ScreenUpdating = True End Sub
