Opfølgning på Excel 2010 sortering størst til mindst.

Ok - send blot..

Hej supertekst.
Det virker bare(supertekst har udvidet vba koden så den nu passer til hele arket).
Supertekst gider du at smide et svar,så vi kan lukke spørgsmålet.
Endnu engang mange tak for hjælpen.
Torben Lind

Fint - her er hvad, der hjalp + et svar.

Sub justerFormler_Sold()
Const supplement = "+SEPTEMBER!AY?+OKTOBER!AX?+NOVEMBER!AX?+DECEMBER!AX?)"
Dim ræk As Integer, formel As String, nyFormel As String, rækNr As Integer
    rækNr = 6
    For ræk = 3 To 177
        formel = Replace(Range("E" & ræk).Formula, ")", "")
        nyFormel = formel & Replace(supplement, "?", CStr(rækNr))
        Range("E" & ræk).Formula = nyFormel
        rækNr = rækNr + 1
    Next ræk
End Sub

Svaret er så her.. ..