bestimmte Zeilen Ausblenden(die zweite)

Sub Zellen_Ausblenden_Neu()
Dim intAkt As Integer, intAnf As Integer, _
intMax As Single, intStep As Integer
Dim Zelle As Range, Anzahl As Single
Dim bereich As Range
Dim i As Long
Dim var As Integer
Set bereich = Range("C8:C3000")
For Each Zelle In bereich
If Zelle.Borders(xlEdgeBottom).LineStyle <> xlNone Then intMax = intMax + 1
Next
intMax = intMax / 28
If Len(CStr(intMax)) > 2 Then MsgBox "Ungerade "
Application.ScreenUpdating = False
For i = 1 To intMax
Rows(8 + (i - 1) * 28).EntireRow.Hidden = True
Next
For i = 1 To intMax
Rows(11 + (i - 1) * 28).EntireRow.Hidden = True
Next
Range("B7").Select 'Wenn's sein muss ;-)
Application.ScreenUpdating = True
End Sub