Zum Hauptinhalt springen

Wie sortiert man Spaltendaten durch Klicken auf die Kopfzeile in Excel?

Author: Xiaoyang Last Modified: 2025-05-28

Angenommen, ich habe einen Datenbereich und möchte nun die Daten durch Klicken auf eine beliebige Spaltenkopfzeile in aufsteigender oder absteigender Reihenfolge sortieren, wie im folgenden Screenshot gezeigt. Wie könnten Sie diese Aufgabe in Excel lösen?

A screenshot of an Excel table showing sorted data by column header click

Daten durch Klicken auf die Spaltenkopfzeile mit VBA-Code sortieren


arrow blue right bubble Daten durch Klicken auf die Spaltenkopfzeile mit VBA-Code sortieren

Normalerweise können Sie in Excel das Sortierfeature verwenden, um Daten schnell und einfach zu sortieren. Um Daten jedoch durch einfaches Klicken auf eine Zelle zu sortieren, kann der folgende VBA-Code helfen.

1. Klicken Sie mit der rechten Maustaste auf den Tab des Arbeitsblatts, in dem Sie Daten durch Klicken auf eine Zelle sortieren möchten, und wählen Sie Code anzeigen aus dem Kontextmenü. Im geöffneten Fenster Microsoft Visual Basic for Applications kopieren und fügen Sie den folgenden Code in das leere Modul ein:

VBA-Code: Daten durch Klick auf eine Zelle oder Spaltenkopfzeile sortieren:

Public blnToggle As Boolean
Private Sub Worksheet_BeforeDoubleClick _
(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
Dim LastColumn As Long, keyColumn As Long, LastRow As Long
Dim SortRange As Range
LastColumn = _
Cells.Find(What:="*", After:=Range("A1"), _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious).Column
keyColumn = Target.Column
If keyColumn > LastColumn Then Exit Sub
Application.ScreenUpdating = False
Cancel = True
LastRow = Cells(Rows.Count, keyColumn).End(xlUp).Row
Set SortRange = Target.CurrentRegion
blnToggle = Not blnToggle
If blnToggle = True Then
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlAscending, Header:=xlYes
Else
SortRange.Sort _
Key1:=Cells(2, keyColumn), Order1:=xlDescending, Header:=xlYes
End If
Set SortRange = Nothing
Application.ScreenUpdating = True
End Sub

A screenshot of the VBA code in Excel to sort data by clicking on a column header

2. Speichern und schließen Sie dann das Codefenster. Wenn Sie nun auf eine beliebige Zelle oder Spaltenkopfzeile innerhalb des Datenbereichs doppelklicken, wird die Spalte in aufsteigender Reihenfolge sortiert. Wenn Sie erneut darauf doppelklicken, wird die Spalte sofort in absteigender Reihenfolge sortiert.


Weitere verwandte Artikel:

Wie ändert man den Zellenwert durch Klicken auf die Zelle?

Wie filtert man Daten einfach durch Klicken auf den Zelleninhalt in Excel?

Beste Büroproduktivitätswerkzeuge

🤖 Kutools AI-Assistent: Revolutionieren Sie die Datenanalyse basierend auf: Intelligente Ausführung   |  Code generieren  |  Benutzerdefinierte Formeln erstellen  |  Daten analysieren und Diagramme generieren  |  Erweiterte Funktionen aufrufen
Beliebte Funktionen: Finden, Hervorheben oder Doppelte markieren   |  Leere Zeilen löschen   |  Spalten oder Zellen kombinieren ohne Datenverlust   |   Runden ...
Erweiterte SVERWEIS: Mehrfachkriterien SVERWEIS    Mehrfachwert SVERWEIS  |   Mehrblatt-SVERWEIS   |   Fuzzy Match ....
Erweiterte Dropdown-Liste: Schnell Dropdown-Liste erstellen   |  Abhängige Dropdown-Liste   |  Mehrfachauswahl Dropdown-Liste ....
Spaltenmanager: Eine bestimmte Anzahl von Spalten hinzufügen  |  Spalten verschieben  |  Sichtbarkeitsstatus ausgeblendeter Spalten umschalten  |  Bereiche & Spalten vergleichen ...
Hervorgehobene Funktionen: Gitterfokus   |  Entwurfsansicht   |   Erweiterte Formelleiste    Arbeitsmappe & Arbeitsblatt-Manager   |  AutoText-Bibliothek (Auto Text)   |  Datumsauswahl   |  Daten zusammenführen   |  Zellen verschlüsseln/entschlüsseln    E-Mail senden nach Liste   |  Spezialfilter   |   Spezialfilter (Filtern fett/kursiv/durchgestrichen...) ...
Top15 Werkzeugsets12 Textwerkzeuge (Text hinzufügen, Bestimmte Zeichen löschen, ...)   |   50+ Diagramm typen (Gantt-Diagramm, ...)   |   40+ Praktische Formeln (Alter basierend auf dem Geburtsdatum berechnen, ...)   |   19 Einfügewerkzeuge (QR-Code einfügen, Bild aus Pfad einfügen, ...)   |   12 Konvertierungswerkzeuge (In Wörter umwandeln, Währungsumrechnung, ...)   |   7 Konsolidieren & Aufteilen Werkzeuge (Erweiterte Zeilen zusammenführen, Zellen aufteilen, ...)   |   ... und mehr

Verbessern Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über300 erweiterte Funktionen zur Steigerung der Produktivität und Zeitersparnis.  Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...


Office Tab bringt eine Registerkartenoberfläche zu Office und macht Ihre Arbeit viel einfacher

  • Aktivieren Sie die Bearbeitung und das Lesen mit Registerkarten in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
  • Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters, anstatt in neuen Fenstern.
  • Steigert Ihre Produktivität um50 % und reduziert täglich hunderte von Mausklicks für Sie!