Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 22:18:24
Liste mit Links - tricky
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
952to956
952to956
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortierung per Klick auf Spaltenkopf

Forumthread: Sortierung per Klick auf Spaltenkopf

Sortierung per Klick auf Spaltenkopf
19.02.2008 20:51:00
Ronaldo
Hallo zusammen,
ich habe mal eine Frage:
ich habe eine Tabelle mit 10 Spaltenköpfen. Gibt es irgendeine Möglichkeit der Sortierung, indem man auf die Spaltenköpfe klickt ? Evtl. gibt es hier einen festen VBA-Code ?
Würde mich mal interessieren, ob es überhaupt möglich wäre. Habe im Internet geschaut, konnte diesbezüglich nichts Hilfreiches finden.
Vielen Dank
Ronaldo

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Dafür gibt es Icons
19.02.2008 21:11:00
Beate
Hallo Ronaldo,
markiere die Spalte und sortiere über die Icons (A:Z Aufsteigend sortieren) oder (Z:A Absteigend sortieren).
Gruß,
Beate

AW: Sortierung per Klick auf Spaltenkopf
19.02.2008 21:13:35
Daniel
Hi
nein, einen festen Makrocode oder Funktion dazu gibt es nicht.
es ist aber relativ leicht zu realisieren:
du müssest dir halt ein EVENT-Gesteuertes Makro schreiben (SELECTION_CHANGE oder BEFORE_DOUBLECKICK), das das prüft, welche Zelle gelickt wurde (TARGET.ROW; und TARGET.COLUMN oder TARGET.ADDRESS) und dann entsprechend sortiert.
Gruß, Daniel

Anzeige
AW: Sortierung per Klick auf Spaltenkopf
19.02.2008 21:14:00
Renee
Hi Ronaldo,
Nicht das ich wüsste. Wenn schon müsstes du sowas mit einem _Selection Event steuern.
In etwa nach diesem Gerüst:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count = ActiveSheet.Rows.Count And Target.Columns.Count = 1 Then
MsgBox "Nach Spalte " & _
Mid(Target.Address(False, False), InStr(Target.Address(False, False), ":") + 1) _
& " sortieren"
End If
End Sub


wobei du die 3 komischen Zeilen in der IF-Schlaufe durch den Sortiercode austauschst.
GreetZ Renée

Anzeige
AW: Eine Spalte =
19.02.2008 22:47:00
Gerd
Hi,
If Rows.Count * Target.Columns.Count = Target.Rows.Count then
................................................
................................................
End IF
Grüße Gerd
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige