dim bspDatenFeld1(2 to 14) as integer
dim bspDatenFeld2(2 to 14) as integer
 
'Füllen der Datenfelder
call Fuellen( BspWorksheet1, bspDatenFeld1 )
call Fuellen( BspWorksheet2, bspDatenFeld2 )

sub Fuellen( ws as worksheet, DatenFeld(2 to 14 ))
 
end sub