Text an Zelle anpassen
25.01.2005 21:15:32
Thomy
Ich habe die Zellen B16:M16 verbunden und in der nächsten Zeile die Zellen B17:M17 usw. bis zu B100:M100.
Die Zellen enthalten ziemlich viel Text. Ich möchte, dass sich die Zelle dem Text anpasst, so dass man alles lesen kann.
Ich habe in diesem Forum schon Code gefunden, es funktioniert aber alles nicht.
z.B.
Sub zellhoehe()
Rows("15:100").AutoFit
End Sub
oder
Sub AutoFitMergedCellRowHeight()
Dim CurrentRowHeight As Single, MergedCellRgWidth As Single
Dim CurrCell As Range
Dim ActivCellWidth 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 = 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).collumnWidth = ActiveCellWidth
.MergeCells = True
.RowHeight = IIf(CurrentRowHeight > PossRowHeight, CurrentRowHeight, PossRowHeight)
End If
End With
End If
End Sub
Für Hilfe im Voraus besten Dank.
Thomy