Makro Zeilenhoehe automatisch formatieren
09.05.2006 17:35:14
gemba
da mein alter Beitrag bzgl. dieses Makros archiviert ist, schreibe ich einen neuen. Das Makro habe ich den Beispielen von herber.de (Nr.137101) entnommen. Es passt die Zeilenhoehe bei verbunden Zellen und Textumbruch an. Habe festgestellt, dass das nur funktioniert, wenn ich eine einzelne Zelle zuvor angeklickt habe und dann das Makro starte. Wenn ich mehrere Zellen markiere, funktioniert das Makro nicht. Dabei ist es doch als Schleife programmiert und muesste die markierten Zellen nacheinander durchlaufen. Findet jemand den Grund dafuer? Was muss ich im Makro aendern, damit es auch bei einem markierten Zellbereich funktioniert?
DAnke fuer die Hilfe! gemba
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
End If
End With
End If
End Sub