Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Optimale Zeilenhöhe bei sehr viel Inhalt

Optimale Zeilenhöhe bei sehr viel Inhalt
touchmarul
Hallo Excel-Gemeinde !
Ich habe noch eine Frage:
In einer großen Tabelle setze ich bestimmte Zellen (in denen manchmal viel Text steht) per VBA auf optimale Zeilenhöhe. Das klappt aber nur bis zu einem bestimmten Umfang.
Je nachdem, welche Buchstaben sich in der Zelle befinden, wird ab einem Umfang von ca.
700 Zeichen (zB. lauter "W") bis ca. 1100 Zeichen (zB. lauter "i") bzw. ab einer Zeilenhöhe von 166 bis 410,
die Zeilenhöhe nicht mehr richtig angepasst und der restliche Text nicht mehr angezeigt.
Habt Ihr einen Tip ?
Vielen Dank im Voraus !
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Optimale Zeilenhöhe bei sehr viel Inhalt
29.06.2010 14:29:52
fcs
Hallo touchmarul,
die max. Zeilenhöhe ist in Excel auf 409,5 begrenzt. Die Zeichenzahl spielt dabei eine untergeordnetete Rolle. Bei vielen Zeilenschaltungen in der Zelle oder größer Schriftgröße braucht es nur wenige Zeichen.
Machen kann man nicht viel; außer die Zeilenhöhen zu kontrollieren und die Texte anzupassen bzw. auf mehrere Zeilen zu verteilen.
'####      E X C E L   ist kein T E X T V E R A R B E I T U N G S P R O G R A M M     ####

Gruß
Franz
Sub Check_Max_Zeilenhöhe()
Dim Zeile As Long, wks As Worksheet, sMsgtext As String
Set wks = ActiveSheet
wks.UsedRange.EntireRow.AutoFit
For Zeile = 1 To wks.Cells.SpecialCells(xlCellTypeLastCell).Row
If wks.Rows(Zeile).RowHeight > 400 Then
sMsgtext = sMsgtext & vbNewLine & "Zeile " & Zeile
End If
Next
If sMsgtext = "" Then
MsgBox "Alle Zeilenhöhen OK", vbInformation + vbOKOnly, "Prüfung Zeilenhöhen"
Else
MsgBox "Folgende Zeilen enthalten evtl. zu viel Text" & vbNewLine & sMsgtext, vbInformation  _
+ vbOKOnly, "Prüfung Zeilenhöhen"
End If
End Sub

Anzeige
AW: Optimale Zeilenhöhe bei sehr viel Inhalt
29.06.2010 23:22:52
touchmarul
HAllo Franz,
danke für Deine Info.
Wie's aussieht kann man dann eben nicht eindeutig ermitteln, ob ein Text noch vollständig in eine Zelle passt. (Weil zB. bei einem Text, der aus über 1000 "i" besteht schon ab einer Zeilenhöhe von 166 nicht mehr richtig abgebildet wird)
PS: Natürlich ist Excel kein Textverarbeitungsprogramm, die langen Texte werden in diesem Fall automatisch aus verschiedenen Einträgen in verschiedenen Spalten generiert.
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Optimale Zeilenhöhe bei sehr viel Inhalt


Schritt-für-Schritt-Anleitung

  1. Zellen auswählen: Markiere die Zellen, deren Zeilenhöhe Du anpassen möchtest.
  2. Automatische Anpassung: Gehe zu Start > Format > Zeilenhöhe automatisch anpassen. Dies passt die Zeilenhöhe an den Inhalt an.
  3. Überprüfung der Zeilenhöhe: Um die maximale Zeilenhöhe zu überprüfen, kannst Du die VBA-Makros verwenden. Füge den folgenden Code in dein VBA-Editor-Fenster ein:

    Sub Check_Max_Zeilenhöhe()
       Dim Zeile As Long, wks As Worksheet, sMsgtext As String
       Set wks = ActiveSheet
       wks.UsedRange.EntireRow.AutoFit
       For Zeile = 1 To wks.Cells.SpecialCells(xlCellTypeLastCell).Row
           If wks.Rows(Zeile).RowHeight > 400 Then
               sMsgtext = sMsgtext & vbNewLine & "Zeile " & Zeile
           End If
       Next
       If sMsgtext = "" Then
           MsgBox "Alle Zeilenhöhen OK", vbInformation + vbOKOnly, "Prüfung Zeilenhöhen"
       Else
           MsgBox "Folgende Zeilen enthalten evtl. zu viel Text" & vbNewLine & sMsgtext, vbInformation + vbOKOnly, "Prüfung Zeilenhöhen"
       End If
    End Sub
  4. Ergebnisse analysieren: Starte das Makro, um herauszufinden, welche Zeilen die maximale Zeilenhöhe überschreiten.

Häufige Fehler und Lösungen

  • Problem: Zeilenhöhe wird nicht angepasst, obwohl viel Text vorhanden ist.

    • Lösung: Stelle sicher, dass keine manuelle Zeilenhöhe eingestellt ist. Entferne dies, indem Du die Zeilenhöhe auf "Standard" zurücksetzt.
  • Problem: Automatische Zeilenhöhe schneidet Text ab.

    • Lösung: Überprüfe, ob die Schriftgröße zu groß ist oder ob Zeilenumbrüche fehlen. Du kannst die Zeilenhöhe an Text anpassen aktivieren.

Alternative Methoden

  • VBA zur Anpassung: Verwende VBA, um die maximale Zeilenhöhe zu erweitern. Du kannst ein Makro erstellen, das die Zeilenhöhe für jede Zelle individuell anpasst.

  • Manuelle Anpassungen: Du kannst die Zeilenhöhe manuell ändern, indem Du mit der Maus auf die Grenze zwischen den Zeilen klickst und ziehst.


Praktische Beispiele

  1. VBA-Makro zur Überprüfung der Zeilenhöhe: Nutze das oben genannte VBA-Skript, um alle Zeilen zu überprüfen, die die maximale Höhe überschreiten.

  2. Automatische Anpassung: Bei Verwendung von Excel 365 kannst Du die Funktion Alle Zeilen gleich hoch aktivieren, um die maximale Zeilenhöhe für alle Zellen zu gewährleisten.


Tipps für Profis

  • Nutze die maximale Zeilenhöhe von 409,5 nur dann, wenn unbedingt nötig. Überlege, ob der Text auf mehrere Zellen verteilt werden kann.
  • Vermeide zu große Schriftarten in Zellen mit viel Text, um die Zeilenhöhe zu optimieren.
  • Verwende die Funktion Excel zeilenhöhe automatisch anpassen, um die Anpassung zu erleichtern.

FAQ: Häufige Fragen

1. Wie kann ich die maximale Zeilenhöhe in Excel ändern?
Die maximale Zeilenhöhe in Excel ist standardmäßig auf 409,5 begrenzt. Du kannst dies nicht direkt ändern, aber Du kannst die Inhalte auf mehrere Zellen verteilen.

2. Was kann ich tun, wenn die automatische Zeilenhöhe zu niedrig ist?
Stelle sicher, dass die Zellen korrekt formatiert sind und dass ausreichend Zeilenumbrüche vorhanden sind. Du kannst auch die Zeilenhöhe manuell anpassen, um den Text vollständig anzuzeigen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige