Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1552to1556
1552to1556
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilenhöhe und Breite automatisch mit VBA anpassen

Forumthread: Zeilenhöhe und Breite automatisch mit VBA anpassen

Zeilenhöhe und Breite automatisch mit VBA anpassen
19.04.2017 14:59:12
mirko
Hallo Excelisten
ich möchte per VBA die Zeilenhöhe in der Spalte H automatisch anpassen, Z.B. wenn der in der Spalte H eingegebene Text darüber hinaus geht, soll Excel mir automatisch die Zeilenhöhe anpassen, bzw. erweitern mit Zeilenumbrüche.
Evtl. Spaltenbreite fixieren und wenn diese erreicht ist, macht der Excel Zeilenumbruch solange es Text reicht?
Ist das möglich?
mirko
Anzeige

16
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zeilenhöhe und Breite automatisch mit VBA anpassen
19.04.2017 15:18:33
Werner
Hallo Mirko,
die gewünschte Spaltenbreite vorher einfach einstellen.
Folgenden Code ins CodeModul des Blattes, auf dem er sich auswirken soll.
Rechtsklick auf den Tabellenblattreiter - Code anzeigen - Code rechts ins Codefenster kopieren
Makro startet, sobald in Spalte H eine Eingabe vorgenommen wird.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 8 Then
Columns("H:H").WrapText = True
End If
End Sub
Gruß Werner
Anzeige
Zeilenhöhe und Breite automatisch mit VBA anpassen
19.04.2017 15:26:35
mirko
Hallo Werner
habe versucht, leider wird die Zeilenhöhe nicht automatisch angepasst.
Gruss
mirko
Rows.AutoFit..owT
19.04.2017 15:34:12
Max2

AW: Zeilenhöhe und Breite automatisch mit VBA anpassen
19.04.2017 15:52:50
Werner
Hallo Mirko,
bei mir schon. Mehr kann ich dazu nicht sagen, weil ich deine Datei nicht kenne.
Gruß Werner
Anzeige
Zeilenhöhe und Breite automatisch mit VBA anpassen
19.04.2017 16:03:59
mirko
Hallo Werner
bei mir in der neue Mappe funktioniert auch fehlerfrei.
In der betroffene Mappe (Tabelle 1)habe ich schon eine Prozedur mit:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Ist das vielleicht die Ursache?
mirko
AW: Beispielmappe hochladen
19.04.2017 16:09:18
Werner
Hallo Mirko,
da kann ich wieder nur sagen "kann sein". Ich kenne deine Datei immer noch nicht und deinen Code auch
nicht.
Lade doch mal eine Beispielmappe, ggf. mit anonymisierten Daten hoch.
Gruß Werner
Anzeige
AW: Beispielmappe hochladen
19.04.2017 16:22:53
mirko
Hallo Werner
anbei noch die Beispieldatei:

Die Datei https://www.herber.de/bbs/user/112980.xlsm wurde aus Datenschutzgründen gelöscht


gruss
mirko
AW: Beispielmappe hochladen
19.04.2017 16:44:32
Werner
Hallo Mirko,
wenn du jetzt noch dein Makro-Passwort raus machen würdest, dann könnte ich mir das auch ansehen.
Gruß Werner
Anzeige
AW: Beispielmappe hochladen
19.04.2017 19:47:41
Werner
Hallo Mirko,
musste noch ein Autofit mit rein machen, warum kann ich nicht sagen, bei mir ging es auch ohne.
https://www.herber.de/bbs/user/112989.xlsm
Gruß Werner
Anzeige
AW: Beispielmappe hochladen
19.04.2017 20:32:57
mirko
Hallo Werner
wo genau muss der Autofit in meinem Codes noch anpassen?
gruss
mirko
AW: Beispielmappe hochladen
19.04.2017 20:37:00
Werner
Hallo Mirko,
Das ist doch in der Datei, die ich dir wieder hochgeladen habe, schon drin. Im Worksheet_Change ganz unten.
Gruß Werner
AW: Beispielmappe hochladen
19.04.2017 20:44:05
mirko
Hallo Werner
ich finde es in diese Datei einfach nicht?
Entweder bin für VBA "zu blöd" oder was?
mirko
Anzeige
AW: Beispielmappe hochladen
19.04.2017 20:53:29
Werner
Hallo Mirko,
Rechtsklick auf den Blattreiter von Tabelle1 - Code anzeigen
Oder im Makroeditor Doppelklick auf Tabelle1
und dort dann im Worksheet_Change Code ganz unten
Gruß Werner
AW: Beispielmappe hochladen
19.04.2017 21:18:41
mirko
hallo Werner
endlich funkttioniert es wie gewünscht.
Danke für die Hilfe und vor allem für der Geduld.
Gruss
mirko
Anzeige
AW: Gerne u. Danke für die Rückmeldung. o.w.T.
19.04.2017 21:37:00
Werner

Forumthreads zu verwandten Themen

Zellgröße automatisch an Textlänge anpassen?
Martin

Hallo liebe Herber-Gemeinde,
gibt es eine Möglichkeit die Zellgröße in Excel automatisch an den darin vorhandenen Text anzupassen, ohne dass der Text dabei verkleinert wird?
Die fragliche Zelle wird mittels einer Formel mit Text aus einem anderen Tabellenblatt befüllt, der von Monat zu...
02.06.2010 12:11:47
Thread-ID: 1159990
6 Beiträge
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
Anzeige
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
Anzeige
Zellengroesse automatisch an Textgroesse anpassen
Tom

Hallo Excel-Cracks,
Wie kann ich die Zelle formatieren, dass diese sich automatisch an die Textgroesse anpasst.Das heisst, wenn text mit fuenf buchstaben eingegeben wird,
wird die Zelle schmaler und wenn Text mit 25 Buchstaben eingegeben wird, soll sich die Zelle automatisch vergroessern...
19.09.2002 11:38:39
Thread-ID: 161693
4 Beiträge
Automatische Zeilenhöhe bei Zeilenumbruch
Georg

Hallo!
Ich habe folgendes Problem: in einem Excel-Sheet wird mittels einer Namenszuweisung aus einem Datenbanksystem Inhalt erstellt. Es handelt sich um längere Texte.
Ich hole mir diesen Text in eine andere Zelle und diese ist auf Zeilenumbruch formatiert, das funktioniert dann aber le...
21.06.2018 13:11:51
Thread-ID: 1629890
5 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
Zellenbreite automatisch anpassen
Sebastian

Hi zusammen,
weiss jemand ob und wie man die Zellenbreite automatisch anpassen kann, damit der Inhalt vollständig sichtbar ist?
Danke. Gruß Sebastian.
19.08.2004 12:27:46
Thread-ID: 472283
4 Beiträge
Anzeige
Anzeige

Infobox / Tutorial

Zeilenhöhe und Breite in Excel automatisch anpassen mit VBA

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und navigiere zu dem Arbeitsblatt, auf dem du die Zeilenhöhe und Spaltenbreite automatisch anpassen möchtest.

  2. Rechtsklicke auf den Tabellenblattreiter und wähle "Code anzeigen", um das VBA-Editor-Fenster zu öffnen.

  3. Füge den folgenden Code in das Codefenster ein:

    Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Column = 8 Then ' Spalte H
       Columns("H:H").WrapText = True
       Rows(Target.Row).AutoFit ' Zeilenhöhe automatisch anpassen
   End If
End Sub

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

  5. Gib einen Text in die Spalte H ein. Die Zeilenhöhe sollte sich nun automatisch anpassen, wenn der Text mehr Platz benötigt.

Häufige Fehler und Lösungen

  • Zeilenhöhe wird nicht angepasst: Stelle sicher, dass der Code im richtigen Arbeitsblattmodul eingefügt wurde. Manchmal kann der Fehler auch auftreten, wenn bereits andere Makros im Blatt existieren. Überprüfe, ob diese den Code beeinflussen.

  • Spaltenbreite passt sich nicht automatisch an: Füge zusätzlich den Befehl Columns("H:H").AutoFit in den Code, um die Spaltenbreite automatisch an den Text anzupassen.

Alternative Methoden

Wenn du keine VBA-Lösungen verwenden möchtest, kannst du die automatische Anpassung der Spaltenbreite auch manuell durchführen:

  1. Wähle die Spalte aus, die du anpassen möchtest.
  2. Doppelklicke auf die rechte Grenze der Spaltenüberschrift. Excel wird die Spaltenbreite automatisch an den längsten Eintrag anpassen.

Für eine automatische Zeilenhöhe ohne VBA kannst du auch die Funktion „Zeilenhöhe automatisch anpassen“ im Kontextmenü verwenden (Rechtsklick auf die Zeile).

Praktische Beispiele

  • Beispiel für Zeilenhöhe anpassen: Wenn du in Zelle H1 den Text "Dies ist ein sehr langer Text, der die Zeilenhöhe überschreitet" eingibst, wird die Zeilenhöhe automatisch erweitert, um den gesamten Text anzuzeigen.

  • Beispiel für Spaltenbreite anpassen: Wenn du in Zelle H1 "Kurzer Text" eingibst und anschließend in Zelle H2 "Ein sehr, sehr langer Text, der die Spaltenbreite übersteigt", wird die Spaltenbreite sich automatisch an den längeren Text anpassen, wenn du den AutoFit-Befehl verwendest.

Tipps für Profis

  • Verwende die Kombination von AutoFit für Zeilen und Spalten, um sicherzustellen, dass deine Daten immer optimal dargestellt werden.
  • Wenn du regelmäßige Datenänderungen hast, überlege, wie du deine VBA-Makros optimieren kannst, um die Leistung zu verbessern.
  • Bei sehr langen Texten kann es sinnvoll sein, die maximale Zeilenhöhe zu fixieren, um ein Überlaufen in andere Zeilen zu vermeiden. Dies kannst du erreichen, indem du die Zeilenhöhe manuell festlegst.

FAQ: Häufige Fragen

1. Warum wird die Spaltenbreite nicht automatisch angepasst? Es könnte daran liegen, dass der AutoFit-Befehl nicht im Code enthalten ist. Stelle sicher, dass du Columns("H:H").AutoFit hinzugefügt hast.

2. Kann ich die Zeilenhöhe fixieren? Ja, du kannst die Zeilenhöhe manuell festlegen, indem du mit der rechten Maustaste auf die Zeile klickst und „Zeilenhöhe“ auswählst. Dort kannst du einen festen Wert eingeben.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige