Office: Zeilenhöhe, Zellen mit Formel

Hallo,
Hab ein Problem mit der Zeilenhöhe (text wird nicht voll angezeigt obwohl die Zelle mit Zeilenumbruch formatiert ist). hab schon ausgiebig im Forum gesucht, aber noch keine Lösung bzw. "work-around" gefunden. Excel Hilfe fand ich auch lausig...

Also:
In einer Zelle hab ich einen mehrzeiligen text.
in einer anderen Zelle habe ich eine Formel (WENN und SVERWEIS, aber eigentlich ist dies nicht das Problem, könnet auch "=B17" sein)
Diese 2. Zelle ist auch mit "Zeilenumbruch" formatiert.

1. Warum aber stellt sich die optimale Zeilenhöhe nicht automatisch ein?
2. wie kann ich das Problem umgehen ? VBA?

Danke im Voraus für die Hilfe...
mfg
IAN

 

Hallo!

Mit VBA müsstest du das Problem so lösen können:
Rechtsklicke den Tabellenreiter das Blatts und wähle "Code anzeigen".
Nun kopiere diesen Code ins Codefenster rechts:

Code:

Private Sub Worksheet_Calculate()
UsedRange.Rows.AutoFit
End Sub

 

Hallo Schatzi,

vielen Dank für die schnelle Antwort.
Leider hat's nicht funktioniert. Ich erhalte eine Error-Messge. Laufzeitfehler '1004' Dieser Befehl kann in einer geschützen Tabelle nicht angewendet werden.
Hab dann den Tabellenschutz rausgenommen, hat aber auch nicht funktioniert. (Die Tabelle muss aber schlussendlich geschützt werden da multi-user)

Na gut, werde morgen im Büro weiter schauen.

Gruss
IAN

 

Zeilenhöhe, Zellen mit Formel, Automatische Optimale Höhe

Hallo,
VBA Code hat gut funktioniert. Bei gesperrten Blätter muss mann "Format ändern erlauben" freigeben. Ansonsten meldet VBA einen Fehler.

Vielen Dank.
IAN

 

Hat mir gut weitergeholfen. Allerdings hätte ich 2 zusätzliche Fragen:
1. funktioniert nicht bei verbundenen Zellen.
2. kann man noch einstellen dass es erst ab einer bestimmten Zeile startet.
Hättet ihr hier vielleicht auch noch eine Idee?

 

Hi,

zu 1.: benutze keine verbundenen Zellen, denn sie machen nur Ärger, wie du selbst feststellen konntest

zu 2.: benutze das Worksheet_Change-Ereignis und überwache damit die Zellen, die Einfluss auf das Ergebnis deiner Formel haben - z.B.:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row > 16 And Target.Column = 2 Then UsedRange.Rows.AutoFit
End Sub

Das Worksheet_Change-Ereignis hat den Vorteil gegenüber dem Worksheet_Calculate-Ereignis, dass es nur ausgelöst wird, wenn eine Eingabe in dem festgelegten Zellbereich erfolgt, das Worksheet_Calculate-Ereignis dagegen bei jeder Eingabe, gleichgültig wo.

---

 

Danke.
1. wird schwierig ohne Zellverbund, aber ich versuch es
2. funktioniert leider nicht.
>16: bedeutet dass es ab Zeile 17 dann zieht, oder?
Die Zeilenhöhe wird nun nicht mehr nach dem Rechenvorgang automatisch ermittelt. Mit worksheet_calculate hats funktioniert
Danke trotzdem für deine Mühe!!

 

WAS GENAU funktioniert nicht? Mein Code war logischerweise nur ein Beispiel da ich deine Mappe nicht kenne - den musst du an deine Bedingungen anpassen.
Richtig >16 bedeutet ab Zeile 17 und =2 bedeutet in Spalte 2 (B).

---

 

Seit Tagen habe ich nach genau dieser Lösung gesucht - vielen, vielen Dank - funktioniert perfekt. <3 <3 <3