Sub Makro3()
last=10
while cells(last,1)><"" : Rem Erste leere Zelle in Spalte 1 ab Zeile 10 suchen
last=last+1
wend
Range(Cells(10, 1), Cells(last, 10000)).Select
ActiveSheet.Sort.SortFields.Clear
ActiveSheet.Sort.SortFields.Add Key:=Range( _
"A2:A50" ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveSheet.Sort
.SetRange Range( "A10:O50" )
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
|