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