Moin,
Hallo!
ich habe eine Excel-Tabelle mit tausenden Zeilen.
wer nicht 
Excel soll nun automatisch die Seitenumbrüche machen.
Dabei soll sich Excel auf eine bestimmte Spalte beziehen
und immer wenn der Wert sich ändert soll der Seitenumbruch
gesetzt werden. Die neue Seite beginnt also jeweils mit dem
ersten Datensatz mit neuem Wert in Spalte XY.
Mit VBA lässt sich das lösen.
Füge folgende Prozedur in ein Modul im VBA-Editor ein:
Sub SeitenwechselSetzen()
Dim Bereich As Range
Dim zeile As Long
Dim spalte As Long
Set Bereich = ActiveSheet.Range("A1:A18")
With Bereich
spalte = .Columns(1).Column
For zeile = 2 To Bereich.Rows.Count
If .Cells(zeile, spalte).Value .Cells(zeile - 1, spalte).Value Then \_
ActiveSheet.HPageBreaks.Add Before:=.Cells(zeile, spalte)
Next zeile
End With
End Sub
Jetzt passt Du noch die Zeile „Set Bereich …“ an und trägst hier den Bezug auf den auf Wertwechsel zu untersuchenden Bereich ein. Achte beim Start des Makro darauf, dass das betroffene Blatt auch aktiviert ist.
Unabhängig von den per Makro gesetzten Seitenumbrüchen wird Excel im Bedarfsfall noch weitere automatische Seitenwechsel einfügen.
Falls Du die per Makro oder andere manuell gesetzte Seitenwechsel wieder löschen möchtest kannst Du folgendes Makro benutzen:
Sub SeitenwechselLöschen()
Dim zähler As Long
For zähler = ActiveSheet.HPageBreaks.Count - 1 To 1 Step -1
ActiveSheet.HPageBreaks(zähler).Delete
Next zähler
End Sub
Hoffe geholfen zu haben.
Gruß, tester
