Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1796to1800
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro sortieren Zellen erweitern

Makro sortieren Zellen erweitern
11.12.2020 21:36:21
Roger
Guten Abend
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro sortieren Zellen erweitern
11.12.2020 21:52:22
ralf_b

Private Sub CommandButton1_Click()
Dim arr, i, ii, temp2, temp3
arr = Range("A2:C100")
For i = 1 To Range("A2:C100").Rows.Count
For ii = i + 1 To Range("A2:C100").Rows.Count
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:C100") = arr
End Sub

AW: Makro sortieren Zellen erweitern
11.12.2020 21:57:37
Roger
Vielen Dank
Es funktioniert einwandfrei....
Gruess Roger
gerne owt
11.12.2020 22:07:32
ralf_b
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige