Excel rækker der skal spejlvendes ???

Du markere dine celler, holder shift nede og trykker på \"Sorter stigende\" ... så sortere den faldene.. nemt!

Mit spørgsmål blev ikke forstået korrekte !

Jeg ønsker at sorter sidelæns og ikke faldene ???

Men tak for opmærksomheden på mit problem

Undskyld den skal ikke sorter den skal spejlvende sidelæns ???

Kære Jens

Det kan simpelthen ikke lade sig gøre automatisk i via Excel - men du kan selvfølgelig kode dig ud af det i VBA. Vil du det ?

:o]

En anden fusk lösning : Lav en makro der gör fölgende :
1. Ny förste kolonne
2. Fyld förste kolonne 1-65000
3. Sorter faldende på förste kolonne
4. Fjern förste kolonne

Hmmm. Med ABC mener du vel egenlig kolonner og ikke räkker ???
Samme \'fusk\' lösning blot med en transpose copy för og efter sorteringen.

Til smoothi

Jeg har lavet en hel del vbscript filer hvis det er muligt at se et eksempel af en mulig kode til denne opgave ville jeg blive total glad :0=)

Jeg får først kigget på det i morgen - bare så du ved det.

:o]

Det er helt fint med mig

I skal alle sammen vide at jeg er meget taknemlig for hjælp her fra Eksperten.dk for det er opgaver som jeg skal bruge på mit arbejde

Nedenstående kode gør det på akr sortering...

Sub ark_orden()
    Dim sh1  As Worksheet
    Dim sh2 As Worksheet
    For Each sh1 In Worksheets
        For Each sh2 In Worksheets
            If sh1.Name > sh2.Name Then
            sh2.Move sh1
            End If
        Next sh2
    Next sh1
\'
End Sub

Kære Jens

Her er en løsning. Den er ikke elegant, men den virker. Den kræver at du ikke har formler i din række, og at rækkerne under den betragtede række er tomme. Desuden er der lidt med A1 og A2 men det kan du jo selv se.

Lad mig lige vide om det kan bruges eller jeg skal tænke mig mere om.

:o]

Sub Test1()

    antal = Application.InputBox(\"Hvor lang er rækken ?\")
   
    Range(\"A2\").Select
   
    For taeller = 1 To antal
   
            ActiveCell.Value = ActiveCell.Offset(-taeller, antal - taeller)
            ActiveCell.Offset(1, 0).Select
           
    Next taeller
   
    Range(ActiveCell.Offset(-1, 0), ActiveCell.Offset(-antal, 0)).Copy
   
    Range(\"A1\").Select
   
    Selection.PasteSpecial Paste:=xlValues, Transpose:=True
   
    Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(antal, 0)).ClearContents
       
End Sub

Jeg har siddet og prøvet mig frem, disse metoder ligge en sværhedsgrad lidt for høj til mig, men jeg skal til kursus i aften i Visual Basic 6.0 , så vise jeg ham jeres svar .
Vender tilbage med hans mening

Hvis alle felter er lige lange kan du evt. bruge højre/venstre funktionen

=sammenkædning(højre(venstre(a1,4);1);højre(venstre(a1,3);1);højre(venstre(a1,2);1);venstre(a1,1))

Kan du ikke stikke mig et eksempel så jeg ved præcis hvad det er du skal bruge ??

:o]

Jeg har opgivet det, jeg har ikke arbejde nok  med programmet til at jeg kan forstå jeres svar

Men ellers mange tak for de mange løsninger !

Men bare for nysgerrighedenes skyld ville jeg have den til at lave

1 2 3 4 5 6 7 8

om til

1
2
3
4
5
6
7
8

Eller

1 2 3 4 5 6

om til

6 5 4 3 2 1

Din første kommentar (12.41.10) er jo meget nemmere. Kopier det og gå hen hvor det skal sættes hen og tryk højre knap og vælg \"Indsæt Speciel\" og derefter \"Transponér\". Vil du have det som en makro også ?

Mht. den anden kan du bruge mit tidligere forslag.

:o]