In meiner dynamischen Tabelle sollte diese nach jeweils jeder Spalte neu sortiert
werden können!
siehe Testmappe im Anhang!
Vielen Dank für Eure Hilfe
Gruß Gerhard
https://www.herber.de/bbs/user/121255.xls
Sub Sorierung()
Dim iCol As Integer
iCol = ActiveSheet.Shapes(Application.Caller).TopLeftCell.Column
Cells.Sort Key1:=Cells(1, iCol), Order1:=xlAscending, Header:=xlYes, OrderCustom:=1, _
Orientation:=xlTopToBottom, DataOption1:=xlSortTextAsNumbers
End Sub
Viele Grüße