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 einen Bereich mit Werten.
Syntax
Ausdruck verwendet werden. Sort (Key1, Order1, Key2, Type, Order2, Key3, Order3, Header, OrderCustom, MatchCase, Orientation, SortMethod, DataOption1, DataOption2, DataOption3)
Ausdruck Eine Variable, die ein Range-Objekt darstellt.
Parameter
| Name | Erforderlich/Optional | Datentyp | Beschreibung |
|---|---|---|---|
| Key1 | Optional | Variant | Gibt das erste Sortierfeld an, entweder als Bereichsname (Zeichenfolge) oder als Bereichsobjekt . Bestimmt die zu sortierenden Werte. |
| Order1 | Optional | XlSortOrder | Bestimmt die Sortierreihenfolge für die in Key1 angegebenen Werte. |
| Key2 | Optional | Variant | Zweites Sortierfeld; kann beim Sortieren einer PivotTable nicht verwendet werden. |
| Typ | Optional | Variant | Gibt an, welche Art von Elementen in einer PivotTable sortiert werden sollen. Geben Sie xLSortLabels an, um nach den Beschriftungen zu sortieren, auf die der Erfahrungsbereich in den Bereichen "Zeilen-/Spaltenbeschriftungen" im Bereich der PivotTable abzielt, oder xLSortValues, wenn "Schlüssel1" zusätzlich auf eine Zelle in den Bereichen "Werte" oder "Teilergebnisse" mit der Notation "Z1S1" ausgerichtet ist. |
| Order2 | Optional | XlSortOrder | Bestimmt die Sortierreihenfolge für die in Schlüssel2 angegebenen Werte. |
| Key3 | Optional | Variant | Drittes Sortierfeld; kann beim Sortieren einer PivotTable nicht verwendet werden. |
| Order3 | Optional | XlSortOrder | Bestimmt die Sortierreihenfolge für die in Key3 angegebenen Werte. |
| Header | Optional | XlYesNoGuess | Gibt an, ob die erste Zeile Überschrifteninformationen enthält. xlNo ist der Standardwert. Sie können xlGuess verwenden, wenn die Überschrift von Excel ermittelt werden soll. |
| OrderCustom | Optional | Variant | Gibt einen ganzzahligen, bei 1 beginnenden Offset für die Liste der benutzerdefinierten Sortierreihenfolgen an. |
| MatchCase | Optional | Variant | Legen Sie " True " fest, um eine Sortierung unter Berücksichtigung der Groß-/Kleinschreibung durchzuführen, "False ", um eine Sortierung ohne Berücksichtigung der Groß-/Kleinschreibung durchzuführen. können nicht mit PivotTables verwendet werden. |
| Orientation | Optional | XlSortOrientation | Gibt an, ob die Sortierung nach Zeile (Standard) oder nach Spalte erfolgen soll. Legen Sie den Wert für xlSortColumns auf 1 fest, um nach Spalte zu sortieren. Legen Sie den Wert xlSortRows auf 2 fest, um nach Zeile zu sortieren (dies ist der Standardwert). |
| SortMethod | Optional | XlSortMethod | Gibt die Sortiermethode an. |
| DataOption1 | Optional | XlSortDataOption | Gibt an, wie Text in dem in Schlüssel1 angegebenen Bereich sortiert werden soll. gilt nicht für die Sortierung nach PivotTables. |
| DataOption2 | Optional | XlSortDataOption | Gibt an, wie Text in dem in Schlüssel2 angegebenen Bereich sortiert werden soll. gilt nicht für die Sortierung nach PivotTables. |
| DataOption3 | Optional | XlSortDataOption | Gibt an, wie Text in dem in Schlüssel3 angegebenen Bereich sortiert werden soll. gilt nicht für die Sortierung nach PivotTables. |
Rückgabewert
Variant
Beispiel
Dieses Beispiel ruft den Wert der Farbe einer Zelle in Spalte A mithilfe der ColorIndex-Eigenschaft ab und sortiert den Bereich dann anhand dieses Werts nach Farbe.
Sub ColorSort()
'Set up your variables and turn off screen updating.
Dim iCounter As Integer
Application.ScreenUpdating = False
'For each cell in column A, go through and place the color index value of the cell in column C.
For iCounter = 2 To 55
Cells(iCounter, 3) = _
Cells(iCounter, 1).Interior.ColorIndex
Next iCounter
'Sort the rows based on the data in column C
Range("C1") = "Index"
Columns("A:C").Sort key1:=Range("C2"), _
order1:=xlAscending, header:=xlYes
'Clear out the temporary sorting value in column C, and turn screen updating back on.
Columns(3).ClearContents
Application.ScreenUpdating = True
End Sub
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.