Irgendwie ist das der Wurm drin.
Ich möchte einen bestimmten Bereich kopieren und sortieren. Nun ist dieser Bereich aber Variabel.
In A6 gebe ich an wie viele Werte ich kopieren möchte.
Die Werte Beginnen bei A8 und laufen von dort aus variabel weit.
Nur irgendwie funktioniert mein Code nicht so, wie ich es mir vorstelle.
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
Dim X As Integer
X = Range("A6").Value
Range("A(8:B(8+X)").Copy
Range("D8").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("C8:E(8+X)").Application.CutCopyMode = False
SequenceCreator2.Sort.SortFields.Clear
SequenceCreator2.Sort.SortFields.Add Key:=Range("C8"), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With SequenceCreator2.Sort
.SetRange Range("C8:E(8+X)")
.Header = xlNo
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
|