Hi, ich würde gerne, dass er eine Reihe von Werten findet und die Tabelle, in der sie sich befinden, von A bis Z sortiert.
Hat jemand eine Ahnung, wie ich ihn durch Montag-Samstag loopen lasse, ohne dass ich das 100 Mal kopieren muss?
Vielen Dank im Voraus
Sub Sort()
Cells.Find(What:="Montag", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
ActiveSheet.AutoFilter.Sort.SortFields.Clear
ActiveSheet.AutoFilter.Sort.SortFields.Add Order:=xlAscending, _
SortOn:=xlSortOnValues, Key:=ActiveCell.CurrentRegion
ActiveSheet.AutoFilter.Sort.Apply
End Sub