Hallo,



im Prinzip so:



Option Explicit



Sub do_it()

Dim arr(2, 5) As Long

Dim i As Integer, j As Integer

For i = 1 To 2

For j = 1 To 5

arr(i, j) = i * j

Next j

Next i

MsgBox DeineFunction(arr())

End Sub



Function DeineFunction(arr() As Long)

DeineFunction = arr(2, 5)

End Function


Grüße vom Pianoman

geschrieben von Pianoman , 30.03.2006, 10:55 Uhr , 13 mal gelesen