Microsoft Excel

Herbers Excel/VBA-Archiv

Sortieren

Betrifft: Sortieren von: Amon Karl
Geschrieben am: 26.03.2020 10:05:01

Hallo

Ich habe ein Arbeitsblatt "Punkte" da werden zwischen B3 - D80 Werte eingetragen und mit Verweis in das Arbeitsblatt "Gesamt" zum richtigen Namen übertragen B4-D81.

In Gesamt werden die Werte Addiert.

Nach jedem Übertrag und Berechnung soll die Liste automatisch sortiert werden, zuerst nach Spalte G, dann nach Spalte F.

Kann mir bitte jemand helfen, da ich keine Kenntnisse darüber habe.


Danke

Betrifft: AW: Sortieren
von: Sascha Nollenberger
Geschrieben am: 26.03.2020 10:37:13

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

Beiträge aus dem Excel-Forum zum Thema "Sortieren"