Volgorde inhoud van cellen omdraaien

[Xavierus]

Hallo,

Weet iemand een methode (excel functie of een macro) om de inhoud van de cellen in een kolom om te draaien? Dus bv:

4
5
6
7

naar

7
6
5
4

Hetzelfde voor rijen, dus 4 5 6 7 naar 7 6 5 4

Alvast bedankt.

 

[GiMe]

Zo misschien ?

 

[leofact]

even voor de volledigheid (w.s te simpel), dat kan ook met de sorteer functie. Kies aflopend
Dat kan ook horizontaal, door in het sorteer dialoogvenster voor opties > van links naar rechts te kiezen (en dan kan ook weer op-of aflopend worden gekozen)

mvg leo

 

[Ginger]

het zal vast wel op een kortere gecodeerde manier kunnen, maar dit doet wel wat je wilt...

Sub Omdraaien()
Dim Temp As Variant, rT As Variant

    If Selection.Rows.Count > 1 And Selection.Columns.Count > 1 Then Exit Sub
    
    x = 1
    
    If Selection.Columns.Count = 1 Then
        rT = Selection
        ReDim Temp(1 To UBound(rT))
        For i = UBound(rT) To 1 Step -1
            Temp(x) = rT(i, 1)
            x = x + 1
        Next i
    
        Selection = WorksheetFunction.Transpose(Temp)
    Else
        rT = Application.Transpose(Selection)
        ReDim Temp(1 To UBound(rT))
        For i = UBound(rT) To 1 Step -1
            Temp(x) = rT(i, 1)
            x = x + 1
        Next i
    
        Selection = Temp
    End If

End Sub

Selecteer de cellen van de regel of van de kolom die je wilt omkeren en run de code.

Groet, Leo

 

[Wigi]

even voor de volledigheid (w.s te simpel), dat kan ook met de sorteer functie. Kies aflopend

Als de oorspronkelijke volgorde van de getallen oplopend is, kan je inderdaad aflopend sorteren.

Is dit niet het geval, dan zou ik gewoon een monotoon stijgende functie nemen, zoals bv. de functie =RIJ(), en daarop aflopend sorteren.

Wigi

 

[Xavierus]

Misschien heb ik een beetje een verkeerd voorbeeld genomen, want ik had niet te maken met een monotoon stijgende reeks. Uiteindelijk heb ik het opgelost door ernaast nog een kolom in te voegen met indexcijfers en dan daarop te sorteren. Maar ik vind jullie oplossingen eleganter dus bedankt daarvoor.

 

[Warme bakkertje]

Nog twee formules waar het mee lukt. Stel dat je reeks staat in A1:A5
Dan in B1 en doortrekken naar beneden

=VERSCHUIVING($A$1;VERGELIJKEN($A$5;A1:A5;0)-1;0)

of

=VERSCHUIVING($A$1;AANTAL(A:A)-RIJ();0)

Zet je de vraag dan ook even op opgelost (rechts onderaan de pagina)

Mvg

Rudi

 

[Ginger]

Misschien heb ik een beetje een verkeerd voorbeeld genomen,

Dat vermoeden had ik al...

want ik had niet te maken met een monotoon stijgende reeks.

Daarom kan mijn code daar gewoon tegen! Deze wisselt gewoon de celwaardes van plaats zonder te kijken wat de eigenlijke waarde van die cel is. Dus van sortering is er bij mij geen sprake.

Groet, Leo