Office: Problem: Zellenhöhe automatisch an den Inhalt anpassen, VBA

Hallo Leute!

Ich hab ein Problem mit Zeilen, deren Höhe ich gerne dem Inhalt anpassen würde. Hab daher die folgende Formel im VBA eingegeben:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Selection.Rows.AutoFit
ActiveSheet.UsedRange.Rows.AutoFit
End Sub

Funktioniert im Prinzip. Allerdings hab ich eine Spalte, wo die Höhenanpassung jeder Zelle nicht funkioniert. Auch ein manueller Doppelklick auf den Übergang zwischen zwei Zeilen am linken Rand des Excel Sheets (wo die Zeilennummerierung ist) führt hier nicht zur automatischen Anpassung der Zeilenhöhe. Möglicherweise wird der Text nicht als solcher erkannt und es findet deshalb keine Anpassung statt. Allerdings wenn man die Spalte mittels Doppelklick zu verbreitern versucht, funktioniert es. Also ein Erkennungsproblem dürfte es auch nicht sein...

Eine Verbeiterung der Spalten nützt mir leider nichts, da mir dann mein Druckbereich zu schmal wird.

Da es ein sehr langes Excel sheet ist, müsste ich somit jede einzelne Zeile durchgehen und diese manuell (durch hinunterziehen der Zeilenuntergrenze) vergrößern, was sehr mühsam ist.

Hätte jemand auch eine Lösung für dieses Problem?

Danke im Voraus.

LG strikerman

 

Hallo strikerman,

das Problem ist für mich schwer (sprich: gar nicht) nachvollziehbar. Außer wenn du da irgendwo mit verbundenen Zellen arbeitest, die machen oft mehr Ärger als sie (wirklich) nutzen.

Stelle doch bitte einfach einmal die Tabelle mit verfremdeten Daten zur Verfügung, vielleicht finden wir dann einen Weg.

 

Hi cpt. Nemo!

Hier der Link zum File:

Link entfernt. Bitte die Forenregeln beachten.

Das Problem sind die Zellen in Spalte L. Die Höhe dieser Zellen sollte automatisch so angepasst werden, dass der gesamte Text sichtbar ist, ohne allerdings die Breite zu verändern.

LG

 

Bitte die Forenregeln beachten! Link wurde entfernt.

 

Sorry für Missachtung der Forenregeln. Ist mein erster Thread ;)

Hier nochmal zur Veranschaulichung.

Im Anhang...

Das Problem sind die Zellen in Spalte L. Die Höhe dieser Zellen sollte automatisch so angepasst werden, dass der gesamte Text sichtbar ist, ohne allerdings die Breite zu verändern.

LG

 

Hallo strikerman,

bei mir (Excel 2007) funktioniert dein Code einwandfrei. Zugegeben, etwas lahm und mit Verzögerung, aber der Erfolg ist gegeben.

 

Hallo cpt. nemo!

Bei mir normalerweise auch, aber irgendetwas stimmt in meinem File bei dieser einen Spalte nicht, aber leider komm ich nicht drauf, was es ist...

 

Hallo strikerman,

bei mir hat genau die Datei, welche du eingestellt hast, funktioniert. Wenn es eine andere Datei/File ist, wo das Problem auftaucht, solltest du diese vielleicht mit anonymisierten Daten einmal einstellen...

 

Ne, es ist genau dieses File. Komisch dass es bei mir nicht funktioniert. Vielleicht könnte es noch jemand anderer im Forum ausprobieren...

 

Hallo,

bei mir läuft diese Ereignisbehandlung für die Auswahländerung in einem Arbeitsblatt auch (Excel2007).
Hast Du den Code ins Codemodul des Arbeitsblattes (zB. "Sheet1" namens "Red Flags Catalogue") gespeichert? Denn im Codemodul der Arbeitsmappe ("DieseArbeitsmappe" bzw. "ThisWorkbook") oder in einem allgemeinen Codemodul funktioniert dieses Makro natürlich nicht.
Im Codemodul der Arbeitsmappe müsste es mit folgender Ereignissignatur aufgerufen werden:

Code:

[COLOR=#0000cd]Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
  '....[/COLOR]
End Sub

 

Hallo strikerman,

eine Lösung für Dein Problem habe ich leider nicht (die hätte ich selber gerne).
Allerdings kenne ich es aus der Praxis nur allzu gut.

In Deiner Datei benutzt Du die Option "Zeilenumbruch".

Auf verschiedenen Rechnern und unvorhersehbar mit diversen Dateien bzw. Anwendungsfällen habe ich das gleiche Problem.
Manchmal erkennt Excel die Zeilenhöhe korrekt, und zeigt den kompletten Zellinhalt an, manchmal habe ich in der Zelle am oberen Rand eine "Leerzeile", und manchmal wird die unterste "Zeile" nicht angezeigt.
Oft ist es so, dass es bei der einen Zeile funktioniert, bei der nächsten aber nicht.
Alles auf dem gleichen Blatt, in der gleichen Datei und die Zeilen auch gleich formatiert.

Bei VBA hatte ich dieses Problem (glaube ich) noch nicht.
Manuell kann es einen aber manchmal in den Wahnsinn treiben.

Und bisher konnte ich weder eine Regel erkennen, noch irgendeine Abhilfe finden.