VBA funktion til udligning

Prøv at kigge på Range.DataSeries metoden.

f.eks:
---------------
Range("H9:H17").Select
Selection.DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, _
    Trend:=True
---------------

Jeg har lige siddet og hygget mig med lidt ren vba-kode.
Sæt dette ind i et tom ark - gem og luk arket, og åben det, og indtast værdier.
Når du har indtastet, så kør makro: Udregn.

Public Sub auto_open()

Range("a1").Select
With ActiveCell
    .Value = "Startværdi:"
    .Offset(0, 1).Value = "Slut værdi:"
    .Offset(0, 2).Value = "Interval:"
    .Offset(2, 0).Value = "Start pris:"
    .Offset(2, 1).Value = "Slut pris:"
    .Offset(1, 2).Value = "0"
End With


End Sub

Public Sub Udregn()
Dim a As Integer
Dim b As Integer
Dim c As Integer
Dim linie As Integer

a = Range("b2").Value - Range("a2").Value
b = Range("b4").Value - Range("a4").Value


For i = Range("a2").Value To Range("b2").Value Step Range("c2").Value

linie = linie + 1
If linie = 50 Then Exit Sub
Range("a" & linie + 6).Value = i
Range("b" & linie + 6).NumberFormat = "0.0000"
Range("b" & linie + 6).Value = ((b / a) * (i - Range("c2").Value)) + Range("a4").Value
Next i
End Sub

tak det var lige det der var brug for :o)

Selv tak. Glad for at jeg ku' hjælpe...  ;-)