|
Hallo zusammen,
habe folgendes Problem:
In einem VBA-Kurs muss ich in mehreren Tabellenblättern die letzte Spalte des Datensatzes nach Größe abstigend sortieren.
Als Lösung wird das angegeben:
Sub
Range("A1").Select
ActiveCell.CurrentRegion.Select
Selection.Sort Key1:=Range("F:F"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
wenn ich es ausführe, erhalte ich das und es funktioniert auch nicht für alle Tabellenblätter:
Sub SortLastCol()
'
' SortLastCol Makro
'
'
ActiveWorkbook.Worksheets("Section A").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Section A").Sort.SortFields.Add Key:=Range( _
"F1:F10"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Section A").Sort
.SetRange Range("A1:F10")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Kann mir jemand helfen und sagen, wie ich den obigen Code als Makro ausführe?
Danke und VG
MNYFC
|