Public
EB(500)
Public
AB(500)
Sub
Bloecke()
zz = ActiveSheet.Cells(Rows.Count, 3).
End
(xlUp).Row
For
I = 14
To
zz + 1
If
Right(Range(Cells(I, 3), Cells(I, 3)).Value, 2) =
"01"
Then
AB(yi) = Range(Cells(I, 3), Cells(I, 3)).Row
End
If
Next
I
For
I = 15
To
zz + 1
If
Right(Range(Cells(I, 3), Cells(I, 3)).Value, 2) =
"01"
Then
EB(yi) = Range(Cells(I, 3), Cells(I, 3)).Row - 1
End
If
If
Right(Range(Cells(I, 3), Cells(I, 3)).Value, 2) =
""
Then
EB(yi) = Range(Cells(I, 3), Cells(I, 3)).Row - 1
End
If
Next
I
Call
a
End
Sub
Sub
a()
For
y = 1
To
8
MsgBox AB(2) &
" - "
& EB(2) &
" / "
& y
Next
y
End
Sub