---

Hallo zusammen,

ich benötige in einer Vorlage eine minimale Zeilenhöhe von z.B. 20.
Zusätzlich sollte Zeilenhöhe automatisch anpassen eingestellt sein wenn mehrzeiliger Text eingefügt wir.

Wird dieser Text dann gelöscht wir die Zeile auf Höhe "X" zurückgesetzt und passt sich der Schriftgröße an.
Dann entspricht die Zeilenhöhe nicht mehr dem vor eingestellten Wert

Im Moment behelfe ich mir mit einen Pseudotext den ich in den Zeilen außerhalb des Arbeitsbereich erstellen und verdecke.

Gibt es dazu eine elegantere Lösung?

Danke für eure Vorschläge und ein schönes Wochenende.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Uwe,

geht auch per VBA (Hab ich als Makro aufgezeichnet):

Sub Makro2()
'
' Makro2 Makro
'

'
    Cells.Select
    Selection.RowHeight = 20
    Selection.RowDifferences(ActiveCell).Select
    With Selection
        .HorizontalAlignment = xlGeneral
        .VerticalAlignment = xlBottom
        .WrapText = True
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
    Selection.Rows.AutoFit
End Sub

------------------
mfg Roman

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Roman,

danke für deine Mühe.
Das Makro müsste ich jedesmal anstoßen.
Da bin ich ja schon einen Schritt weiter.   

Vielen Dank.

------------------
Gruß Uwe

Auch Catia ist nur ein Mensch!    

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP