Tipp des Tages: Leg dir mal ein VB Buch zu.
Function irgendwas(byval bla as long)
dim ix as integer
dim iarray(bla) as integer
for ix=0 to bla-1
iarray(ix)=1
next
end function
Wäre leicht möglich, dass man den Wert gleich vorbelegen kann und keine Schleife braucht. Ich glaub das würd sogar in der Hilfe stehen.
mfg
|