AW: Sortieren
26.03.2020 10:37:13
Sascha
Hallo Amon,
Man brauch noch aber genaue Infos von dir nach was sotiert werden soll. größter kleinster Wert?
Sub Liste_sortieren
Application.ScreenUpdating = False
Rows("4:81").Select
ActiveWorkbook.Worksheets("NameDeinerTabelle").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("NameDeinerTabelle").Sort.SortFields.Add Key:=Range( _
"B4:B81"), SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"BEDINGUNG NACH WAS SORTIERT WERDEN MUSS", DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("NameDeinerTabelle").Sort.SortFields.Add Key:=Range( _
"B4:B81"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("NameDeinerTabelle").Sort.SortFields.Add Key:=Range( _
"C4:C81"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
ActiveWorkbook.Worksheets("NameDeinerTabelle").Sort.SortFields.Add Key:=Range( _
"D4:D81"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("NameDeinerTabelle").Sort
.SetRange Range("A13:Z700")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A10").Select
Application.ScreenUpdating = True
End Sub
Ich hoffe das hilft dir weiter. Bin selber noch kein Pro darin.
Gruß Sascha