Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
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
1556to1560
1556to1560
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Höhe der Zeile anpassen per VBA

Forumthread: Höhe der Zeile anpassen per VBA

Höhe der Zeile anpassen per VBA
05.05.2017 09:58:11
arek
Hallo an alle,
ich hätte folgende Frage:
Mein Ziel ist es, die Zeilenhöhen in der Beispielsdatei (
https://www.herber.de/bbs/user/113336.xlsm) per VBA automatisch anzupassen.
Dazu werden in Tabellenblatt 1 verschiedene Daten eingegeben (Spalte B,C,D,E und F) und dann werden insbesondere die Daten aus Spalte C,D und E per SVERWEIS in Tabellenblatt 2 übernommen. Hier soll dann eine automatische Anpassung der Zeilenhöhe erfolgen, damit auch alles was im Tabellenblatt 1 eingegeben wird in Tabellenblatt 2 in den entsprechenden Zellen lesbar ist.
Mein Code bisher funktioniert leider nur eingeschränkt, d.h. die Zeilenhöhe passt sich im Tabellenblatt 2 nur dann an, wenn in diesem Tabellenblatt auch etwas verändert wird. Wenn sich allerdings in Tabellenblatt 1 etwas ändert, erfolgt keine Anpassung der Zeilenhöhe und man kann möglicherweise nicht den gesamten Text lesen.
Wie muss der Code geändert werden, damit ich diese automatische Anpassung der Zeilenhöhe habe?
Vielen Dank im Voraus!
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Höhe der Zeile anpassen per VBA
05.05.2017 10:46:40
EtoPHG
Hallo Arek,
Anstelle deines Codes, kopiere diesen in das Tabelle2. 
'Zeilenhöhe automatisch anpassen
Private Sub Worksheet_Change(ByVal Target As Range)
UsedRange.EntireRow.AutoFit
End Sub

Gruess Hansueli
AW: Höhe der Zeile anpassen per VBA
05.05.2017 11:01:18
arek
Hallo,
danke für deine Antwort! Ich habe deinen Code reinkopiert, doch leider habe ich immer noch das Problem, dass sich in Tabellenblatt 2 die Zeilenhöhe erst dann "richtig" anpasst, wenn man in diesem auch was verändert. Wenn allerdings in Tabellenblatt 1 sich etwas ändert und der Sverweis die entsprechenden Daten zieht, passt sich die Zeilenhöhe in Tabellenblatt 2 nicht automatisch an...
Hast du den Code auch in meiner Beispielsdatei ausprobiert?
Danke nochmals!
Anzeige
ooops, das war der falsche Code...
05.05.2017 11:18:01
EtoPHG
Hallo Arek,
Das war ein Copy-Paste Fehler meinerseits.
Der Code muss heissen: 
Option Explicit
Private Sub Worksheet_Activate()
UsedRange.EntireRow.AutoFit
End Sub

Wenn du im Tabelle1 etwas änderst und dann auf Tabelle2 wechselst, müssten sich die Höhen in Tabelle2 einstellen.
Das Change-Ereignis in Tabelle2 nützt nichts, darum rausschmeissen. Ein Change Ereignis tritt nur ein, wenn manuell etwas in den Zellen geändert wird, nicht aber durch Veränderungen von Formelresultaten!
Gruess Hansueli
Anzeige
AW: ooops, das war der falsche Code...
05.05.2017 11:35:41
arek
Hallo nochmal,
vielen Dank! Das klappt wunderbar...
Viele Grüße
;

Forumthreads zu verwandten Themen

Höhe Fußzeile dynamisch anpassen
Rene

Hallo,
in meine Fußzeile sollen bestimmte Filterwerte. Diese weiß ich zur Laufzeit per VBA. Aber nun kann es sein, dass dies mal 2 oder 3 oder auch bis zu 10 verschiedene Filter sind. Nun möchte ich die Höhe der Fußzeile immer so gering wie möglich halten. Mal brauche ich dafür dann nur 2,...
19.02.2010 14:06:51
Thread-ID: 1139771
3 Beiträge
Anzeige
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
VPA Zellhöhe verbundener Zeilen anpassen
Philipp

Hallo,
vorab: Ich bin erst vor kurzem mit der Schule fertig geworden und verfüge noch nicht über weitreichende Excel/VBA-Kenntnisse. Bin jedoch jung und jederzeit bereit dazuzulernen.
Mein Problem ist folgendes, ich mache gerade in einer Firma ein Praktikum. Gewisse Formblätter wurden m...
16.11.2011 16:23:16
Thread-ID: 1238134
8 Beiträge
Wandernde Dropbox anpassen; Text in Zahl wandeln
Marcus

Hallo,
folgenden Code hat mir Rudi Mantaire zur Verfügung erstellt.
Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim rngJahr As Range Set rngJahr = Intersect(Range("A1"), Target) If Not rngJahr Is Nothing Then varJahr = Range("A1").Value ComboBox1.Visible = False If Tar...
13.11.2014 14:52:13
Thread-ID: 1392208
10 Beiträge
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
Im VBA Code, alle Zeilen, ein Hochkomma
Dieter(Drummer)
Guten Tag, Spezialisten,
ich suche eine Möglichkeit, vor ALLE markierten Codezeilen, ein Hochkomma zu setzen.
Kann man das in einem Rutsch machen und wie?
Danke für's drum kümmern.
Gruß,
Dieter(Drummer)
19.04.2015 15:54:04
Thread-ID: 1421703
14 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
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
Druckbereich anpassen und Zeilenhöhe anpassen
Henning

Hallo Experten,
leider finde ich hier meinen Eintrag von Vorletzter Woche nicht mehr wieder. Ich habe folgendes Makro. Vor dem Print Out soll der Druckbereich noch angepasst werden von A1 bis zur letzten gefüllten Zeile in B. Außerdem soll noch die Zeilenhöhe automatisch so angepasst werden...
26.02.2018 13:54:42
Thread-ID: 1611132
6 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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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