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

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

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

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige