AW: Eine Spalte nach Häufigkeit sortieren
14.04.2008 18:04:00
Daniel
Hallo Reinhard,
sorry für die Verspätung aber wollte warten bis ich zuhause bin damit ich nocht noch mehr Dreifachpostings produziere. Ich habe das File nochmal hochgeladen https://www.herber.de/bbs/user/51546.xls
echt komisch mir dem Fehllink. Also in dem alten Threat wollte ich ja die Zeilen die in Spalte A und B vorkommen löschen. Das ging wunderbar mit dem Makro von Daniel. Deins konnte ich noch nicht testen weil das mit dem "Value" einfügen nicht hinhaute. Hier nochmal das Skript:
Sub test()
Dim z1 As Long, z2 As Long
z1 = ActiveSheet.UsedRange.Row
z2 = ActiveSheet.UsedRange.Rows.Count
Range("A:B").Insert
Cells(z1, 2).Resize(z2, 1).FormulaR1C1Local = "=ZS(1)&ZS(2)"
Cells(z1, 1).Resize(z2, 1).FormulaR1C1Local = "=WENN(ZÄHLENWENN(S(1);ZS(1))>1;WAHR;ZEILE() _
)"
With Cells(z1, 1).Resize(z2, 2)
.Formula = .Value
.EntireRow.Sort key1:=Cells(z1, 1) '--- kann weggelassen werden, dann wirds bei _
grossen _
Tabellen langsamer
On Error Resume Next
.SpecialCells(xlCellTypeConstants, 4).select ' --- diese Zeile ist nur nur zur _
Verdeutlichung im Einzelstepmodus
.SpecialCells(xlCellTypeConstants, 4).EntireRow.Delete
On Error GoTo 0
.EntireColumn.Delete
End With
End Sub
Aber jetzt nochmal mein jetziges Anliegen und das des Threats. Ich möchte einfach eine Spalte mit mehreren Duplikaten und Unikaten nach Häufigkeit sortieren, sodass die Zeilen nach dieser Reihenfolge sortiert werden. Ich möchte dann die Unikate überprüfen und im Anschluss löschen um noch mehr Platz im Dokument zu schaffen.
Hoffe es ist verständlich genug ausgedrückt.