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!
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
(11.01.2017, 19:58)Gast 123 schrieb: [ -> ]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!
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.
(12.01.2017, 16:32)atilla schrieb: [ -> ]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!