VBA Sortieren nach Spalte A
01.07.2017 07:38:21
Siggi
mal wieder brauche ich eure hilfe.
Wie kann man diesen aufgenommenen Code verkleinern und die Zeilen sortieren nicht nach Bereich sondern bis ganz unten. Von A3 bis Flexible
Sub Makro3()
' Makro3 Makro
Range("A3:I4444").Select
ActiveWorkbook.Worksheets("Test").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Test").Sort.SortFields.Add Key:= _
Range("A3:A4444"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("Test").Sort
.SetRange Range("A2:I4444")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
Leibe Grüße Siggi
Anzeige