ich möchte meine Tabelle sortieren nach Spalte H(von 1 bis)G(jüngstes Datum)E(niedrigeste Zahl)
Zeilen 19 und 20 sollen außen vorgelassen werden
Sub Makro1()
Dim lZ As Long
With Worksheets("17.15 - 18.30 Uhr Volleyball H3")
lZ = .Range("G7").End(xlDown).Row
Debug.Print lZ
.Sort.SortFields.Clear
.Sort.SortFields.Add2 Key:=Range("H7:H" & lZ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add2 Key:=Range("G7:G" & lZ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SortFields.Add2 Key:=Range("E7:E" & lZ), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
.Sort.SetRange .Range("C7:J" & lZ)
.Sort.Header = xlNo
.Sort.Apply
End With
End Sub
cu