Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Sortiert Tabellenzeilen in absteigender alphanumerischer Reihenfolge.
Syntax
expression. SortDescending
expression: Erforderlich. Eine Variable, die ein Table-Objekt darstellt.
Hinweise
Die erste Tabellenzeile wird als Steuersatz angesehen und nicht in die Sortierung einbezogen. Verwenden Sie die Sort-Methode, wenn der Steuersatz in die Sortierung einbezogen werden soll.
Diese Methode stellt eine vereinfachte Form der Sortierung dar, die für Seriendruck-Datenquellen vorgesehen ist, die Datenspalten enthalten. Bei den meisten Sortieraufgaben arbeiten Sie mit der Sort-Methode.
Beispiel
In diesem Beispiel wird in einem neuen Dokument eine 5x5-Tabelle erstellt, in jede Zelle Text eingefügt und dann die Tabelle in absteigender alphanumerischer Reihenfolge sortiert.
Set newDoc = Documents.Add
Set myTable = _
newDoc.Tables.Add(Range:=Selection.Range, NumRows:=5, _
NumColumns:=5)
For iRow = 1 To myTable.Rows.Count
For iCol = 1 To myTable.Columns.Count
Set MyRange = myTable.Rows(iRow).Cells(iCol).Range
MyRange.InsertAfter "Cell" & Str$(iRow) & "," & Str$(iCol)
Next iCol
Next iRow
MsgBox "Click OK to sort in descending order."
myTable.SortDescending
In diesem Beispiel wird die Tabelle, die die Einfügemarke enthält, in absteigender alphanumerischer Reihenfolge sortiert.
If Selection.Information(wdWithInTable) = True Then
Selection.Tables(1).SortDescending
Else
MsgBox "The insertion point is not in a table."
End If
Siehe auch
Support und Feedback
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.