ich habe dieses Makro, funktioniert.
Nun möchte ich dies gern so anwenden, das ich bei Aufruf die
zu sortierende Spalte auswählen kan und zwar von
Spalte A bis Spalte M bzw.1 bis 13 .
Sub Sortieren()
Dim z As Long
Range("A5").Select
z = Range("A5").End(xlDown).Row
ActiveSheet.Range(Cells(6, 1), Cells(z, 13)).Select
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub
herzl. kurt p