Ich versuche eine dynamische Suche mit anschließender Sortierung bis zu einem bestimmten Wort zu generieren mittels VBA
also suche das Wort "Nick" und ab nächster Zeile Sortiere alphabetisch nach Spalte ABC, solange bis das Wort "Thomas" kommt.
Das Sortieren habe ich bereits gelöst.
.SortFields.Add _
Key:=Range("B5:B17"), SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
Die Range passt jedoch nicht mehr, da es variable sein muss.Also irgendwas mit Do Until Startbedingung (alle Zeilen nach "Nick" bis "Thomas")
i = i+1
SortOn:=xlSortOnValues, Order:=xlAscending, _
DataOption:=xlSortNormal
loop
Kann mir jemand einen Tip geben?