Excel Makro Zeilen Gruppieren

Computer: Software & Programmierung Office Software
#1

Hallo,
ich habe eine Tabelle mit 52540 zeilen
ich möchte jetzt immer 144 zeilen gruppieren

meine tabelle sieht wie folgt aus

a
b
c
Summe
d
e
f
Summe

abc, def
sollen immer gruppiert werden

Ich komme mit dem range befehl nicht klar

mein Code
Sub Makro3()
’
’ Makro3 Makro
’

'For i = 1741 To 52540
Range 144.Select
Selection.Rows.Group
Selection.EntireRow.Hidden = True
End Sub

#2

ich habe eine Tabelle mit 52540 zeilen
ich möchte jetzt immer 144 zeilen gruppieren
Sub Makro3()
'For i = 1741 To 52540
Range 144.Select
Selection.Rows.Group
Selection.EntireRow.Hidden = True
End Sub

Hallo extra,

vllt. so:

Option Explicit

Sub Gruppen()
Dim Zei As Long
For Zei = 1741 To 52540 Step 145
 With Cells(Zei, 1).Resize(144, 1)
 .Rows.Group
 .EntireRow.Hidden = True
 End With
Next Zei
End Sub

Gruß
Reinhard