Matritzen an Function uebergeben
17.10.2007 21:56:15
Knut
ich versuche einer Funktion Matritzen, am liebsten byref zu uebergeben.
Wenn ich den ganzen Code von Hand schreibe, also ohne Function wuerde das zu unuebersichtlich werden
Hat jemand eine Idee ?
(Das Problem ist, dass ich derselben Function verschieden benannte Matritzen geben moechte)
Danke im voraus,
Knut
Meine Matritzen :
Public nzgew(21, 12) As Long
Public zgew(21, 12) As Long
Public nzver(21, 12) As Long
Public zver(21, 12) As Long
Public nzune(21, 12) As Long
Public zune(21, 12) As Long
und hier die funktion
Function werteeintragen(ByVal zelle As Range, ByVal matrix As Long)
kasten Range(Cells(4, 14), Cells(4, 14)), "Gezogen und Verloren"
For i = zelle.Row To zelle.Row + 20
For j = 0 To 7
Cells(i, j + zelle.Column) = matrix(i - zelle.Row + 1, j)
Next j
Next i
End Function