Sortering i andet Ark efter ændring af oplysninger!

Jeg tror ikke helt, jeg er med.
Er det fordi referancen ikke længere er den samme efter sorteringen, eller er det fordi at der ikke sorteres efter de nye værdier?

Hvis alle dine referencer er "låst" med $-tegn vil data i Ark2 ikke ændre sig fra data i Ark1.
Du kan herefter sætte denne kode ind i Ark2:

Public Sub worksheet_activate()
    Columns("A:A").Select
    ActiveWorkbook.Worksheets("Ark2").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Ark2").Sort.SortFields.Add Key:=Range("A1"), _
        SortOn:=xlSortOnValues, _
        Order:=xlAscending'<--- brug "Order:=xlDescending" hvis data skal starte med højeste værdi i stedet for.
    With ActiveWorkbook.Worksheets("Ark2").Sort
        .SetRange Range("A1:C3") '<--- dit dataområde
        .Apply
    End With

End Sub

der sorteres ikke efter de nye værdier
meningen er at det ska være en model

en model?

Du startede med at sige, at der skulle sorteres. Nu siger du, at der ikke skal sorteres...(?!)

Jeg tror du bliver nød til at være lidt mere præcis i den formulering før jeg kan hjælpe... :)

min fejl!
der skal sorteres, men
ved ændringer i ark1 skal ændres oplysninger i ark2 selvfølgelig
men de sorteres ikke for størst til mindst værdi automatisk
det ska man gøre manuelt hver gang via sorter-brugerdefineret osv

er der ikke fuktion hvor de sorteres automatisk, også når værdierne ændre sig?

Det er så det den kode, som du kan se ovenfor, gør. :)
Du skal bare tilpasse den til din excel-projektmappe.

hmm hvordan skal jeg indsætte koden har prøvet sådan her
men det hjælper ik rigtig


Public Sub worksheet_activate()
    Columns("A:A").Select
    ActiveWorkbook.Worksheets("1.2 Beregning").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("1.2 Beregning").Sort.SortFields.Add Key:=Range("A1")
    SortOn = xlSortOnValues
    .Order = xlDescending
    With ActiveWorkbook.Worksheets("1.2 Beregning").Sort
        .SetRange Range("B1:k6") '
        .Apply
    End With

End Sub

Du skal bare sætte koden ind i det ark, som stemmer overens med dit arknavn - i dit tilfælde "1.2 Beregning".

Jeg fandt også nogle småfejl i din kode, som fik det det at fejle.
Prøv at kopiere denne kode over i din vba (vær obs på, at der er forskel på punktummer(".") og kommaer(",")):

Public Sub worksheet_activate()
    Columns("A:A").Select
    ActiveWorkbook.Worksheets("1.2 Beregning").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("1.2 Beregning").Sort.SortFields.Add Key:=Range("A1"), _
    SortOn:=xlSortOnValues, _
    Order:=xlDescending
    With ActiveWorkbook.Worksheets("1.2 Beregning").Sort
        .SetRange Range("B1:K6") '
        .Apply
    End With
End Sub

virkede det?