VBA - Zellen sortieren
20.05.2016 21:38:10
Astis
kann mir jemand bei einem vermutlich nicht all zu schwerem Problem helfen?
Der folgende Code (teilweise mit VBA Recorder aufgenommen) soll den ausgewählten Bereich sortieren. Allerdings soll sich der Code nicht "fixiert" auf das bezeichnete Worksheet "schumann" beziehen sondern lediglich auf das "ausgewählte" bzw. aktive.
Wenn ich das versuche umzuschreiben fehlt aber immer ein "Objekt" - kann einer von euch mal drü _
ber schauen? vielen Dank !
Sub Sortieren()
x = Cells(Rows.Count, 1).End(xlUp).Offset(0, 0).Row
Range("A5:A" & x).Select
ActiveWorkbook.Worksheets("Schumann").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Schumann").Sort.SortFields.Add Key:=Range("B5:B30" _
), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Schumann").Sort
.SetRange Range("A4:B" & x)
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("A5").Select
End Sub