Zeilenhöhe bestimmen

[Nukleus]

Guten Abend Forum,

ich möchte einen Bereich mit einer bestimmten Zeilenhöhe bestimmen.

---

Set rBereich2 = Rows("6:60") 'Zeilenhöhe anpassen

    With rBereich2
            .RowHeight = 30
    End With

Wenn in Spalte D mehr Text steht als die Spalte breit ist, möcht ich das die Zeilenhöhe auf  "Rows.AutoFit" gestellt wird,
weis nur nicht wie! Entweder wird der ganze Bereich auf Zeilenhöhe 30, oder auf automatisch gesetzt!

Danke schon mal vor ab!

[Gast 123]

Hallo Klaus

probier es mal so:  geht auch ohne Set Anweisung.  Bei Zelle als Wrap Text veraendert sich die Höhe automatisch!

   Rows("6:60").RowHeight = 30
   Range("D6:D60").WrapText = True

msg  Gast 123

[Nukleus]

Hallo Klaus

probier es mal so:  geht auch ohne Set Anweisung.  Bei Zelle als Wrap Text veraendert sich die Höhe automatisch!

   Rows("6:60").RowHeight = 30
   Range("D6:D60").WrapText = True

msg  Gast 123

Hallo Gast,

Range("D6:D60").WrapText = True

funktioiert leider nich!

[atilla]

Hallo Klaus,

alles andere wird friemels Arbeit und sehr aufwendig.

Man müsste Zelle für Zelle (Schleife) den Inhalt auslesen und aufgrund der Anzahl der Zeichen die Breite feststellen. Das ist aber in Excel kaum exakt möglich, sondern nur annähern. Was dann dazu führt, dass Du Dich nie darauf verlassen kannst.
Bei Jeder Änderung im Text müsste der Code dann erneut ablaufen. Ob es nur mit diesem Ablauf lösbar ist oder noch andere Dinge berücksichtigt werden müssen kann ich nicht sagen.

[Nukleus]

Hallo Klaus,

alles andere wird friemels Arbeit und sehr aufwendig.

Man müsste Zelle für Zelle (Schleife) den Inhalt auslesen und aufgrund der Anzahl der Zeichen die Breite feststellen. Das ist aber in Excel kaum exakt möglich, sondern nur annähern. Was dann dazu führt, dass Du Dich nie darauf verlassen kannst.
Bei Jeder Änderung im Text müsste der Code dann erneut ablaufen. Ob es nur mit diesem Ablauf lösbar ist oder noch andere Dinge berücksichtigt werden müssen kann ich nicht sagen.

Danke für deine Antwort!