Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
15.10.2025 13:51:13
VBA - Fortschrittsbalken unabhängig von Zellen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1244to1248
1244to1248
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

optimale Zeilenhöhe zzgl. Abstand

Forumthread: optimale Zeilenhöhe zzgl. Abstand

optimale Zeilenhöhe zzgl. Abstand
Carle
Hallo zusammen!
habe soeben meine erste VBA-Programmierung erfolgreich hinter mich gebracht, und zwar habe ich mit folgendem Code 
Sub ZeilenEinstellen()
With ActiveSheet.UsedRange
.Rows.AutoFit
End With
End Sub

die Einstellung der optimalen Zeilenhöhe geschafft.
Jetzt würde ich gerne die Zeilenhöhe noch etwas erweitern, sodass die einzelnen Zeilen nicht so gequetscht aussehen, also die Tabelle vertikal betrachtet etwas gestreckt wird. Ich nehme an, dass ich zunächst das Format der Zellen dahingehend einstellen muss, dass der Inhalt der Zellen vertikal zentriert ist, um dann meinen oben genannten Code noch zu erweitern. Weiß jemand wie der Code dann insgesamt lauten muss? Oder geht es besser ganz anders?
Danke + Gruß,
Carle
Anzeige

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: optimale Zeilenhöhe zzgl. Abstand
11.01.2012 19:45:19
Matthias
Hallo Carle
z. B so
With ActiveSheet.UsedRange
.Rows.AutoFit
.RowHeight = .RowHeight + 3 '+3 anpassen!
End With
Na dann viel Erfolg für die Zukunft mit VBA :o)
Gruß Matthias
AW: optimale Zeilenhöhe zzgl. Abstand
11.01.2012 19:58:39
Carle
Danke Matthias!
Noch eine Frage:
Du hast die von Dir in den Code eingefügte Zeile teils fett und teils normal formatiert. Übernehme ich alles in den Code oder nur das fett gedruckte?
Gruß und Dank, Carle.
Anzeige
nur das fett Markierte ... kwT
11.01.2012 20:06:13
Matthias
kwT=kein weiterer Text
AW: nur das fett Markierte ... kwT
11.01.2012 20:23:35
Carle
Jetzt sieht die Sache so aus:
Sub ZeilenEinstellen()
With ActiveSheet.UsedRange
.Rows.AutoFit
.RowHeight = .RowHeight + 10
End With
End Sub
...und es klappt nicht.
zeig doch mal eine BeispielDatei
11.01.2012 20:38:39
Matthias
Hallo
In meinem Test sieht das so aus ...
Userbild
Vieleicht habe ich aber Dein Problem auch nicht richtig verstanden
Gruß Matthias
Anzeige
AW: zeig doch mal eine BeispielDatei
11.01.2012 21:22:36
Carle
Hi Matthias,
mit Sepps Hilfe hat es ja geklappt. Wollte gerade noch als letztes Werk von heute die Datei hochladen. Das hat jetzt aber keinen Wert mehr, da ich irgendwas im Editor verhunzt habe und jetzt (fast) nichts mehr so ist wie vorher (also in der Datei :-)).
Schluss für heute!
Gute Nacht, Carle.
Anzeige
AW: optimale Zeilenhöhe zzgl. Abstand
11.01.2012 19:52:39
Josef

Hallo Carle,
das geht so, wenn alle Zeilen die selbe Höhe haben, sonst muss man alle Zeilen einzeln abklappern.
Sub ZeilenEinstellen()
  Dim intFontSize As Integer, dblRowHeight As Double
  
  With ActiveSheet.UsedRange
    intFontSize = .Font.Size
    .VerticalAlignment = xlCenter
    .Font.Size = intFontSize + 5
    .Rows.AutoFit
    dblRowHeight = .Rows(1).Height
    .Font.Size = intFontSize
    .RowHeight = dblRowHeight
  End With
  
End Sub



« Gruß Sepp »

Anzeige
@Sepp
11.01.2012 20:01:19
Carle
Danke. Die Zellen haben unterschiedlich viel Inhalt und sind deshalb schon unterschiedlich in der Höhe. Daher kann ich wohl nicht so vorgehen. Gruß, Carle
AW: @Sepp
11.01.2012 20:09:59
Josef

Hallo Carle,
dan so.
Sub ZeilenEinstellen()
  Dim rng As Range
  Dim lngCalc As Long
  
  On Error GoTo ErrExit
  
  With Application
    .ScreenUpdating = False
    .EnableEvents = False
    lngCalc = .Calculation
    .Calculation = xlCalculationManual
    .DisplayAlerts = False
  End With
  
  For Each rng In ActiveSheet.UsedRange.Rows
    rng.EntireRow.AutoFit
    rng.RowHeight = rng.RowHeight + 5
  Next
  
  ErrExit:
  
  With Err
    If .Number <> 0 Then
      MsgBox "Fehler in Prozedur:" & vbTab & "'ZeilenEinstellen'" & vbLf & String(60, "_") & _
        vbLf & vbLf & IIf(Erl, "Fehler in Zeile:" & vbTab & Erl & vbLf & vbLf, "") & _
        "Fehlernummer:" & vbTab & .Number & vbLf & vbLf & "Beschreibung:" & vbTab & _
        .Description & vbLf, vbExclamation + vbMsgBoxSetForeground, _
        "VBA - Fehler in Modul - Modul1"
      .Clear
    End If
  End With
  
  On Error GoTo 0
  
  With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = lngCalc
    .DisplayAlerts = True
  End With
  
End Sub



« Gruß Sepp »

Anzeige
AW: @Sepp
11.01.2012 20:42:43
Carle
Danke Sepp!
Klappt wunderbar!
Und jetzt nehme ich mir erst mal noch etwas Zeit den Code nachzuvollziehen :-)
Viele Grüße, Carle.
;

Forumthreads zu verwandten Themen

Zeilenhöhe automatisch anpassen
Felix

Hallo,
ich habe einen private sub, der mir die Zeilenhöhe automatisch anpasst. Dies passiert aber nur, wenn ich das worksheet wechsle.
Gibt eine eine Möglichkeit, das gleiche bei ENTER zu bekommen, also wenn ich das Schreiben in eine Zelle abschließe?
danke für die Hilfe!
Gr...
17.06.2011 13:56:36
Thread-ID: 1218708
3 Beiträge
Spaltenbreite in Excel 2003 automatisch anpassen
Maximilian

Guten Tag!
Kann man in Excel 2003 die Spaltenbreite irgendwie automatisch anpassen? Alternativ per VBA Script? Hat da jemand einen Tipp?
13.12.2012 13:09:16
Thread-ID: 1290735
3 Beiträge
Anzeige
Zeilenhöhe automatisch anpassen
Matthias

Hallo,
ich bräuchte ein Makro, dass bei angewendeten Blattschutz es zulässt, dass sich die Zeilenhöhe automatisch anpasst falls der Text zuviel wird.
Ich möchte dies, nicht im Blattschutz direkt zulassen, da sonst jeder die Zeilenhöhe varrieren kann.
16.03.2015 07:42:24
Thread-ID: 1415176
7 Beiträge
Zeilenhöhe automatisch anpassen, wenn leer
Patrick

Hallo,
ich habe nun noch ein Problem. In einer Tabelle funktioniert die automatische Zeilenhöhe nun gut.
Nur wenn der Inhalt mit der Entf-Taste geleert wird, dann wird die Zeilenhöhe nicht angepasst. Wenn ich mit der Löschen-Taste aber den inhalt entferne schon.
Nur soll sich die Ze...
22.06.2016 16:18:30
Thread-ID: 1500372
3 Beiträge
Diagramm per VBA automatisch anpassen(formatieren)
Shayev

Hallo zusammen,
ich habe eine Frage, gibt es eine Möglichkeit per VBA ein Diagramm automatisch anzupassen, so dass die Datenbeschriftungen passen und die Achsen mit ihren Werten lesbar sind. Vielen Dank im Voraus.
Gruß Shayev
16.08.2016 10:22:50
Thread-ID: 1509477
5 Beiträge
Anzeige
Zeilenhöhe automatisch anpassen
Nati

Hallo zusammen,
ich brauche nochmal Rat.
Ich habe eine Liste mit mehreren Spalten.
Die Zeilenhöhe soll jeweils fix bei 45 liegen.
Wenn in einer Spalte ein längerer Text eingegeben wird, soll sich die Zeile automatisch dem Text anpassen, jedoch trotzem mind 45 beibehalten.
I...
13.03.2017 10:14:00
Thread-ID: 1546986
3 Beiträge
Zeilenhöhe automatisch anpassen?
changenew

Hallo,
hätte folgendes Anliegen:
Ich möchte, dass in Tabellenblatt 2 die Zeilenhöhe in Zeile 3 automatisch an den geschriebenen Inhalt bzw. Symbole angepasst wird. Wie lässt sich das realisieren?
Außerdem würde ich gerne, dass in Zelle E3 auch eine automatische Anpassung des Ampels...
28.04.2017 16:22:49
Thread-ID: 1555380
2 Beiträge
Zeilenhöhe automatisch anpassen
Dennis

Guten Tag alle zusammen,
bitte um eure Hilfe bei folgenden zwei Fragen:
1. Anpassung der Zeilen Höhe in einem geschützten/ausgeblendeten Blatt (Zeile 1 bis 250). Habe dort folgendes Modul:
Sub PDF_Speichern() Dim pdfDateiName As String Dim pdfName As Variant With Worksheets("Angebot...
10.09.2018 13:43:43
Thread-ID: 1644527
21 Beiträge
VBA: Zeilenhöhe an Text anpassen
Charly

Guten Abend
Ich möchte per UserForm/TextBox einen Text in eine Verbundene Zelle Schreiben.
Der Eingegebene Text ist in der Länge Variable, ich nutze die Eigenschaften ("EnterKayBehavior, MultiLine, WordWrap" alle auf true) der TextBox.
Soweit So gut...
Wie erreiche Ich das die Z...
03.11.2019 22:41:23
Thread-ID: 1721150
4 Beiträge
VBA: Zeilenhöhe an Text anpassen
Charly

Guten Abend
Ich möchte per UserForm/TextBox einen Text in eine Verbundene Zelle Schreiben.
Der Eingegebene Text ist in der Länge Variable, ich nutze die Eigenschaften ("EnterKayBehavior, MultiLine, WordWrap" alle auf true) der TextBox.
Soweit So gut...
Wie erreiche Ich das die Z...
03.11.2019 22:41:34
Thread-ID: 1721151
2 Beiträge
Zeilenhöhe automatisch anpassen
Karin

Hallo ihr Experten,
wie kann ich erreichen das die Zeilenhöhe sich automatisch ändert, je nachdem wieviel Text ich eingebe?
Hab ich das gut genug erklärt?

Freundlich Grüße
Karin
Excel 2013
15.04.2020 13:51:05
Thread-ID: 1752674
7 Beiträge
Zeilenhöhe automatisch anpassen
Josef

Hallo Liebe Mitglieder,
ich habe eine kleines Problem und hoffe das ihr mir helfen könnt.
Mein Ziel ist es, dass sich die Zeilenhöhen zwischen den Zeilen 9-15 automatisch an den Text in Spalte D anpassen(sobald ich da etwas eintrage). Zu beachten ist jedoch, dass immer wieder neue Zeile...
18.10.2020 17:39:19
Thread-ID: 1788132
12 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Optimale Zeilenhöhe in Excel einstellen

Schritt-für-Schritt-Anleitung

Um die optimale Zeilenhöhe in Excel einzustellen und den Abstand zwischen den Zeilen zu vergrößern, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:

  1. Öffne dein Excel-Dokument und wähle den Arbeitsbereich aus, für den du die Zeilenhöhe anpassen möchtest.

  2. Füge den VBA-Code ein:

    • Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
    • Wähle im Menü Einfügen -> Modul, um ein neues Modul zu erstellen.
    • Füge den folgenden Code ein:
    Sub ZeilenEinstellen()
   Dim rng As Range
   For Each rng In ActiveSheet.UsedRange.Rows
       rng.EntireRow.AutoFit
       rng.RowHeight = rng.RowHeight + 5 ' Hier kannst du den Abstand anpassen
   Next rng
End Sub

  3. Schließe den VBA-Editor und kehre zu Excel zurück.

  4. Führe das Makro aus:

    • Drücke ALT + F8, wähle ZeilenEinstellen und klicke auf Ausführen.

Mit diesem Code wird die automatische Zeilenhöhe angepasst und gleichzeitig eine zusätzliche Höhe von 5 Punkten hinzugefügt, um den Zeilenabstand zu vergrößern.

Häufige Fehler und Lösungen

  • Fehler: "Das Makro funktioniert nicht wie erwartet"

    • Lösung: Überprüfe, ob das Arbeitsblatt korrekt ausgewählt ist und ob der Bereich, den du anpassen möchtest, tatsächlich Daten enthält.

  • Fehler: "Die Zeilenhöhe wird nicht angepasst"

    • Lösung: Stelle sicher, dass die Zellen nicht auf eine feste Höhe eingestellt sind. Überprüfe die Formatierung der Zeilen.

  • Fehler: "VBA-Code gibt einen Laufzeitfehler aus"

    • Lösung: Gehe sicher, dass alle Zeilen im benutzten Bereich vorhanden sind und dass kein Fehler im Code vorliegt.

Alternative Methoden

Wenn du keine VBA-Programmierung verwenden möchtest, kannst du die optimale Zeilenhöhe auch manuell einstellen:

  1. Markiere die Zeilen, die du anpassen möchtest.
  2. Klicke mit der rechten Maustaste und wähle Zeilenhöhe....
  3. Gib die gewünschte Höhe ein oder lasse Excel die Höhe automatisch anpassen.

Zusätzlich kannst du auch die Spaltenbreite automatisch anpassen:

  • Wähle die Spalten aus, klicke mit der rechten Maustaste und wähle Spaltenbreite automatisch anpassen.

Praktische Beispiele

  • Beispiel 1: Wenn du eine Tabelle mit verschiedenen Inhalten hast, kann der oben genannte VBA-Code helfen, die maximale Zeilenhöhe automatisch zu setzen und gleichzeitig den Abstand zwischen den Zeilen zu vergrößern.

  • Beispiel 2: Bei der Erstellung von Berichten kann es sinnvoll sein, den Zeilenabstand anzupassen, damit die Lesbarkeit verbessert wird. Nutze den VBA-Code, um alle Zeilen in deinem Dokument schnell anzupassen.

Tipps für Profis

  • Verwende die Funktion AutoFit für eine schnelle Anpassung der Zeilenhöhe basierend auf dem Inhalt.
  • Experimentiere mit verschiedenen Höhen (z.B. .RowHeight = .RowHeight + 10), um den Abstand zwischen den Zeilen an deine Bedürfnisse anzupassen.
  • Achte darauf, die maximale Zeilenhöhe nicht zu überschreiten, um ein geordnetes Layout zu wahren.

FAQ: Häufige Fragen

1. Wie kann ich die Zeilenhöhe für alle Zeilen gleichzeitig anpassen? Um die optimale Zeilenhöhe für alle Zeilen zu setzen, kannst du das Makro ZeilenEinstellen verwenden. Es wird die Höhe für alle verwendeten Zeilen anpassen.

2. Gibt es eine Möglichkeit, den Zeilenabstand ohne VBA zu vergrößern? Ja, du kannst die Zeilen manuell auswählen, mit der rechten Maustaste klicken und Zeilenhöhe... wählen, um den Abstand anzupassen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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