Private Sub mod4()
    Dim a As Long, b As Long, erg As Long, zw As Long, i As Long, j As Long
 
    zw = ord / 4
    For i = 1 To ord
        For j = 1 To ord
            a = Int((i - 1) / zw)
            b = Int((j - 1) / zw)
            erg = a * 4 + b + 1
            Select Case erg
                Case 1, 4, 6, 7, 10, 11, 13, 16: quadrat(i, j) = (i - 1) * ord _
                  + j
                Case Else: quadrat(ord + 1 - i, ord + 1 - j) = (i - 1) * ord + j
            End Select
        Next j
    Next i
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1