VBA til at læse 2 kolonner og aflevere indholdet i sorteret rækkefølge

Du behøver ikke VBA, hvis du kabn leve med at bruge en hjælpekolonne i Ark2.

i fx D kolonnen i Ark2 skriver 1, 2, 3 osv. ned til 37.

I A-kolonnen indsætter du så denne formel

=INDEKS(Ark1!$A$3:$A$40;RÆKKE(INDIREKTE(ADRESSE(SAMMENLIGN(STØRSTE(Ark2!$B$3:$B$40;D1);Ark1!$B$3:$B$40;0);1)));1)

og i B-kolonnen

=INDEKS(Ark1!$B$3:$B$40;RÆKKE(INDIREKTE(ADRESSE(SAMMENLIGN(STØRSTE(Ark1!$B$3:$B$40;D1);Ark1!$B$1:$B$40;0);1)));1)

Kopier de to formler så langt ned, som du har brug for.

Ok - men jeg kan ikke få det til at virke helt.
Jeg har på ark2 i celle d1 skrevet 1, d2=2, d3=3 osv.
Og så har jeg kopieret dine forslag ind i hhv. ark2!a1 og ark2!b1

Er det et problem, hvis den liste på ark1, der skal sorteres, har tomme felter? (for det kan der godt være).

hent navn
=INDEKS(Ark1!$A$3:$A$40;SAMMENLIGN(STØRSTE(Ark1!$B$3:$B$40;RÆKKE(1:1));Ark1!$B$3:$B$40;0))

hent tal
=STØRSTE(Ark1!$B$3:$B$40;RÆKKE(1:1))

Den driller lidt stadigvæk.
Håber at I gider at kigge på den.
Jeg har smidt den på http://www.fam-johansen.dk/sortering.xls

Ja formler sidestiller evt ens værdier, så i dette tilfælde ville jeg anvende en makro som denne
Den kopierer og sorterer B kolonne faldende (xlDescending)
og A kolonne stigende (xlAscending) ret efter ønske


Sub xCopy()
Sheets("Ark1").Range("A3:B40").Copy Sheets("Ark2").Range("A3")
Sheets("Ark2").Select
Range("A3:B40").Sort Key1:=Range("B3"), Order1:=xlDescending, _
Key2:=Range("A3"), Order2:=xlAscending
End Sub

Super - det var lige løsningen, jeg søgte.
Tusind tak.
Send venligst et svar.

Hov - den smider de tomme linjer øverst. Dem vil jeg gerne have helt væk.
Kan du også bidrage med, hvordan tomme linjer i samme område slettes

Jeg fandt denne kode, som fjerner de tomme linjer fint.

With Range("A3:A40")
    rCount = .Rows.Count
    For r = rCount To 1 Step -1
        If .Cells(r, "B") = "" Then
            .Rows(r).EntireRow.Delete
        End If
    Next r
End With

Du kan også få en løsning uden makro, men den kræver en hjælpekolonne i fx C i ark 1:

Her kan du indsætte:

=HVIS(B3="";"";B3-RÆKKE()/10^10) i C# og kopiere nedad.

I Ark2 har du så:

=HVIS(RÆKKE()-2>TÆL(Ark1!$C:$C);"";INDEKS(Ark1!A:A;SAMMENLIGN(STØRSTE(Ark1!$C:$C;RÆKKE()-2);Ark1!$C:$C;0))) i A3 og kopierer nedad.

I B3:

=HVIS(RÆKKE()-2>TÆL(Ark1!$C:$C);"";INDEKS(Ark1!B:B;SAMMENLIGN(STØRSTE(Ark1!$C:$C;RÆKKE()-2);Ark1!$C:$C;0)))

og kopier nedad.

Du kan se et eksempel her

http://www.kronsell.net/Download/sortering.xls

jkrons: Tak for bidraget - det fungerer perfekt.
Nu har jeg 2 gode løsninger, hvorfor jeg fordeler pointene mellem jer.
Sender I lige et svar.

Et svar

det er ok jeg står over :-)