Sorter

Det kan man ikke.
Du er nødt til at gøre det af to gange.
Først sorter på 4., 5. og 6. kriterie. derefter på 1., 2. og 3. kriterie.

Det må da være muligt at lave.....
bak> Det virker ikke !!

Ja, der kan selvfølgelig programmeres en helt ny sorteringsfunktion, men Excel's sortering kan kun have 3 nøgler. Du kan godt bestille sådan en funktion, men så skal du have pungen op af lommen.

Der findes een gratis mulighed jeg kender, men så skal dine data overføres til en anden Mappe og det er noget mere besværligt.
Marker alle dine data og NAVNGIV området.
Gem og luk filen.
Opret en ny mappe.
I menuen DATA / HENT EKSTERNE DATA / NY DATABASEFORESPØRGSEL vælges Excel-filer og dernæst den excel-fil der indeholder data
Kør guiden igennem, ved sortering vælges ingenting og vælg tilsidst
at "Få vist data eller rediger forespørgslen i Microsoft Query" 
Når MS query kommer frem vælges "POSTER / SORTER".
Her kan du sortere alt det du har lyst til.
Til sidst tryk "FILER / Returner data til Microsoft Excel".
Nu får du så et ark hvor alle dine data er sorteret.

Du kan altid sortete flere gange og opnå det du vil.

janvogt> Ja, det er rigtigt at man altid kan sortere flere gange, men det gør det meget mere besværligt. Hvis man f.eks. har nogle sports resultater eksempelvis fra noget højdespring så skal man sortere rigtig mange gange, fordi det jo ikke hjælper først at sortere efter de tre sidste og bagefter de tre næst sidst o.s.v.

Du beder om at sortere mere end tre rækker. Mener du ikke kolonner ?

Hvis det er rækkevis sortering vi taler om og Navnet står i kolonne A og resultaterne står i kolonnerne B:G så marker alle data undtaget overskrifterne og kør denne makro:
Sub SortRows()
For Each rw In Selection.Rows
    Range("B" & rw.Row & ":G" & rw.Row).Select
    Selection.Sort Key1:=Range("B" & rw.Row), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight
Next
End Sub

vesterstrand> Nej, der er rækker jeg vil sortere.

r.hegaard > hvis du ikke har fået min makro til at virke så send lige et eksempelark til mig, tommybak@netscape.net

flemmingdahl> Kan du ikke forklare hvordan det kan gøres ???

Denne makro sorterer alle kolonner en efter en fra første kolonne til sidste.

Sub Sorter_Flere_Gange()
Dim C As Integer
Dim rng As Range
Set rng = Application.InputBox("Marker området der skal sorteres....", Type:=8)
rng.Select
  For C = 1 To rng.Columns.Count
    Selection.Sort Key1:=rng.Cells(1, C), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
  Next
End Sub

bak > Mange tak for hjælpen, det ser ud til at det virker....den første funktion du beskriver, virker ikke. Microsoft Query meddeler at mit styresystem ikke understøtter funktionen...

Den sidste meddelelse forstår jeg ikke, men tal for point og tak fordi du lukker spm.