ich habe im Archiv von Herber folgendes Makro zum automatischen Anpassen der Zeilenhoehe bei verbundenen Zellen und aktiviertem Zeilenumbruch gefunden:
Sub AutoFitMergedCellRowHeight()
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range
Dim ActiveCellWidth As Single, PossNewRowHeight As Single
Dim iX As Integer
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
iX = iX + 1
Next
MergedCellRgWidth = MergedCellRgWidth + (iX - 1) * 0.71
.MergeCells = False
.Cells(1).ColumnWidth = MergedCellRgWidth
.EntireRow.AutoFit
PossNewRowHeight = .RowHeight
.Cells(1).ColumnWidth = ActiveCellWidth
.MergeCells = True
.RowHeight = PossNewRowHeight
'.RowHeight = IIf(CurrentRowHeight > PossNewRowHeight, _
'CurrentRowHeight, PossNewRowHeight)
''PossNewRowHeight, PossNewRowHeight) auch zum Verkleinern
End If
End With
End If
End Sub
Das Makro wird ueber eine Schaltflaeche aufgerufen. Ich habe festgestellt, dass die Zeilenhoehe nur geaendert wird, wenn ich eine Zelle vorher angeklickt habe. Ich wuerde aber gerne die Zeilenhoehenanpassung automatisch ueber einen definierten Zellenbereich laufen lassen.
Leider reichen meine VBA Kenntnisse noch nicht, um das Makro dahingehend anzupassen. Vielleicht gibt es ja eine einfache Loesung dafuer?
Besten Dank & Gruss, gemba