Live-Forum - Die aktuellen Beiträge
Datum
Titel
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
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1192to1196
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
1192to1196
1192to1196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Zeilenhöhen auf eine Seite anpassen

Zeilenhöhen auf eine Seite anpassen
Tipetan
Hallo Excel-Gemeinde!
Ich habe eine Tabelle mit Inhalt für maximal eine Seite A3 quer. Die Spaltenanzahl ist fest und die Breite ist auf ein Maximum eingestellt - die 14 Spalten verteilen sich über die gesamte Breite meiner Seite.
Nun zu meinem Problem: Ich habe eine variable Anzahl von Datenzeilen und möchte die Zeilenhöhe aller Datenzeilen auf Gesamthöhe meiner Seite anpassen um das Blatt immer maximal gefüllt zu haben.
Hat jeman von euch eine Idee?
Datenzeilen sind die Zeilen mit meinen Variablen Zeilen. Dieser Bereich beginnt in Zeile 3. Dadrüber sind Titel und Spaltenüberschriften die in der Höhe nicht geändert werden sollen.
Danke im Voraus
Tipetan

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

Betreff
Benutzer
Anzeige
AW: Zeilenhöhen auf eine Seite anpassen
07.01.2011 13:00:04
Reinhard
Hallo Tipetan,
schreib mal 3 -60 in A3:A60, dann Seitenansicht. Die unterste Zahl die sichtbar ist merkst du dir und setzt sie in Blatthöhe anstatt der 56 ein.
Dann startest du Blatthöhe, klickst immer auf Schließen bis unten die Zahl auf eiinmal wieder erscheint, in A siehst du ja dann die Blatthöhe in A10. Diese Zahlm im Beispiel die 713,25 trägst du in Vergroessern ein und startest Vergrößern.
Das Ganze ist jetzt für Hochformatausdruck, ggfs. mußt du da was abändern für Querformat.
Gruß
Reinhard
Option Explicit
Sub Blatthoehe()
Dim N, Zeilen
Zeilen = 56
Cells(Zeilen - 1, 1).RowHeight = 2 * Cells(Zeilen - 1, 1).RowHeight
For N = 10 * Cells(Zeilen - 1, 1).RowHeight To 0 Step -10
Cells(Zeilen - 1, 1).RowHeight = N / 10
Cells(10, 1).Value = Cells(Zeilen + 1, 1).Top
ActiveSheet.PrintPreview
Next N
End Sub
Sub Vergroessern()
Range("A3:A14").RowHeight = (713.25 - Range("A3").Top) / 12
ActiveSheet.PrintPreview
End Sub

Anzeige
AW: Zeilenhöhen auf eine Seite anpassen
10.01.2011 11:43:11
Tipetan
Hallo Reinhard,
Danke für deine Antwort. Ich habe getan was du in deinem Anschreiben gesagt hast. Mit Hilfe der Blatthöhe habe ich den Wert 843 ermitteln können.
Nachdem ich das Sub Vergrössern ausgeführt habe ist folgendes passiert:
- Die Zeilen 3-14 wurden auf eine Höhe von 64,50 (86 Pixel) gebracht
- Die Zeile 13 war noch auf der ersten Seite wobei die Zeile 14 und Folgende auf den darauf folgenden Seiten verteilt war
- Der Rest bis 60 stand auf 13,50 (18 Pixel)
- Auffällig war noch, das die Zeile 58 nicht mehr zu sehen war. Was aber glaube ich verursacht wurde durch das Sub Blatthöhe
Hier noch mein Code: 
Sub Blatthoehe()
Dim N, Zeilen
Zeilen = 59   '56
Cells(Zeilen - 1, 1).RowHeight = 2 * Cells(Zeilen - 1, 1).RowHeight
For N = 10 * Cells(Zeilen - 1, 1).RowHeight To 0 Step -10
Cells(Zeilen - 1, 1).RowHeight = N / 10
Cells(10, 1).Value = Cells(Zeilen + 1, 1).Top
ActiveSheet.PrintPreview
Next N
End Sub
Sub Vergroessern()
Range("A3:A14").RowHeight = (843 - Range("A3").Top) / 12
ActiveSheet.PrintPreview
End Sub

Danke Tipetan
Anzeige
Frage noch offen o.w.T.
11.01.2011 16:04:28
Reinhard

AW: Frage noch offen o.w.T.
12.01.2011 14:32:32
Tipetan
Hallo!
Die Zeile 59 soll die letzte Zeile auf der Seite sein und nicht die Zeile 13.
Woran könnte es denn liegen?
Danke
tipetan

315 Forumthreads zu ähnlichen Themen

Schriftgröße Zelle automatisch an Inhalt anpassen
Peter

Hallo Leute!
Folgende Situation: ich habe in einer Arbeitsmappe auf mehreren Tabellenblättern zu oberst das gleiche Design. Unter anderem steht auf jedem Blatt oben in einer Zelle die gleiche Information. Aus Gründen der Einfachheit muss man diese Information nur einmal auf dem ersten Tabel...
21.08.2008 15:04:06
Thread-ID: 1003519
4 Beiträge
Anzeige
wirkllich AUTOMATISCHE Zeilenhöhe bei langem Texti
Christian

Hallo Forum,
habe im Archiv gesucht, aber keine schlüssige Antwort gefunden... daher meine Frage:
in einem Arbeitsblatt mit nicht verbundenen Zelle steht in einigen Zellen Text der deutlich länger ist als die Zeilenbreite. Daher habe ich den Zeilenumbruch (für die gesamte Spalte in der...
07.01.2009 15:43:00
Thread-ID: 1037580
8 Beiträge
Zellengröße automatisch anpassen
Ralf

Hallo Excel - Experten,
ich hole mir per sverweis aus einem anderen Tabellenblatt
unterschiedlich langen Text und möchte ihn dann ausdrucken.
Wie kann ich z.B. Zelle Z 5 automatisch so anpassen, daß mir
Excel immer den kompletten Text anzeigt, die Zelle also
vergrößert...
17.07.2009 10:56:33
Thread-ID: 1089311
7 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
Zeilen automatisch einfügen Druckbereich anpassen
andreas

Hallo zusammen,
habe hier eine Anwendung bei der unterschiedlich viele Positionen vorkommen. In Tabelle1 werden die Positionen angelegt, in AN sollen diese zum Druck generiert werden. Sind mehr als vier Positionen hat nicht mehr alles auf einer Seite Platz. Jetzt sollen wenn mehrere Positio...
15.06.2010 20:03:35
Thread-ID: 1161890
3 Beiträge
Excel 2010 - Zeilenhöhe anpassen
Sandra

Hallo Ihr,
ich bins mal wieder. Habe mal wieder ein Problem, zu dem mir keine Lösung einfällt.
Mein Problem:
Ich habe in Excel Text in einer Zelle. In der Bearbeitungsansicht und in der Seitenansicht wird alles korrekt dargestellt. Wenn ich dann aber den Ausdruck in der Hand halte...
30.11.2010 12:56:22
Thread-ID: 1189174
15 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
Autofit - rowheight
Joe

Hallo Leute,
ich würde gerne die optimalen Zeilenhöhe nur über die Zellen der Spalte 2 bestimmen lassen. Mit meinem Makro, ich hab schon unten stehenden Varianten ausprobiert, wird die optimale Zeilenhöhe auf Basis der Zelle mit den meisten Zeilenumbrüchen von allen Spalten bestimmt.
a...
15.03.2012 17:51:50
Thread-ID: 1255141
7 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
3
7
7
6
3
5
2
14
2
6
5
3
2
2
6
1
12
2
3
9
6
14
3
1
1