Makro sortieren Zellen erweitern
11.12.2020 21:36:21
Roger
Dieses Makro funktioniert einwandfrei gerne würde ich die Zeilen erweitern das zum Beispiel 100 Zellen auf diese Art sortiert werden können. https://www.herber.de/bbs/user/142272.xlsx
Wie gehe ich vor damit ich dies erreichen kann?
Bin froh um Eure Hilfe. Roger
Private Sub CommandButton1_Click()
Dim arr, i, ii, temp2, temp3
arr = Range("A2:C10")
For i = 1 To 9
For ii = i + 1 To 9
If arr(i, 1) = arr(ii, 2) Then
temp2 = arr(ii, 2): temp3 = arr(ii, 3)
arr(ii, 2) = arr(i, 2): arr(ii, 3) = arr(i, 3)
arr(i, 2) = temp2: arr(i, 3) = temp3
End If
Next ii
Next i
Range("A2:C10") = arr
End Sub
Anzeige