---

Hallo,

ich habe gesucht aber noch nichts gefunden...
Ich möchte in ein Arbeitsblatt einen Button, den ich in mehreren Spalten verwenden kann, einfügen.
Wenn man auf den Button clickt soll man auswählen können zwischen "Von A bis Z sortieren" und umgekehrt.

Kann mir dazu jemand eine anfängerfreundliche Anleitung geben ?

Vielen Dank

------------------
------------------
Freundliche Grüße

mald

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

---

Mappe1.xlsm.txt

Hi mald,

hier mal eine Qick'n very dirty - Lösung (.txt am Ende der Datei entfernen!)

Bei dem Button handelt es sich um ein ActiveX - Steuerelement. Wenn du im Entwurfsmodus bist, kannst du dir den Code dahinter ansehen (doppelklick auf den Button) und ggf. für andere Buttons anpassen (Copy&Paste).

Viel Spass beim basteln und ändern...

Tobias

PS: die Routinen für die Festlegung der Sortierung sind mit dem MacroRecorder von Excel aufgezeichnet

------------------
Besucht mich doch mal in meiner Tischlerei

"...Kommunikation ist nur so gut wie ihr Ergebnis..." - frei nach Richard Bandler / John Grinder

"...Wenn du das tust, was du schon immer tust, wirst du auch nur das erhalten, was du schon immer erhalten hast..."

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

---

SortierenperDoppeloderRechstklick.zip

ohne Knöpfchen 

Doppelklick= Aufwärtssortiert
Rechtsklick = Abwärts sortiert
Reaktion gilt nur für A1:C1 'bei Bedarf erweitern, Filter neu setzen

Code:

---

Option Explicit
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(ActiveCell, Range("A1:C1")) Is Nothing Then
        ActiveCell.Sort ActiveCell, xlAscending, Header:=xlYes
    End If
    ActiveCell.Offset(1, 0).Select
End Sub
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(ActiveCell, Range("A1:C1")) Is Nothing Then
        Cancel = True
        ActiveCell.Sort ActiveCell, xlDescending, Header:=xlYes
    End If
    ActiveCell.Offset(1, 0).Select
End Sub

---

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

---

Hallo Thomas Harmening,

genau diese Funktion habe ich gesucht.
Leider weiß ich nicht wo ich den Code einsetzen muss, bzw.
wie erstelle ich dieses Feld mit Button ?

Edit : Wo ich den Code einfüge habe ich gefunden. Nur ist der Button zur Auswahl dann noch nicht
vorhanden und die Überschrift wird noch mit sortiert.

Edit 2 : Habs gefunden (den Filterbutton)

Danke für eure Hilfe

------------------
------------------
Freundliche Grüße

mald

[Diese Nachricht wurde von mald am 18. Feb. 2014 editiert.]

[Diese Nachricht wurde von mald am 18. Feb. 2014 editiert.]

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

---

Hallo,

noch eine Frage...

Kann man auch Gruppierungen verschieben, so dass eine Zeile (die Hauptaufgabe) erst
verschoben wird, wenn die untergeordneten Zeilen (die unteren Aufgaben) alle Erledigt sind ?

------------------
------------------
Freundliche Grüße

mald

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