Dieses kann ich nur mit jeweils einem Tabellenblatt machen. Bei vorheriger Gruppierung wird es nicht für andere Tabellenblätter übernommen.
Möchte aber die gleiche Unterteilung in 70 Tabellenblättern haben.
Sub AlleSplitten()
Dim lSplitRow As Long
Dim wS As Worksheet
Dim iW As Integer
iW = ActiveSheet.Index
lSplitRow = ActiveWindow.SplitRow
Application.ScreenUpdating = False
For Each wS In ThisWorkbook.Worksheets
wS.Activate
ActiveWindow.SplitRow = lSplitRow
Next
ThisWorkbook.Worksheets(iW).Activate
Application.ScreenUpdating = True
End Sub
GreetZ Renée