|
Folgendes Problem:
Ich will einige Daten von einem Sheet in eine zweite kopieren und dabei Sortieren.
Statisch gesehn hab ich es geschafft, aber dynamisch gesehen, hänge ich etwas am Schlauch..
Also wenn ich keine bestimmte Anzahl von Daten habe, wie müsste dann der Code lauten auf VBA.
Sub copy()
Worksheets(1).Range("A1:E27").copy Destination:=Worksheets(2).Range("A1")
With ThisWorkbook.Worksheets(2)
.Range("A2:E27").Sort _
Key1:=.Range("D2"), Order1:=xlAscending, _
Header:=xlYes, orderCustom:=1, _
MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End With
End Sub
|