Brauche mal wieder Eure Hilfe.
Ich habe das angefügte Makro aufgezeichnet zum einfügen bzw. korrigieren von Spaltenumbrüchen. Das Funktioniert sehr gut. Aber leider müsste ich dazu jedes einzelne Arbeitsblatt aufrufen. Wie muss ich es schreiben um dem Makro zu sagen mache dies in den jewiligen Arbeitsblatt hintereinander. Also z.B: Blatt1, Blatt 2, Blatt3, Blatt4 usw. Die Blätter die es betrifft sind alle genau gleich. Aber nicht die Gesamte Arbeitsmappe.
Es wäre sehr nett, wenn Ihr mir einen Weg weisen könntet.
LG Robert
Sub Spalten_Umbruch()
' Spalten_Umbruch Makro
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 1
Columns("H:H").Select
Range("H2").Activate
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Columns("O:O").Select
Range("O2").Activate
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Columns("O:O").Select
Range("O2").Activate
ActiveSheet.VPageBreaks(2).Delete
Columns("O:O").Select
Range("O2").Activate
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Columns("V:V").Select
Range("V2").Activate
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Columns("AC:AC").Select
Range("AC2").Activate
Columns("AC:AC").Select
Range("AC2").Activate
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Range("AH42").Select
ActiveWindow.ScrollColumn = 2
ActiveWindow.ScrollColumn = 3
ActiveWindow.ScrollColumn = 4
ActiveWindow.ScrollColumn = 5
ActiveWindow.ScrollColumn = 6
ActiveWindow.ScrollColumn = 7
ActiveWindow.ScrollColumn = 8
ActiveWindow.ScrollColumn = 9
ActiveWindow.ScrollColumn = 10
ActiveWindow.ScrollColumn = 11
ActiveWindow.ScrollColumn = 12
ActiveWindow.ScrollColumn = 13
ActiveWindow.ScrollColumn = 14
ActiveWindow.ScrollColumn = 15
ActiveWindow.ScrollColumn = 16
ActiveWindow.ScrollColumn = 17
ActiveWindow.ScrollColumn = 18
ActiveWindow.ScrollColumn = 19
ActiveWindow.ScrollColumn = 20
ActiveWindow.ScrollColumn = 21
ActiveWindow.ScrollColumn = 22
ActiveWindow.ScrollColumn = 23
ActiveWindow.ScrollColumn = 24
ActiveWindow.ScrollColumn = 25
ActiveWindow.ScrollColumn = 26
ActiveWindow.ScrollColumn = 27
Columns("AJ:AJ").Select
Range("AJ2").Activate
ActiveSheet.VPageBreaks(5).Delete
Columns("AJ:AJ").Select
Range("AJ2").Activate
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Columns("AQ:AQ").Select
Range("AQ2").Activate
ActiveSheet.VPageBreaks(6).Delete
Columns("AQ:AQ").Select
Range("AQ2").Activate
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Columns("AX:AX").Select
Range("AX2").Activate
ActiveSheet.VPageBreaks(7).Delete
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Columns("BE:BE").Select
Range("BE2").Activate
ActiveSheet.VPageBreaks(8).Delete
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
ActiveWindow.SmallScroll ToRight:=20
Columns("BL:BL").Select
Range("BL2").Activate
ActiveSheet.VPageBreaks(9).Delete
Columns("BL:BL").Select
Range("BL2").Activate
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Columns("BS:BS").Select
Range("BS2").Activate
ActiveSheet.VPageBreaks(10).Delete
Columns("BS:BS").Select
Range("BS2").Activate
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
ActiveWindow.SmallScroll ToRight:=16
Columns("BZ:BZ").Select
Range("BZ2").Activate
ActiveSheet.VPageBreaks(11).Delete
Columns("BZ:BZ").Select
Range("BZ2").Activate
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Columns("CG:CG").Select
Range("CG2").Activate
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Columns("CN:CN").Select
Range("CN2").Activate
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
ActiveWindow.SmallScroll ToRight:=15
Columns("EY:EY").Select
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Columns("FF:FF").Select
ActiveSheet.VPageBreaks(15).Delete
Columns("FF:FF").Select
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
Range("FA42").Select
End Sub