bedingter Seitenwechsel

Forumthread: bedingter Seitenwechsel
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: bedingter Seitenwechsel

06.10.2005 13:07:39

Oliver

Hallo
wir haben eine Liste, in welcher Stunden von Mitarbeitern erfasst sind. In der Spalte 1 wird die P-Nummer geführt. Nun soll die Liste nach P-Nummer sortiert werden und....
jetzt kommt das eigentliche Problem:
... nach jeder P-Nummer soll ein Seitenwechsel erfolgen.
Wir kann man das in VBA lösen?
Danke
OP

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: bedingter Seitenwechsel

06.10.2005 13:19:13

René
AW: bedingter Seitenwechsel

06.10.2005 13:45:18

Oliver
AW: bedingter Seitenwechsel

06.10.2005 15:57:46

Beni
AW: bedingter Seitenwechsel

06.10.2005 16:24:48

Oliver

AW: bedingter Seitenwechsel

06.10.2005 13:19:13

René

hi,
was ist die P-nummer? steht dies irgendwie in bezug zu den sheetnamen?, bzw meist du einen manuellen Seiten wechsel im sheet oder einen sheetwechsel?
lg René

AW: bedingter Seitenwechsel

06.10.2005 13:45:18

Oliver

Die P-Nummer ist die Personalnummer!
Sie steht in keinem Bezug zu der Tabelle oder anderen Dingen. Ziel soll sein, dass wir eine ausgedruckte Liste pro Mitarbeiter bekommen, ohne den Seitenumbruch manuell erstellen zu müssen!

AW: bedingter Seitenwechsel

06.10.2005 15:57:46

Beni

Hallo Oliver,
du musst noch die Anzahl Spalten anpassen(ist bei 7).
Gruss Beni


Sub Oliver()
Dim p, beginn, ende
For i = 2 To Cells(65536, 1).End(xlUp).Row
p = Cells(i, 1)
If Not Cells(i, 1) = Cells(i - 1, 1) Then beginn = i
If Not Cells(i, 1) = Cells(i + 1, 1) Then ende = i
If Not beginn = "" And Not ende = "" Then
Range(Cells(beginn, 1), Cells(ende, 7)).PrintOut Copies:=1, Collate:=True
beginn = "": ende = ""
End If
Next i
End Sub