making a timeline

Is there away to make a timeline
where i know the lowest and highest value
and where i know
the middel and varians value

Thanks

Alvin

Here is a rough start for you.


Sub ab()
Dim j As Long, i As Date
Dim StartDate As Date, EndDate As Date
Dim Interval As Long
Dim NumOfIntervals As Long

StartDate = #1/1/2006#
EndDate = #3/31/2006#
NumOfIntervals = 15

j = 0
Interval = Int((EndDate - StartDate) / NumOfIntervals)
For i = StartDate To EndDate Step Interval
Range("A1").Offset(0, j).Value = i
j = j + 1
Next


End Sub

--
Regards,
Tom Ogilvy


"alvin Kuiper" <alvinKuiper@discussions.microsoft.com> wrote in message
news:6D2727F2-EFA1-4EEA-A74E-23BD86942456@microsoft.com...
> Is there away to make a timeline
> where i know the lowest and highest value
> and where i know
> the middel and varians value
>
> Thanks
>
> Alvin
>

Hi tom

It was not whar i ment, I try to explain later and come back
with a new thread is that allright??

But thanks
Alvin


"Tom Ogilvy" wrote:

> Here is a rough start for you.
>
>
> Sub ab()
> Dim j As Long, i As Date
> Dim StartDate As Date, EndDate As Date
> Dim Interval As Long
> Dim NumOfIntervals As Long
>
> StartDate = #1/1/2006#
> EndDate = #3/31/2006#
> NumOfIntervals = 15
>
> j = 0
> Interval = Int((EndDate - StartDate) / NumOfIntervals)
> For i = StartDate To EndDate Step Interval
> Range("A1").Offset(0, j).Value = i
> j = j + 1
> Next
>
>
> End Sub
>
> --
> Regards,
> Tom Ogilvy
>
>
> "alvin Kuiper" <alvinKuiper@discussions.microsoft.com> wrote in message
> news:6D2727F2-EFA1-4EEA-A74E-23BD86942456@microsoft.com...
> > Is there away to make a timeline
> > where i know the lowest and highest value
> > and where i know
> > the middel and varians value
> >
> > Thanks
> >
> > Alvin
> >
>
>
>