Seitenwechsel nach letztem Datensatz
18.07.2003 08:13:41
Oliver
folgendes Problem: ich habe eine liste, wo in der ersten Spalte mehrmals ein gleicher Wert steht. Ich möchte nun nach dem letzten Wert einen Seitenwechsel automatisch durchführen, vor dem neuen Wert. zB 150 Zeilen mit Wert "01", dann kommt "02". Vor dem ersten Wert von "02" brauche ich den Seitenwechsel.
Soviel habe ich schon aus dem Forum herausgefunden:
Sub seitenwechsel()
Dim zaehler
For zaehler = 1 To 65536 'Wobei '65536' die maximale Tabellengröße ist
If Cells(zaehler, 1) = "01" Then
Cells(zaehler, 1).Activate
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
Next zaehler
End Sub
Vielen Dank für eure Hilfe
Oliver
Anzeige