Office: (Office 2010) Zeilen automatisch anpassen, aber mit Mindestzeilenhöhe

Hallo zusammen

Ich habe da ein Problem: ich möchte dass mir Excel die Zeilen automatisch anpasst. Das kann man ja gut einstellen. Aber wie mache ich es, wenn ich eine Mindest-Zeilenhöhe haben will? Also, Excel soll die Zeilen automatisch vergrössern oder verkleinern, aber nur bis zu einer benutzerdefinierten Zeilenhöhe. Ob das wohl möglich ist?

Hoffe auf einen schönen Tipp!

:)

 

Hallo Franz-Xaver,

per Hand nicht. Per VBA ist vieles möglich.

 

Hallo Hajo, danke für deine Antwort!

Meinst du man findet sowas mit Google (oder Yahoo, soll ja im Anmarsch sein :-))

 

Hallo Franz-Xaver,

mache für alle Zeilen automatische Höhe und dann eine Schleifen und prüfen ob Mindesthöhe.
Auf verbundene Zellen sollte dabei verzichtet werden.

 

Hallo Franz-Xaver,

Code:

 

Hallo Hajo

Ganz herzlichen Dank! Hat ja viele Lösungen im Google, aber die richtige habe ich nun dank dir!

Jetzt habe ich aber noch eine, bzw. 2 Fragen. Vielleicht hast du Zeit und Lust auch dieses Problem noch zu lösen.

Das Makro sollte immer ausgeführt werden, wenn ich "Seitenansicht und Drucken" wähle, und zwar in allen Blättern (hat etwa 8 Blätter).

2. Problem: wenn ich das Makro "laufen lasse", dann fangen alle Schaltflächen welchen ich Makros zugeordnet habe an zu flackern. Vielleicht hast du da noch einen Tipp?

Weisst du, ich kann nicht coden, ich kann nur Makros verwalten und einbauen.... *rolleyes.gif*

 

Das Flakern kommt da Du die Bildschirmaktualisierung nicht ausschaltetest.
Application.Screenupdating = False ‚ Flakern
nicht vergessen einschalten.
Benutze das Ereignis
Private Sub Workbook_BeforePrint(Cancel As Boolean)
unter diese Arbeitsmapppe.
Schleife über alle Tabellen.
Code:

 

uff, das ist schon zu "chinesich" für mich.

Muss ich also das Ereignis in ein neues Klassenmodul einfügen? Ich weiss jetzt nicht genau, wo ich was einfügen muss..... sorry

 

warum liest Du nicht meinen Beitrag, habe ich den also umsonst geschrieben. Ich bin dann raus.

 

Ich habe es x-mal gelesen, aber wenn man nicht weiss, wie man "Ein Ereignis benutzt" und "Schleifen über alle Tabellen setzt", dann nützt alles lesen nichts. Aber ich vestehe dich, danke für das geschriebene und hab einen schönen Abend.

 

Hallo Hajo

Nicht verschrecken, ich bringe dir hier eine positive Nachricht! Mithilfe von einem Benutzer in einem CH-Forum http://www.pctipp.ch/forum/showthrea...059#post193059 habe ich es in die Reihe gebracht, funktioniert jetzt super so! Deine Postings waren also alles andere, als für die Katz! Aber deine fachlichen Ausdrücke konnte ich nicht verwerten. Also nochmals herzlichen Dank! ... und übrigens, dass du mich Häppchenweise zur Lösung geführt hast, und am Schluss gar nichts mehr geschrieben hast, das war "Sehr gute Schule", und das ist nicht ironisch gemeint!

Falls jemand dieses Makro auch benutzen will, muss man folgendes machen:

VBA Editor öffnen und unter "DieseArbeitsmappe" untenstehenden Code einfügen:

Code: