Wie sortiert man eine Spalte automatisch nach Wert in Excel?

Angenommen, Sie haben eine Kauf-Tabelle wie im folgenden Screenshot gezeigt. Nun möchten Sie, dass die Spalte „Preis“ automatisch sortiert wird, sobald Sie neue Zahlen/Preise in diese Spalte eingeben. Wie könnten Sie dieses Problem lösen? Hier stelle ich ein VBA-Makro vor, das Ihnen hilft, eine bestimmte Spalte automatisch nach Wert in Excel zu sortieren.

Automatisches Sortieren einer Spalte nach Wert mit VBA

Automatisches Sortieren einer Spalte nach Wert mit VBA

Dieses VBA-Makro sortiert alle Daten in einer bestimmten Spalte automatisch, sobald Sie neue Daten eingeben oder einen Wert in der Spalte in Excel ändern.

1. Klicken Sie mit der rechten Maustaste auf den Namen des aktuellen Arbeitsblatts in der „Registerkartenleiste“, und klicken Sie dann im Kontextmenü auf „Code anzeigen“.

2. Fügen Sie im sich öffnenden Dialogfeld „Microsoft Visual Basic for Applications“ den folgenden VBA-Makrocode in das sich öffnende Fenster ein.

VBA: Automatisches Sortieren einer Spalte in Excel

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub

Hinweis:
1) Im obigen VBA-Code bedeutet „B:B“, dass es die Spalte B automatisch sortieren wird. B1 ist die erste Zelle in Spalte B, „B2“ ist die zweite Zelle in Spalte B, und Sie können sie je nach Bedarf ändern.
2) Der Codeausschnitt „Header:=xlYes“ in der 5. Zeile teilt Excel mit, dass der zu sortierende Bereich eine Kopfzeile hat, sodass die erste Zeile des Bereichs beim Sortieren nicht einbezogen wird. Wenn es keine Kopfzeile gibt, ändern Sie dies bitte in „Header:=xlNo“; und ändern Sie „Key1:=Range("B2")“ in der 4. Zeile in „Key1:=Range("B1")“.

3. Gehen Sie dann zurück zum Arbeitsblatt. Wenn Sie eine neue Zahl in der Preis-Spalte eingeben oder bestehende Preise ändern, wird die Preis-Spalte automatisch in aufsteigender Reihenfolge sortiert.

Hinweis: Wenn Sie eine neue Zahl in der Preis-Spalte eingeben, müssen Sie die Zahl in die erste leere Zelle unter den ursprünglichen Zahlen eingeben. Wenn es leere Zellen zwischen der neu eingegebenen Zahl und den ursprünglichen Zahlen sowie leere Zellen zwischen den ursprünglichen Zahlen gibt, wird diese Spalte nicht automatisch sortiert.

Demo: Automatisches Sortieren einer Spalte nach Wert mit VBA in Excel