ich habe mit dem Recorder - leider habe nur diese Kenntnisse - ein Makro zum sortieren aufgezeichnet. Nun wechselt aber der Bereich immer wieder, da sich die Anzahl der Zeilen durch neue Datensätze erweitert. Kann mir bitte jemand helfen, den Makro so zu ändern, dass immer bis zur letzten Zeile markiert und sortiert wird.Sortieren erfolgt nach Spalte B.
Hier mein Recoderergebnis:
Sub sortieren()
Range("B7:AP92").Select 'dieser Bereich sollte variabel sein
ActiveWorkbook.Worksheets("anwesen").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("anwesen").Sort.SortFields.Add Key:=Range( _
"B7:B92"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("anwesen").Sort
.SetRange Range("B7:AP92")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("AG7").Select
End Sub
Vielen Dank für jede HilfeLiebe Grüße
Gisela