ist es möglich mit einem Commandbutton in einer Tabelle nach 3
unterschiedlichen Spalten(A bis C) aufsteigend zu sortieren?
Gruß Frank
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen