Ich möchte dass es mir im Tabellenblatt "Depot" die Spalte "L" ab Zeile 2 bis zur letzten Zeile nach dem Alphabet sortiert!
Wie muss ich das machen?
Kann mir jemand dabei behilflich sein?
Besten Dank.
Gruss Daniel
Sub Daniel()
Sheets("Depot").Range("L:L").Sort _
Key1:=Cells(1, 12), Header:=xlYes, Order1:=xlAscending
End Sub
Gruss CharlySub Makro1()
With Worksheets("Depot")
.Sort.SortFields.Clear
.Sort.SortFields.Add2 Key:=Range("L2"), SortOn:=xlSortOnValues, _
Order:=xlAscending, DataOption:=xlSortNormal
With .Sort
.SetRange Range("L:L")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End With
End Sub
Gruss Charly