Zeilenhöhe passt sich falsch automatisch an

Hallo Christa,

Excel ist kein Textverarbeitungsprogramm. Daher werden Worte nicht korrekt getrennt, wenn die Spaltenbreite nicht ausreicht.

Du musst also zuerst mal die Spaltenbreite korrekt einstellen. Ich würde das mit VBA machen. Zuerst nach dem längsten Teilstring suchen, Spaltenbreite korrekt einstellen und dann Zeilenhöhe optimieren.

Das folgende Beispiel ist für den Bereich A1:A10:

Sub Zeilenhöhe()

Dim rngC As Range

Dim varData As Variant, varTmp() As Variant, varLen() As Variant

Dim i As Long, j As Long, k As Long

For Each rngC In Range("A1:A10")

    If Len(rngC) > 0 Then

        varData = Split(rngC, Chr(10))

        For i = LBound(varData) To UBound(varData)

            j = 0

            ReDim Preserve varTmp(UBound(varData))

            varTmp(j) = Len(varData(i))

            j = j + 1

        Next

        ReDim Preserve varLen(k)

        varLen(k) = Application.Max(varTmp)

        k = k + 1

    End If

Next

Columns("A").ColumnWidth = Application.Max(varLen) + 1

Range("A1:A10").EntireRow.AutoFit

End Sub

Claus

Office zu reparieren

Hallo,

ich hab in Excel (Windows 10) Zellen mit einem oder mehreren Zeilenumbrüchen (Alt + Enter)

Jetzt hätt ich gern, dass sich die Zeilenhöhe automatisch anpasst und hab das auch mit Start > Zellen > Format > Zeilenhöhe automatisch anpassen so ausgewählt. Das Programm passt mir die Zeilenhöhe dann aber auf 1 Zeile an und "verschluckt" die anderen Zeilen.

Ich hab auch ausgewählt, dass der Text zentriert  in der Zelle ausgerichtet werden soll, nach dem automatischen Anpassen der Zeilenhöhe wird die oberste Zeile angezeigt und nicht zentriert.

Hat jemand einen Tipp für mich?

Hallo Christa,

versuche bitte dein Excel zu reparieren und teste das Verhalten.

Sollte es nichts bewirken, lass es uns bitte wissen.

MfG