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

Button mit Mehrfachbelegung möglich?

Forumthread: Button mit Mehrfachbelegung möglich?

Button mit Mehrfachbelegung möglich?
Frank
Hallo Excelfreunde,
ist es möglich mit einem Commandbutton in einer Tabelle nach 3
unterschiedlichen Spalten(A bis C) aufsteigend zu sortieren?
Gruß Frank
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Button mit Mehrfachbelegung möglich?
K.Rola
Hallo,
eine Möglichkeit, der Bottun heißt cmd1, der Code muss in das Modul
der betreffenden Tabelle:
Option Explicit

Private Sub cmd1_Click()
Dim SRange As String
Select Case cmd1.Caption
Case "Sortiert nach A1": cmd1.Caption = "Sortiert nach B1"
Case "Sortiert nach B1": cmd1.Caption = "Sortiert nach C1"
Case "Sortiert nach C1": cmd1.Caption = "Sortiert nach A1"
End Select
SRange = Right(cmd1.Caption, 2)
Columns("A:C").Sort Key1:=Range(SRange), Order1:=xlAscending, Header:=xlGuess
End Sub

Gruß K.Rola
Anzeige
Danke, alles klar oT
Frank
oT
;

Beliebteste Forumthreads (12 Monate)

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