
V A R K
12 4 9 12
- Ich muss diese Werte von Max bis Min anzeigen
- Wie 12,12,9,4
- Dann zeigen Sie die entsprechenden Noten entsprechend in separaten Zellen an
Antwort1
Beginnen Sie mit Daten wie:
Ausführen dieses Makros:
Sub Zort()
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:D2"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:D2")
.Header = xlGuess
.MatchCase = False
.Orientation = xlLeftToRight
.SortMethod = xlPinYin
.Apply
End With
End Sub
wird Folgendes erzeugen:
Antwort2
Wenn Sie zum Sortieren kein Makro verwenden möchten, wie Gary's Student vorschlägt, können Sie dies auch folgendermaßen im Sortierdialog tun: