Option Explicit
 
Private Type tCell
  v As Integer
  c As Long
End Type
 
Private A() As tCell
Private Rot() As tCell
 
Private MaxZ As Integer
Private MaxS As Integer
 
Private Sub cmd180_Click()
 
  Dim z As Integer
  Dim s As Integer
 
  ReDim tmp(1 To MaxZ, 1 To MaxS) As tCell
 
  For z = 1 To MaxZ
    For s = 1 To MaxS
      Rot(z, s).v = A(MaxZ - s + 1, z).v
      Rot(z, s).c = A(MaxZ - s + 1, z).c
    Next s
  Next z
 
  tmp = Rot
 
  For z = 1 To MaxZ
    For s = 1 To MaxS
      Rot(z, s).v = tmp(MaxZ - s + 1, z).v
      Rot(z, s).c = tmp(MaxZ - s + 1, z).c
    Next s
  Next z
 
  ShowMatrices
 
End Sub
 
Private Sub cmd90_Click()
 
  Dim z As Integer
  Dim s As Integer
 
  For z = 1 To MaxZ
    For s = 1 To MaxS
      Rot(z, s).c = A(MaxZ - s + 1, z).c
      Rot(z, s).v = A(MaxZ - s + 1, z).v
    Next s
  Next z
 
  ShowMatrices
 
End Sub
 
Private Sub Form_Load()
 
  ReDim A(1 To 3, 1 To 3)
  ReDim Rot(1 To 3, 1 To 3)
  MaxZ = UBound(A, 1)
  MaxS = UBound(A, 2)
 
 
  Dim z As Integer
  Dim s As Integer
 
  For z = 1 To MaxZ
    For s = 1 To MaxS
      A(z, s).v = CMatVecIdx(z, s)
      A(z, s).c = MatA(CMatVecIdx(z, s)).BackColor
      Rot(z, s).v = A(z, s).v
      Rot(z, s).c = A(z, s).c
    Next s
  Next z
 
 
 
  ShowMatrices
 
End Sub
 
Private Sub ShowMatrices()
 
  Dim z As Integer
  Dim s As Integer
 
  For z = 1 To MaxZ
    For s = 1 To MaxS
      MatA(CMatVecIdx(z, s)) = A(z, s).v
      MatA(CMatVecIdx(z, s)).BackColor = A(z, s).c
    Next s
  Next z
 
  For z = 1 To MaxZ
    For s = 1 To MaxS
      MatRot(CMatVecIdx(z, s)) = Rot(z, s).v
      MatRot(CMatVecIdx(z, s)).BackColor = Rot(z, s).c
    Next s
  Next z
 
End Sub
 
Private Function CMatVecIdx(ByVal vRow As Integer, vColumn As Integer) As _
  Integer
  CMatVecIdx = (vRow - 1) * MaxS + vColumn
End Function

Gruß
Dirk

--
?Get it right the first time