AW: Verbundene Zellen mit Zeilenumbruch
30.08.2006 20:18:24
CoachYou
Hallo Gesa S.,
folgendes VBA-Progi (im VBA-Modul der entsprechenden Tabelle speichern) ist ein eine Krücke von Workaround:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim stEvents As Boolean, FaktorHoehe As Double, IstBreite As Double, r As Range, IstHoehe As Double
On Error Resume Next
If Target.MergeCells And Target.WrapText Then
stEvents = Application.EnableEvents
Application.EnableEvents = False
IstBreite = 0
For Each r In Target
If (r.Row = Target.Cells(1, 1).Row) Then IstBreite = IstBreite + r.ColumnWidth
Next
[iv1] = Target.Value
[iv1].Columns.AutoFit
FaktorHoehe = [iv1].ColumnWidth / IstBreite
IstHoehe = Target.Cells(1, 1).RowHeight
Target.Cells(1, 1).Rows.AutoFit
Target.Cells(1, 1).RowHeight = WorksheetFunction.Max(Target.Cells(1, 1).RowHeight * WorksheetFunction.RoundUp(FaktorHoehe, 0), IstHoehe)
[iv1].ClearContents
Application.EnableEvents = stEvents
End If
End Sub
Es vergrössert die Zeilenhöhe nur, reduziert diese aber nicht, weil ja eventuell andere Zellen eventuell eine größere Höhere benötigen würden. Und stellt die Zeilenhöhe zu gross ein, wenn die optimale Zeilenhöhe wg. anderer Zellen wiederum nicht einzeilig ist. Das wollte ich jetzt aber nicht noch abfangen. Dient nur der Orientierung.
Gruß Coach