VBA: Returner klasse-objekt fra funktion
Hej EksperterJeg sidder med et problem der irriterer mig super meget.
Er i gang med at lave et program til at lave nogle rapporter, og her har jeg 4 klasser til at holde styr på data. Måden de hænger sammen på at at den første klasse indeholder en liste med elementer af den anden klasse, som indeholder en liste med elementer af den tredje klasse, osv.
Mit problem kommer når jeg vil returnerer et sådan element fra fx den øverste klasse.
Jeg har defineret min liste som:
Private data() as New Interval
Laver først en redim data(0) og fylder data i osv.
Når jeg så har lagt alle mine data ned i de her klasser, skal jeg hente dem ud igen. Til dette har jeg en funktion
public function getData(index) as Interval
getData = data(index)
end function
Men når jeg kalder den får jeg fejlen "Object variable or With block variable not set" på linjen hvor jeg returnerer.
Jeg har forsøgt mange forskellige ting, mener at det somme tider har noget at gøre med Set eller New i forbindelse med klasser, men har ikke kunne finde noget der løste problemet.
Har også prøvet bare at sige
getData = New Interval
Her får jeg samme fejl, hvilket jeg synes er meget sært.
Nogle der har en ide om hvad der galt?