title image


Smiley Re: Übergabe eines mehrdimensionales Feldes an eine Funktion
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

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: