Sortieren per Makro ohne löschen

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

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub CommandButton1_Click() Dim arr, i, ii, temp2, temp3 Dim letzteZ As Long Dim letzteA As Long Dim letzteB As Long letzteA = Range("A:A").End(xlUp).Row letzteB = Range("B:B").End(xlUp).Row letzteZ = IIf(letzteA > letzteB, letzteA, letzteB) arr = Range("A2:C" & letzteZ) For i = 1 To letzteZ For ii = i + 1 To letzteZ If arr(i, 1) "" Then 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 End If Next ii Next i Range("I2:K" & letzteZ) = arr End Sub

Sub CommandButton1_Click() Dim arr, i, ii, temp2, temp3 Dim letzteZ As Long Dim letzteA As Long Dim letzteB As Long letzteA = Cells(Rows.Count, 1).End(xlUp).Row letzteB = Cells(Rows.Count, 2).End(xlUp).Row letzteZ = IIf(letzteA > letzteB, letzteA, letzteB) arr = Range("A2:C" & letzteZ) For i = 1 To letzteZ - 1 For ii = i + 1 To letzteZ - 1 If arr(i, 1) "" Then 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 End If Next ii Next i Range("B2:C" & letzteZ - 1) = arr End Sub

Sub test() Dim lZ As Long lZ = Cells(Rows.Count, 3).End(xlUp).Row With Range("D2:D" & lZ) .FormulaR1C1 = "=Match(RC2,R2C1:R" & lZ & "C1,0)" .Offset(0, -2).Resize(, 3).Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlNo .ClearContents End With End Sub

Private Sub CommandButton1_Click() Dim lZ As Long lZ = Cells(Rows.Count, 3).End(xlUp).Row With Range("D2:D" & lZ) .FormulaLocal = "=VERGLEICH($B2;$A$2:$A$" & lZ & ";0)" .Offset(0, -2).Resize(, 3).Sort key1:=.Cells(1, 1), order1:=xlAscending, Header:=xlNo .ClearContents End With End Sub

ja, kann man machen.
aber man kann sich die Formel ja in der Tabelle anschauen, wenn man das Makro mal im Einzelstep durchgeht.
FormulaR1C1 verwende ich, weil
- der Recorder so aufzeichnet, dh ich brauche die Formel nicht in VBA zu "programmieren" sondern kann sie direkt im Tabellenblatt erstellen und zeichne das dann VBA-tauglich auf (ist vorallem bei komplexen Formeln hilfreich, weil es Tippfehler vermeidet).
- FormulaR1C1 funktioniert unabhängig von der Länderversion, dh der Code läuft so auch auf einem nicht deutschen Rechner.
- R1C1 ist besser für die Programmierung aus zwei gründen:
a) relative Zellbezüge können auch relativ beschrieben werden. Damit sind die Formeltexte unabhängig von der Zielzelle und relative Zellbezüge müssen nicht angepasst werden, wenn sich die Zielzelle ändert. Das erleichtert die Erstellung der Formel in sich verändernden Tabellen.
b) Spalten werden auch als Zahl dargestellt, immer dann hilfreich, wenn eine Spaltennummer per Variable in die Formel eingebracht werden muss, weil in VBA die Spaltennummer einfacher zu ermitteln ist als der Spaltenbuchstabe.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

Sortieren per Makro ohne löschen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Sortieren per Makro ohne löschen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread