Neu entstandenen Bereich auswählen
29.12.2018 23:47:07
Gig
mit dem nachfolgenden Code kann ich einen von mir selektierten Bereich sortieren und Bereiche davon verschieben.
Nach durchgeführter Arbeit möchte ich, dass der neu entstandene Bereich markiert (selektiert) ist und nicht der von mir urprüngliche Bereich.
Wie könnte man das lösen?
Besten Dank im Voraus!
LG
Sub test()
Dim rng As Range
Set rng = Selection ' hier den Zellbereich zuweisen
With rng
.Sort key1:=.Cells(1, 3), order1:=xlAscending, _
key2:=.Cells(1, 1), order1:=xlAscending, Header:=xlNo
.Offset(.Rows.Count / 2, 0).Resize(.Rows.Count / 2).Cut _
Destination:=.Offset(0, .Columns.Count).Resize(1, 1)
End With
With rng.Resize(rng.Rows.Count / 2, rng.Columns.Count * 2)
.Sort key1:=.Cells(1, 4), order1:=xlAscending, Header:=xlNo
End With
End Sub