Aufgabe für Profies

• Aufgabe für Profies von Atikar vom 31.10.2003 08:29:43
  • Sinn? - von ChrisL am 31.10.2003 15:33:52
    • AW: Sinn? - von Atikar am 02.11.2003 08:34:40
    • AW: Sinn 2 mit Datei - von Atikar am 02.11.2003 08:42:58
      • AW: Sinn 2 mit Datei - von Reinhard am 02.11.2003 10:07:08
        • AW: Sinn 2 mit Datei - von Atikar am 03.11.2003 11:22:22

Betrifft: Aufgabe für Profies
von: Atikar
Geschrieben am: 31.10.2003 08:29:43
Hallo Leute,

wer kann mir bei folgender Aufgabenstellung helfen.

x steht für eine gesamthöhe von verschiedenen zeilen (zeilenhöhe + zeilenhöhe usw.

jetzt soll ein makro über die tabelle laufen und die zeilenhöhen der zeilen die zwischen den seitenümbrüchen liegen addieren und mit x vergleichen, sind sie kleiner, dann soll die letzte zeile vorm nächsten zeilenumbruch so vergrössert werden, das die summe der zeilenhöhen wieder x ergibt.

ich hoffe es kann mir einer helfen.

ciao

Atikar

Betrifft: Sinn?
von: ChrisL
Geschrieben am: 31.10.2003 15:33:52
Hi Atikar

Darf man fragen, was der Sinn und Zweck ist?

Gruss
Chris

Betrifft: AW: Sinn?
von: Atikar
Geschrieben am: 02.11.2003 08:34:40
Hallo Chris,

wenn die Gesamtzahl der Zeilenhöhen zwischen Seitenumbrüchen nicht den Maximalwert eines Druckblattes haben, dann werden z.B. auch nur bis zum gefüllten Bereich (eventuell nur ein halbes Blatt) die Linien (Rahmen) gedrückt.

ciao

Atikar

Betrifft: AW: Sinn 2 mit Datei
von: Atikar
Geschrieben am: 02.11.2003 08:42:58
Hallo Chris,

anbei noch ein Link mit einer Beispieldatei, Sie enthält 2 Mappen schau dir jeweils dazu die Seitenansicht an, bei Mappe1 (Falsch) ist nur bis zum 3/4tel Blatt bedruckt, bie Mappe2 (Richtig) ist das ganze Blatt bedruckt.

https://www.herber.de/bbs/user/1708.xls

ciao

Atikar

Betrifft: AW: Sinn 2 mit Datei
von: Reinhard
Geschrieben am: 02.11.2003 10:07:08
Moin Atikar,
probier mal das aus.
Die Druckhöhe kannst du ja manuell ermitteln, mit A9-Höhe verändern bis die Seitenansicht stimmt.
Gruß
Reinhard
ps: mit Step .25 und 0.5 passiert manchmal gar nichts? *grübel*

Sub t()
Druckhöhe = 480
x = Range("A11").Top
While x < Druckhöhe
Range("A9").RowHeight = Range("a9").Height + 1
x = Range("A11").Top
Wend
Range("A9").RowHeight = Range("a9").Height - 1
End Sub

Betrifft: AW: Sinn 2 mit Datei
von: Atikar
Geschrieben am: 03.11.2003 11:22:22
Hallo Reinhard,

danke für deine nachricht, ich habe mir aus deinem und einem anderen makro mittlerweile eins zusammengestrickt das zu 90% funktionier, nur noch ein paar feinheiten.

ciao

atikar

Excel-Beispiele zum Thema " Aufgabe für Profies"
Abfrage von Rechenaufgaben zeitgesteuert nach dem Zufallsprizip