Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
704to708
704to708
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sortieren

Forumthread: Sortieren

Sortieren
05.12.2005 01:11:49
Sven
Hallo,
möchte mit einem Button eine Liste mit drei Spalten sortieren.
Beim ersten Klick auf den Button soll nach A1 sortiert werden, beim zweiten
Klick nach B1 und beim dritten nach C1, nach welcher Zelle gerade sortiert wurde, soll auf dem Button zu sehen sein, also die Beschriftung.
Freue mich mich auf die Antworten.
Grüße Sven
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Sortieren
05.12.2005 07:14:52
Erich
Hallo Sven,
wenn du auf einem Blatt einen CommoandButton1 platzierst die Tabelle mit folgendem Code versiehst, sollte es funzen: 

Option Explicit
Dim bytLastSort As Byte
Private Sub CommandButton1_Click()
Select Case bytLastSort
Case 0, 3
bytLastSort = 1
Case 1, 2
bytLastSort = bytLastSort + 1
End Select
Cells.Sort key1:=Cells(1, bytLastSort), Header:=xlYes
CommandButton1.Caption = "Sort. nach " & bytLastSort & ". Spalte"
End Sub

Es ist etwas ungewöhlich, einen Button mit dem Ergebnis der letzten Aktion zu beschreiben statt mit der Aktion, die durch Button_Click ausgelöst wird - aber du wolltest es so.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige