Wie sortiert man Spaltendaten in Excel, indem man auf die Spaltenüberschrift klickt?
Angenommen, Sie haben einen Datenbereich und möchten die Daten durch Klicken auf eine beliebige Spaltenüberschrift in aufsteigender oder absteigender Reihenfolge sortieren, um das im Screenshot gezeigte Ergebnis zu erhalten – wie lösen Sie diese Aufgabe in Excel?
Daten durch Klicken auf die Spaltenüberschrift mit VBA-Code sortieren
Daten durch Klicken auf die Spaltenüberschrift mit VBA-Code sortieren
Normalerweise können Sie in Excel die Sortierfunktion nutzen, um Daten schnell und einfach zu sortieren. Um Daten jedoch mit nur einem Klick auf eine Zelle zu sortieren, hilft Ihnen der folgende VBA-Code.
1. Klicken Sie mit der rechten Maustaste auf die Arbeitsblattregisterkarte, für die Sie Daten durch Klicken auf eine Zelle sortieren möchten, und wählen Sie im Kontextmenü Code anzeigen. Fügen Sie im geöffneten Fenster Microsoft Visual Basic for Applications den folgenden Code in das leere Modul ein:
VBA-Code: Daten durch Klicken auf eine Zelle oder Spaltenüberschrift 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
2. Schließen Sie anschließend das Codefenster und speichern Sie. Wenn Sie nun innerhalb des Datenbereichs doppelt auf eine beliebige Zelle oder Spaltenüberschrift klicken, wird die Spalte in aufsteigender Reihenfolge sortiert; bei einem erneuten Doppelklick sofort absteigend.
Weitere verwandte Artikel:
Wie ändert man den Zellwert, indem man auf die Zelle klickt?
Wie filtert man Daten in Excel allein durch einen Klick auf den Zellinhalt?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins