Hi,

so, bis vor kurzem hatte ich noch keinen Plan von Excel Programmierung via VBA, jetzt steht schon ein nettes Programm auf den Beinen. Mein Problem ist nur, das ich überprüfen muß, ob ein Seitenumbruch vorliegt, und wenn ja, ein neue Seiten Header eingefügt wird. Wie mach ich diese Überprüfung?

So gehts nicht:

'Seitenumbruch? Dann neuen Header

If (Tabelle2.Rows(ActiveCell.Row).PageBreak = xlPageBreakManual) Then

Reihe = Reihe + 1

Call Header

End If

Ach, wo wir schonmal dabei sind, gibt es gute Seiten zu VBA im Netz? Ich hab nämlich noch viele Verweise auf Tabelle1 und Tabelle2, und die möcht ich weg haben. Ach *G* und wie pack ich Zahl und String in eine Cell? Mit "Text" + Zahl gehts nit, und Zahl.ToString() scheint es auch nicht zu geben. Ich könnte es jetzt auch nachschlagen, aber so geht es vielleicht schneller

Danke!

Wie wär's mit

if activesheet.rows(activecell.row).pagebreak <> xlpagebreaknone then

 ' mach was

end if

Hab's gerade versucht und klappt!

btw. Wieso trägst Du beim Druck nicht einfach Wiederholungszeilen ein??

Zu Text & String:

Also bei mir klappt cells(x,y).value = Zahl & String

CU,

Red Bull

<FONT COLOR="#a62a2a" SIZE="1">[ 29. Oktober 2001 14:18: Beitrag 1 mal editiert, zuletzt von RedBull ]</font>

Ach Kaufmännisches Und bei der Verknüpfung. Ich glaub bei + wollte er es addieren. Naja, ich komm ja auch nicht aus dem VB Lager...

<BLOCKQUOTE><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Zitat:</font><HR>Wieso trägst Du beim Druck nicht einfach Wiederholungszeilen ein??