ich habe ein Problem mit dem sortieren einer Tabelle
es soll ab Zeile 22 Spalte A bis G sortiert werden.
Sub SortR()
Dim Endrow%
Dim WB As Variant
Dim wks As Object
WB = ActiveWorkbook.Name
Set wks = Workbooks(WB).Sheets("Rechnung")
Endrow = wks.Cells(Rows.Count, 7).End(xlUp).Row
With wks
.Select
Range(.Cells(22, 1), .Cells(Endrow, 7)).Select
wks.Sort.SortFields.Clear
wks.Sort.SortFields.Add Key:=Range(.Cells(22, Endrow), .Cells(7, Endrow)) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
End With
With wks.Sort
.SetRange Range(.Cells(22, 1), .Cells(Endrow, 7))
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Danke, Gruß Sigi