title image


Smiley Re: Übergabe eines mehrdimensionales Feldes an eine Funktion
So geht dem definitiv...



Function FillArr()



Dim ArrFill

Dim rs

Dim lngA As Long, lngB As Long, lngCTRL As Long



ReDim ArrFill(9, 99) ' 0-9 = 10, 0-99 = 100)



lngCTRL = 0



For lngA = 0 To 9



For lngB = 0 To 99



ArrFill(lngA, lngB) = lngCTRL



lngCTRL = lngCTRL + 1



Next lngB



Next lngA



rs = GetArr(ArrFill)



End Function





Function GetArr(ArrFill)





Dim strMSG As String



strMSG = "Übergeben Werte:"



For lngA = 0 To 9



For lngB = 0 To 99



strMSG = strMSG & " " & ArrFill(lngA, lngB)



Next lngB



strMSG = strMSG & vbCrLf



Next lngA



MsgBox strMSG, vbOKOnly, "INFO"



End Function

mfg Mike

Snafu



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: