Zeilenumbruch in verbundenen Zellen

[Dombrowsky]

Ich haben verschieden lange Zeichenfolgen in verbundenen
Zellen, finde jedoch weder im Tabellenblatt noch mit VBA
eine zuverlässige Methode zur automatischen Anpassung der
Zeilenhöhe in Abhängigkeit von der Textlänge. Kann mir
jemand helfen?

[Wolf]

[Thomas Ramel]

Grüezi Wolf

Wolf schrieb:

Wenn Zellen verbunden sind und der automatische Zeilenumbruch aktiviert
funktioniert das automatische Anpassen der Zellenhöhe nicht mehr.
Verwende das folgende Makro als Workaround:

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.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

--
Mit freundlichen Grüssen

Thomas Ramel
- MVP für Microsoft-Excel -