Clever-Excel-Forum

Seiten: 1 2

Hi,
ich habe es noch etwas strukturiert, versuche es mal damit:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
   ' 
   ' Sort Makro 
   ' 
   
   ' 
   With ActiveWorkbook.Worksheets("Tabelle2").Sort
      With .SortFields
         .Clear
         .Add Key:=Range("K6:K9"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
         .Add Key:=Range("J6:J9"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
         .Add Key:=Range("H6:H9"), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
      End With
      .SetRange Range("B6:K9")
      .Header = xlGuess
      .MatchCase = False
      .Orientation = xlTopToBottom
      .SortMethod = xlPinYin
      .Apply
   End With
End Sub

Seiten: 1 2

Rabe