Dynamischen Seitenumbruch/Druckbereich
02.07.2004 21:38:57
Scheibe
suche eine Möglichkeit den Seitenumbruch dynamisch festzulegen so dass das Makro immer auf eine Zelle zugreift in der ich den Seitenumbruch/Druckbereich vorher fetgelegt habe. Auf manchen Blättern brauche ich nur eine Seite auf anderen Blättern 2 Seiten! Habe bisher ein Makro für alle Blätter und nun soll eben auch das noch ergänzt werden.
Check einfach nicht wann der Makrorekorder
Set ActiveSheet.VPageBreaks(1)
oder
Set ActiveSheet.VPageBreaks(4
oder nur
ActiveSheet.VPageBreaks(1)
produziert!? Und dann auch noch HPageBreaks und Druckbereich!?
Hab da ein Makro mit Seitenumbruch bei Gelber Zelle gefunden, hab es aber nicht geschafft das ganze auf Umbruch bei "Unterschrift" (als Zellwert) umzubauen!
Wo lernt man am schnellsten Makroprog? Ich brauch 2 Tage für den kleinesten Mist... Too stupid!
Anbei das (bereits verhunzte) "gelbe Makro":
Sub GelberUmbruch()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
If Zelle = "Unterschrift_Gesprächsleitung" Then_ActiveSheet.HPageBreaks.Add Before:=Zelle
Next
End Sub