In diesem Artikel erfahren Sie, wie Sie Daten automatisch nach einer bestimmten Spalte sortieren.

[.underline] # Nehmen wir ein Beispiel: # Es folgt eine Momentaufnahme der Daten, die wir haben. Siehe folgenden Schnappschuss:

img1

Wir möchten einen Code, der die Daten in Spalte A während der Eingabe automatisch sortiert.

Klicken Sie auf die Registerkarte Entwickler. Wählen Sie in der Gruppe Code die Option Visual Basic

img2

aus Geben Sie den folgenden Code in das Blatt ein, an dem Sie arbeiten. (Blatt1 in unserem Beispiel)

Private Sub Worksheet_Change (ByVal-Ziel als Bereich)

Bei Fehler Fortsetzen Weiter

Wenn nicht überschneiden (Ziel, Bereich („A: A“)) ist nichts dann

Bereich („A1“). Sortierschlüssel1: = Bereich („A2“), _

Order1: = xlAscending, Header: = xlYes, _

OrderCustom: = 1, MatchCase: = False, _

Orientierung: = xlTopToBottom

End If

End Sub

img3

Das Folgende ist das Ergebnis des obigen Codes.

img4

Der obige Code wird aktiviert, wenn sich in Spalte A etwas ändert. Wenn Sie das Makro aktivieren möchten, wenn sich in Spalte B etwas ändert, müssen Sie eine geringfügige Anpassung vornehmen

Private Sub Worksheet_Change (ByVal-Ziel als Bereich)

Bei Fehler Fortsetzen Weiter

Wenn nicht überschneiden (Ziel, Bereich („B: B“)) ist nichts dann

Bereich („B1“). Sortierschlüssel1: = Bereich („B2“), _

Order1: = xlAscending, Header: = xlYes, _

OrderCustom: = 1, MatchCase: = False, _

Orientierung: = xlTopToBottom

End If

End Sub

img5

Auf diese Weise können Sie die Daten einfach nach einer bestimmten Spalte sortieren. Der Code wird ausgelöst und sortiert die Daten automatisch, wenn Sie Informationen in Spalte A (im ersten Beispiel) und Spalte B (im zweiten Beispiel) eingeben. Dies spart viel Zeit, wenn wir die Daten regelmäßig sortieren müssen.