Office: Zeilehöhe an Inhalt automatisch anpassen

Hallo liebes Formum,

in einem Excel-Arbeitsblatt sollen sich bestimmte Zellen in der Höhe automatisch an den Inhalt anpassen. Unter den Format-Einstellungen und bei Google habe ich hierzu leider nichts gefunden.
Das Problem ist folgendes: Es ist eine Vorlage zur Abrechnung von Reisekosten. Für die Eingabe des Aufenthalts- bzw. Übernachtungsorts sind standardmäßig zwei Zellen miteinander verbunden. Ich habe zwar den Zeilenumbruch aktiviert, jedoch wird dadurch die Zeilenhöhe nicht automatisch angepasst. Unter "Textausrichtung, Vertikal" habe ich bereits die Einstellungen "zentriert" und "verteilt" ausprobiert, jedoch ohne Erfolg.

Gibt es da andere Möglichkeiten oder notfalls eine Lösung per VBA, die ich in ein Makro einsetzen würde?

Danke für Eure Tipps!!

P.S. Leider müssen die besagten Zellen verbunden bleiben.
Die "Autofit"-Funktion funktioniert in meinem Fall übrigens auch nicht, wohl weil es sich um verbundene Zellen handelt.

:)

 

Hallo Michael,

Neben der Möglichkeit, Zellen miteinander zu verbinden, gibt es auch noch die Alternative, über das Menü Format | Zellen | Reiter "Ausrichtung" unter dem Punkt "Horizontale Ausrichtung" die Option "Über Auswahl zentrieren" zu wählen. Damit erreichst du denselben optischen Effekt und erkaufst dir damit den Vorteil, dass Autofit nun funktioniert.

Gruß Ingolf

 

Hi Ingolf,

leider komme ich in meiner Excel-Vorlage nicht herum, das Verbinden der Zellen beizubehalten. Aufgrund der Formatierungen in dem betreffenden Tabellenblatt erreicht die von Dir vorgeschlagene Option "Über Auswahl zentrieren" nicht den gewünschten optischen Effekt. Da auch mit den betreffenden Zellen mittlerweile Verknüpfungen zu Zellen weiterer Tabellenblätter bestehen, wäre eine Umformatierung für mich äußerst unpraktisch.

Kennst Du evtl doch eine weitere Methode, um meine verbundenen Zellen in der Höhe richtig anzupassen?

 

Hallo Michael,

folgendes Makro ändert die Zeilenhöhe der aktiven Zelle entsprechend ab:
Code:

 

Hallo Ingo,

vielen Dank für Dein Makro. Ich habe dieses nun in "DieseArbeitsmappe" eingefügt und ausprobiert. Leider geht bei mir das Makro nur bis zur Code-Zeile "ActiveSheet.Delete" wo das neu erzeugte Tabellenblatt gelöscht werden soll. Hier kommt nun die Abfrage, ob das Tabellenblatt tatsächlich gelöscht werden soll, weil noch Daten vorhanden sind.
Viel wichtiger ist jedoch, dass es die Höhe der Zellen nicht anpasst. Ich verstehe leider noch nicht, wo ich es in Deinem Makro angeben kann, welche Zellen in der Höhe angepasst werden sollen?

Danke für Deine Hilfe!

 

Hallo Michael,

ich zitiere mich selbst:

Das Makro ändert einfach die Zeilenhöhe der aktiven Zelle ab, falls nötig. Um nun eine bestimmte Zelle zu ändern, musst du diese Zelle überall dort angeben, wo ich mich in dem Makro auf "ActiveCell", also die aktive Zelle beziehe. Die Abfrage wegen des wieder zu löschenden temporäten Tabellenblattes habe ich nun unterdrückt. Das war mir zwar auch aufgefallen, die Änderung hab ich dann aber doch vergessen.

Code:

 

Hi,

Danke für deine Geduld.
Ich habe dein Makro nun bei mir (1:1) eingefügt, es läuft auch fehlerfrei durch. Leider passt es meine Zellen überhaupt nicht an. Muss ich da evtl. noch etwas beachten oder anpassen?

 

Hallo Michael,

ich habe dir mal eine Beispielmappe hochgeladen. Markiere die verbundenen Zellen A1:B1 und laß dann das Makro laufen. Die Zeile 1 wird daraufhin höher, so dass man den ganzen Text lesen kann.

Wenn dich das nicht weiter bringt, solltest du wohl selbst mal eine Beispielmappe hochladen und dazuschreiben, was genau du machst und was dann passiert, wenn du das Makro laufen läßt.

Gruß Ingolf

 

Hi Ingolf,

ich habe nun einen Unterschied zwischen meiner Arbeitsmappe sowie deiner Beispiel-Mappe festgestellt: Bei Dir gibt es bereits in der Bearbeitungsleiste Zeilenumbruch. Somit funktioniert Dein Makro auch perfekt.
In meinen verbundenen Zellen wird der Textinhalt einzeilig eingegeben, der Zeilenumbruch gilt nur für die Zelle, nicht für die Bearbeitungsleiste.
(Ändere ich deinen Text soweit ab, dass er bereits einzeilig in der Bearbeitungsleiste steht, bewirkt das Makro auch nichts).
Deshalb die Frage: Wie kann ich (bzw der User) den Text so eingeben, wie Du es in deiner Beispielmappe gemacht hast?

Danke Dir...

 

Moin, rapoport,

ALT + ENTER für den Zeilenumbruch? *wink.gif*

 

Hi,

Danke für den Tipp.
Ich habe mein Problem nun aber mit folgendem Makro gelöst:

Code:

Danke trotzdem....