Excel VBA Finden und Sortieren?
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
1 Antwort
Vom Fragesteller als hilfreich ausgezeichnet
Von gutefrage auf Grund seines Wissens auf einem Fachgebiet ausgezeichneter Nutzer
Microsoft Excel
Sub Sort()
Dim i As Integer
Dim Wochentag()
Wochentag = Array("Montag", "Dienstag", "Mittwoch", "Donnerstag", "Freitag", "Samstag", "Sonntag")
For i = 0 To 6
Cells.Find(What:=Wochentag(i), After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Select
'...
Next
End Sub
Du kannst auch über die Tabellenblätter iterieren.
Dim sh As Worksheet
For Each sh In Worksheets
'...
Next
Wow hat mir sehr geholfen, vielen Dank!