Hi, ich bekomme gerade im Sekundentakt mehrere E-Mails, die sich für entweder eine Subscription oder Accounterstellung bedanken von hunderten von verschiedenen Seiten.

Dazu gehören auch polnische sowie tschechische Websites.

Irgendeine Idee, was hier los ist?

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