Zeilenhöhe anpassen

[Paul]

Hallo zusammen,
Habe folgendes Problem:
Ich habe in Exel Datenblätter angelegt, bei denen die Zellen verbunden sind und ein Zeilenumbruch vorhanden ist. Ich habe eine Dropdown Auswahlliste erstellt, da ich diese Datenblätter in versch. Sprachen benötige. Nun mein Problem: die jeweiligen Texte sind in den versch. Sprachen unterschiedlich lang. Weiss jemand wie man die Zeilenhöhe jeweils automatisch anpassen könnte?
Danke im voraus!

[RPP63]

Hi!
Ist bereits VBA vorhanden?
Dann Tabelle1.Rows.Autofit
Ansonsten Doppelklick auf den ensprechenden Zeilenbegrenzer am linken Bildschirmrand.

[url=
Dateiupload bitte im Forum! So geht es: Klick mich!
]

Gruß Ralf

[RPP63]

Ich sehe gerade (und fühle mich in meiner Einschätzung bestätigt):

Verbundene Zellen sind großer Mist, wenn man mit der Tabelle arbeiten will!

Schmeiße sie komplett raus und arbeite nur mit der Zeilenhöhe.
Dann funktioniert mein obiger Tipp.

Gruß Ralf

[Paul]

Hi!
Ist bereits VBA vorhanden?
Dann Tabelle1.Rows.Autofit
Ansonsten Doppelklick auf den ensprechenden Zeilenbegrenzer am linken Bildschirmrand.

[url=
Dateiupload bitte im Forum! So geht es: Klick mich!
]

Gruß Ralf

Nein, ist noch keins vorhanden. Habe ich bereits versucht, geht leider nicht.
Habe die Datei eingefügt, wäre super wenn du es dir mal anschauen könntest und eventuell eine Lösung findest.

[Paul]

Ich sehe gerade (und fühle mich in meiner Einschätzung bestätigt):

Verbundene Zellen sind großer Mist, wenn man mit der Tabelle arbeiten will!

Schmeiße sie komplett raus und arbeite nur mit der Zeilenhöhe.
Dann funktioniert mein obiger Tipp.

Gruß Ralf

Ja das hab ich auch schon mitbekommen.
Jedoch hab ich bereits über 50 Datenblätter nach dieser Vorlage gemacht und wollte wissen, ob es nicht vielleicht auch eine Lösung mit verbundenen Zellen gibt.
Die mir viel Arbeit ersparen würde :)
Gruß Paul

[RPP63]

Hi!
Mit verbundenen Zellen wohl keine Chance.
Aber soviel Arbeit ist es ja auch nicht.
Knackpunkt sind die Zeilen 15-24 auf den Blättern.
Ich habe mal die Zellverbünde aufgelöst.
Vielleicht müsstest Du dann etwas an der Spaltenbreite basteln.
Einziger Code in der Mappe (im Modul DieseArbeitsmappe):

Code:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$F$2" Then
  Sh.Rows.AutoFit
End If
End Sub

Datei im Anhang, Du musst die Ausführung der Makros erlauben.

Gruß Ralf

[RPP63]

Wenn ich die Spalten B auf ca. 50 verbreitere, ist das Design für mich akzeptabel.
Das musst Du auch nicht für jede Tabelle einzeln machen:
Aktiviere das erste Blatt und klicke bei gedrückter Umschalttaste das letzte zu ändernde Blatt an.
Dann sind die Blätter gruppiert.
Die Änderung im aktiven Blatt wirkt sich auf alle gruppierten Blätter aus!
Danach aber nicht vergessen, die Gruppierung wieder aufzulösen!

Gruß Ralf

[schauan]

Hallöchen,

wenn es Dir nichts ausmacht, alle Zellen in der Höhe anzupassen, dann folgende Vorgehensweise:

Klicke oben links in die Eckeüber den Zeilennummern und neben den Spaltenbezeichnungen
Klicke doppelt auf eine Zeilengrenze

Das funktioniert auch mit verbundenen Zellen, da sich die Ausrichtung ja auch auf die daneben liegenden Zellen bezieht - solange in den verbundenen Zellen nicht noch mehr Zeilen sind, als sich aus den daneben liegenden ergibt. Bei welcher Sprache wäre das denn der Fall?

[RPP63]

Hi André!
Hast Du das ausprobiert?
Bei mir geht es nicht, es entspräche ja meinem ersten Vorschlag Cells.Rows.Autofit

Gruß Ralf

[schauan]

Hallöchen,

ja, bei mir geht das. Daher auch meine Frage, in welcher Sprache es das Problem gibt.

Ich musste jedoch auf dem zweiten und dritten Blatt die Spalte B ein paar Pixel breiter ziehen, da Einträge dort nicht einzeilig dargestellt wurden. Das liegt aber nicht an den verbundenen Zellen, sondern an dem "breiten Grenzwertfehler" von Excel. Da ist die Zellenbreite im Vergleich zum dargestellten Text ungünstig und dadurch wird die Zeilenhöhe zweizeilig gelassen.