jwcolby
jwcolby at colbyconsulting.com
Sun Dec 19 22:08:55 CST 2010
I like the datatype as well. John W. Colby www.ColbyConsulting.com On 12/19/2010 7:04 PM, Asger Blond wrote: > Don't see why your code shouldn't work. > But BTW I don't like multidimensional arrays because you can't data type the dimensions. > When in need of an array with more than one dimension I always create a TYPE procedure to define a data type with the wanted dimensions and data types, then create a one dimensional array using that data type. > Don't know if this hurts performance compared to a multidimensional array - but it's simpler and (crucial) offers data constraint. Any objections? > Asger > > -----Oprindelig meddelelse----- > Fra: accessd-bounces at databaseadvisors.com [mailto:accessd-bounces at databaseadvisors.com] På vegne af Ralf Lister > Sendt: 19. december 2010 21:46 > Til: accessd at databaseadvisors.com > Emne: [AccessD] OT: Passing an Array in VBA > > Hello, > > > > Sorry to bother with an Excel 2007 problem. > > > > I try to pass an three-dimensional-array Werte(I, j. k) to a Procedure, > manipulate Werte() there. Then the manipulated Werte()-Array is passed again > to the main program. > > > > My Code: > > The main program > > Dim Werte(1 To 9, 1 To 42, 1 To 7) As Single > > .. > > With Activesheet > > Select Case .Range("D"& ""& i + 1& "").Value > > Case "ALICO" > > PopulateALICO Werte:=Werte, i:=1 > > Case "ANTIGUA" > > PopulateANTIGUA Werte:=Werte, i:=1 > > ... > > End Select > > > > The called procedure > > Sub PopulateALICO(ByRef Werte() As Single, i As Integer) > > .. > > **************************************************************************** > ****** > > When I check in the main program, the array Werte() is still unmanipulated. > > > > Saludos > > Actuary Ralf Lister > > La Paz, Bolivia > > Registrado en ASFI > > No. Registro: Act.Mat. 001 > > NIT: 1016725022 > > Skype Name: ralf.martin.lister > > Tel.: 222 26 61, Cel. 70136531 > > rlister at actuarial-files.com > > www.actuarial-files.com > > Environment > > > > >