Hallo zusammen
Kann folgender Code (Teil eines Makros) vereinfacht werden, damit er schneller läuft. Zudem möchte ich jeder gleiche Eintrag zählen und die jeweilige Summe pro Eintrag in Spalte L eintragen.
'--Spalten H und G kopieren, doppelte löschen und sortieren
With Worksheets("Test")
'kopieren
.Activate
.Columns("G:H").Copy
.Range("J1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
'doppelte löschen
intLastRow = .Cells(Rows.Count, "J").End(xlUp).Row
For Start = 1 To intLastRow
For Beginn = (1 + Start) To intLastRow
If (.Cells(Start, "J") = .Cells(Beginn, "J") And .Cells(Start, "K") = .Cells(Beginn, "K")) Then
.Range(Cells(Start, "J"), Cells(Start, "K")).ClearContents
End If
Next
Next
'sortieren
.Sort.SortFields.Add Key:=Range("J2:J900"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
With Worksheets("Test").Sort
.SetRange Range("J2:K900")
.Orientation = xlTopToBottom
.Apply
End With
End With
Vielen Dank und Gruss
Gregor