---

Hallo zusammen,

beim Klick auf einen Spaltenkopf wird in Excel standardmäßig die ganze Spalte markiert.
Ist es per Makro möglich, beim Klick auf den Spaltenkopf eine Sortierung wie z.B. im Windows-Explorer vorzunehmen? Der Name des Ereignisses würde mir schon genügen

(Spalte markieren ginge ja weiterhin per Shortcut.)

Grüße

Hofe

------------------
Ich möchte sterben wie mein Opa: Im Schlaf. Nicht schreiend wie sein Beifahrer.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Hofe,

vermutlich ist Dir der Filter zu banal bzw. erfüllt Deine Kriterien nur teilweise?

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin Paulchen,

der Filter ist mir zu klickintensiv 
In erster Linie geht es auch nicht ums Filtern oder Ausblenden, sondern rein ums schnelle sortieren mit einem Klick wie beim Win-Explorer.
Alternativ kann ich natürlich ein paar Buttons bzw. ein Menü einbauen, aber wenn's irgendwie anders geht möchte ich keine Buttons in der Tabelle haben.

Grüße

Hofe

------------------
Ich möchte sterben wie mein Opa: Im Schlaf. Nicht schreiend wie sein Beifahrer.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Code:

---

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Top = 0 Then MsgBox "ganze Spalte markiert"
End Sub

---

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Beverly:
Hi,
[code]Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Selection.Top = 0 Then MsgBox "ganze Spalte markiert"
End Sub

---

Das ist genau der richtige Grundstein 
Wirkt zwar auch, wenn nur die erste Zelle in einer Spalte markiert ist, aber das müsste zu umgehen sein.

Besten Dank!

------------------
Ich möchte sterben wie mein Opa: Im Schlaf. Nicht schreiend wie sein Beifahrer.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

Code:

---

    If Selection.Top = 0 And Selection.Cells.Count = 65536 Then MsgBox "ganze Spalte markiert"

---

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Beverly:

Code:

---

    If Selection.Top = 0 And Selection.Cells.Count = 1048576 Then MsgBox "ganze Spalte markiert"

---

---

Ist XL2007

Nochmals Danke!

------------------
Ich möchte sterben wie mein Opa: Im Schlaf. Nicht schreiend wie sein Beifahrer.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

zu deiner Version stand nichts im Beitrag. Dann wäre es besser, erst die Version zu prüfen.

------------------
Bis später,
Karin

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich weiß 

------------------
Ich möchte sterben wie mein Opa: Im Schlaf. Nicht schreiend wie sein Beifahrer.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Hofe,

oder Du wartest, bis Dir Excel 2010 zur Verfügung steht : Auf den ersten Blick erfüllen 'Slicers' Deine Anforderungen recht gut.

Zitat:

---

New to Excel 2010 are slicers, which are visual controls that allow you to quickly and easily filter your data in an interactive way. They float above the grid, like charts and shapes...

---

------------------
DIN1055.de  |  Lastannahmen für Anwender NEU: Foren zu DIN 1055

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin Paulchen!

Ah, mal wieder ne neue Version, hört sich nicht schlecht an.
Lassen wir uns überraschen.

Ich habe die Aufgabe mit den Anregungen aus diesem Thread umgesetzt, funktioniert bestens.
Bis auf die Umkehrung der Sortierung beim nächsten Klick auf den Spaltenkopf, die brauche ich nicht, deswegen habe ich mir die Mühe gespart.

------------------
Ich möchte sterben wie mein Opa: Im Schlaf. Nicht schreiend wie sein Beifahrer.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP