Sub Sortieren_nach_Datum()
Application.ScreenUpdating = False
Call Blattschutz_aufheben
ActiveWorkbook.Worksheets("Daten").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Daten").Sort.SortFields.Add Key:=Range("N18:N3000") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Daten").Sort.SortFields.Add Key:=Range("M18:M3000") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Daten").Sort
.SetRange Range("J18:Q3000")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
'Range("J18").Select
Call Blattschutz_setzen
End Sub
Die Spalten N bzw. M sollen dabei variabel sein. Am besten wäre ein cells(z,s) da ich so mit Vorschüben arbeiten kann, aber ich weiß nicht wie ich es genau umsetze.Vielen dank schon mal für eure Hilfe!