VBA Tabelle sortieren von 1 auf 50

Question

es wird sortiert von 50 auf 1 ich möchte aber das oben  der 1 steht und der letzte auf 50 ..was muss ich ändern komme nicht drauf...danke für hihre hilfe.

mfg rolf

Private Sub Worksheet_Change(ByVal Target As Range)
        ' Überprüfen, ob die Änderung in der relevanten Spalte stattgefunden hat
        If Not Intersect(Target, Me.Range("C:C")) Is Nothing Then ' Beispiel: A-Spalte
            ' Tabelle sortieren
            Me.ListObjects(1).Sort.SortFields.Clear
            Me.ListObjects(1).Sort.SortFields.Add2 Key:=Range("C6"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            With Me.ListObjects(1).Sort
                .Header = xlYes ' Wenn die Tabelle Überschriften hat
                .MatchCase = False
                .Orientation = xlTopToBottom
                .SortMethod = xlPinYin
                .Apply
            End With
        End If
    End Sub

Answer 1

Hi,

der Code ist korrekt und es wird auch tatsächlich aufsteigend sortiert (niedrigster Wert zuerst). Wenn das bei dir nicht der Fall ist, solltest du deine Mappe mal hochladen,

Bis später, Karin

Answer 2

und was müste ich ändern das es anders herum ist ???

Answer 3

Karin hat doch vorgeschlagen, dass du deine Tabelle hochlädst. Möglicherweise ist in der Tabelle selbst ein Problem.

Gruß computerschrat

Answer 4

Hi,

damit vom höchsten Wert absteigend bis zum niedrigsten Wert sortiert wird musst du nur statt  

      .... Order:=xlAscending '<== aufsteigend

dieses schreiben:

      .... Order:=xlDescending  '<== absteigend

Das bedeutet, es wird nicht von 1 bis 50 aufsteigend sondern von 50 bis 1 absteigend sortiert.

Bis später, Karin

Answer 5

danke Karin genau das wars da wäre ich nicht mehr darauf gekommen

mfg rolf