Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 08:56:18
Textbox in Tabellenblatt ohne Bestätigung in Zelle eintragen
20.04.2024 07:57:54
Tablle fürs E-Auto - Preis wenn kürzer als 60 Min Ladezeit
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1556to1560
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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!

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
AW: ooops, das war der falsche Code...
05.05.2017 11:35:41
arek
Hallo nochmal,
vielen Dank! Das klappt wunderbar...
Viele Grüße
Anzeige

29 Forumthreads zu ähnlichen 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
Anzeige
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
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
6
5
2
7
9
6
13
2
2
16
1
5
3
3
20
6
3
2
3
3
1
2
3
1