Seitenumbrüche festlegen nach bestimmten Spalten

[Tamexe]

Hallo zusammen, 

ich lese mich seit gestern in diversen Foren durch und finde keine richtige Lösung für mein Problem. Wohl aber habe ich beim durchforsten 
gemerkt, dass ich von Excel nicht wirklich viel Ahnung habe.....  

Ist Situation:

Tabelle = Urlaubskalender
In Spalte A sind untereinander alle Mitarbeiter und nach rechts hin / horizontal kommen die Monate unterteilt in die einzelnen Tage. 
In Zeile 4 kommen immer die Zahlen von 1 bis 30 bzw. 31 (28 Februar) - immer forlaufend nach rechts....
In Zeile 5 stehen die entsprechenden Wochentage.

Ich möchte gerne diesen Kalender in Wochen unterteilen und jede Woche auf ein DINA4 Blatt quer ausdrucken. Das geht nach unten hin ohne weiteres, da es nicht viele Mitarbeiter sind.

Wie bekomme ich die Seitenumbrüche hin ? Im Prinzip müsste es ja so sein, dass Zeile 5 durchsucht wird und nach jedem So ( für Sonntag ) kommt ein Seitenumbruch. Richtig ? 

Ich habe die Befürchtung, dass dies nicht ohne VBA bzw. Makro geht - leider habe ich davon gar keine Ahnung....  

Könnt ihr mir hier ein bisschen unter die Arme greifen...?
Ich danke schonmal im voraus.

[WillWissen]

Hi,

du kannst doch über Seitenlayout/Druckbereich dir die Druckbereiche einrichten.

[schauan]

Hallöchen,

mein Excel hat gerade noch zu tun, daher ungetestet:

Code:

Option Explicit
Sub VBreaks()
Dim iCnt1%,iCnt2%
For iCnt = 1 To 370 step 7
  iCnt2=iCnt2+1
  Set ActiveSheet.VPageBreaks(iCnt2).Location = Cells(1, iCnt1)
Next
End Sub

[Tamexe]

@ WillWissen :ja...das werde ich auch tun müssen, wenn ich es anders nicht hinbekomme....ich wollte es dennoch einfacher haben.....trotzdem danke !

---

Hallo schauan !

Danke für deinen Vorschlag. Funktioniert das auch, wenn die Wochentage erst in Spalte C anfangen und das Jahr mit Di ( Dienstag ) anfängt ?
LG

[schauan]

Hallöchen,

Du musst die Anfangszahl natürlich entsprechend Deinen Gegebenheiten anpassen. Relevant ist dann ja nur noch, dass der Umbruch alle 7 Spalten passiert

[Kuwer]

Hallo Tamexe,

Hallo schauan !

Danke für deinen Vorschlag. Funktioniert das auch, wenn die Wochentage erst in Spalte C anfangen und das Jahr mit Di ( Dienstag ) anfängt ?

funktioniert denn der Vorschlag überhaupt so wie er ist?
Auch wenn die fehlende 1 bei For iCnt = 1 To 370 step 7 ergänzt wird, habe ich da meine Zweifel.  :17:

Zu Deiner Zusatzfrage: Wie werden die Wochentage in Zeile 5 erzeugt? Sind es Texte oder entsprechend formatierte Daten? Vermutlich sind es aber Formeln: Welche?

Gruß Uwe

[Tamexe]

Hallo Uwe,

die Wochentage sind Texte...

[Kuwer]

Hallo Tamexe,

die Wochentage sind Texte...

könntest Du es vielleicht ein klein wenig genauer beschreiben: Was steht im Bearbeitungsfeld, was wird in der Zelle angezeigt, welches Zellformat ist eingestellt?
Dass es pure Texte, also Textwerte, sind, glaube ich nämlich nicht.
Eine Beispieldatei mit den Kopfzeilen wäre natürlich das Sahnehäubchen.

Gruß Uwe

[Kuwer]

Hallo Tamexe,

ich sehe gerade, dass Du OpenOffice angegeben hast. Wenn das wirklich so ist, würde ich das Thema in das entsprechende Unterforum verschieben.

Gruß Uwe

[schauan]

Hallöchen,

hier mal jetzt ein getesteter Excel-Code:

Code:

Option Explicit

Sub VBreaks()
Dim iCnt1%, iCnt2%
For iCnt1 = 7 To 370 Step 7
  iCnt2 = iCnt2 + 1
  ActiveSheet.VPageBreaks.Add Before:=Cells(1, iCnt1)
Next
End Sub