HERBERS Excel-Forum - das Archiv
Warum kann ich die Zeilenhöhe nicht auf automatisch ändern?
Dirk
Hallo
ich würde gerne in dieser Datei die Zeilenhöhe auf automatisch anpassen.
Das würde ich am liebsten auch in meinem VBA Scripta einfügen.
Leider funktioniert das schon von Hand nicht und auch nicht per VBA
Was mache ich falsch?
Ich bin für jeden Tipp offen und bedanke mich schon einmal im voraus für eure Hilfe.

https://www.herber.de/bbs/user/177287.xlsx
AW: Warum kann ich die Zeilenhöhe nicht auf automatisch ändern?
Sigi.21
Hallo Dirk,

schau mal da ...

FORMAT - Blatt schützen - ?

Gruß Sigi
AW: Warum kann ich die Zeilenhöhe nicht auf automatisch ändern?
Oberschlumpf
Hi Dirk,

a) allein nur die Info "es funktioniert nicht" reicht nicht wirklich - weil - was genau hast du denn schon versucht?

b) hast du schon mal gegoogelt? Ich schon - und gefunden hab ich z Bsp das hier:
https://www.herber.de/forum/archiv/1872to1876/1874966_VBA_automatische_Zeilenhoehe.html

c) wieso willst du denn die Zeilenhöhe (automatisch) ändern?
Zumindest anhand deiner Bsp-Datei erkenne zumindest ich nicht die Notwendigkeit - aber ok, Frage c) hilft wohl nicht unbedingt bei der Problemlösung, aber ich bin einfach nur neugierig.

Hilfts?

Ciao
Thorsten
AW: Warum kann ich die Zeilenhöhe nicht auf automatisch ändern?
Dirk
In diesem Tabellenblatt sind die Zeilen 29-37 z.B. ja nicht ganz zu lesen.
Das wäre aber schon gewünscht, da ich später damit Protokolle drucken möchte.

Das VBA Snippit aus dem andren Thread, den du verlinkt hast, bekommt die Höhe leider auch nicht angepasst.
Das funktioniert ja auch von Hand nicht.
Ich habe aber keine Idee, warum das nicht geht.
AW: Warum kann ich die Zeilenhöhe nicht auf automatisch ändern?
daniel
Hi
hast du die Antwort von hary gelesen?

Automatische Höhen- oder Breitenanpassung funktioniert nur in nicht verbundenen Zellen!
Du hast aber auf dem Blatt verbundene Zellen, daher musst du hier die Höhe und Breite der Zellen von Hand anpassen.
oder das Blatt so umgestalten, dass du ohne verbundene Zellen auskommst.

Gruß Daniel
AW: Warum kann ich die Zeilenhöhe nicht auf automatisch ändern?
Dirk
Vielen Dank für die wirklich hilfreiche Lösung,
da ich "Experte" den Beitrag von hary übersehen habe.
Warst du quasi derjenige der mich auf die Richtige Idee gebracht hat.
Vielen Dank
Mfg
Dirk
AW: Warum kann ich die Zeilenhöhe nicht auf automatisch ändern?
Dirk
Hallo Sigi,
erst einmal danke für deine Antwort.
Jedoch kann ich keinen Blattschutz erkennen.

Mfg
Dirk
AW: Warum kann ich die Zeilenhöhe nicht auf automatisch ändern?
Sigi.21
Hi,

warum werde ich nach einem Passwort gefragt ???
https://www.herber.de/bbs/user/177290.xlsx

Gruß Sigi
AW: Warum kann ich die Zeilenhöhe nicht auf automatisch ändern?
Dirk
Da kannst du das Passwort angeben, das du brauchst um den Blattschutz wieder aufzuheben, den du in dem Feld, was du da zeigt erst anlegen kannst.
Du hast quasi die Eingabemaske für das ANLEGEN der Balttschutzes vor dir.
Mfg
Dirk
AW: Warum kann ich die Zeilenhöhe nicht auf automatisch ändern?
Sigi.21
Hallo Dirk,

da hast du den Grund!
Du hast doch damit auch die Anpassung der Zeilenhöhe g e s p e r r t !

Gruß Sigi
AW: Warum kann ich die Zeilenhöhe nicht auf automatisch ändern?
Dirk
Nein, das kann da EINGESTELLT werden.
Erst wenn du da auf "OK" klickst, WIRD das Blatt geschützt.
Es ist also ungeschützt, was man auch am Symbol erkennen kann, denn dann würde da "Schutz aufheben" stehen, wenn das Blatt geschützt wäre.
AW: Warum kann ich die Zeilenhöhe nicht auf automatisch ändern?
hary
Moin
Das liegt an den verbunden Zellen.
Versuch mal so. Waehle eine Zelle aus und starte das Makro. 
Sub Zellen_Hoehe()

Application.ScreenUpdating = False

  With Selection        '--ausgewaehlte Zelle

  .UnMerge                '---Verbundung aufheben

  .Rows.AutoFit           '---Höhe anpassen, dass ganzer Inhalt sichtbar

  .Merge                  '---Zellen wieder verbinden

  .RowHeight = ActiveCell.Columns.Width * .Height / .Width '---neue Höhe der verbundenen Zellen

End With

Application.ScreenUpdating = True

End Sub

Hilfts?
gruss hary
AW: Warum kann ich die Zeilenhöhe nicht auf automatisch ändern?
Dirk
Hallo,
leider habe ich deinen Beitrag überlesen.
Dein Tipp werde ich gleich mal testen.
vielen Dank auf jeden Fall schon einmal für deine Hilfe.
Mfg
Dirk
AW: Warum kann ich die Zeilenhöhe nicht auf automatisch ändern?
Oberschlumpf
Sigi...ähh :-)

Hi erst mal...

wie auch Dirk schon mehrfach es versuchte, versuch auch is es mal....dich darüber zu informieren, dass der Blattschutz - noch gar nicht - aktiviert ist.
Wenn du an der Position, die dein Bild zeigt, auf OK klickst - erst dann - ist der Blattschutz aktiv....ich hoffe, ich konnte helfen, dein Brett vorm Kopf zu beseitigen :-))

Ciao
Thorsten