|
Gewünschtes Ergenis ist:
10100 94037 30 05.05.2014
10435 95050 10 02.04.2014
Und genau das liefert das Makro auch.
Probier es erst mal ohne Anpassen des Codes.
Option Explicit
Sub Test()
With ActiveSheet.UsedRange '<-ggf. anpassen
Call .Sort(Key1:=.Cells(1, 1), Order1:=xlAscending, _
Key2:=.Cells(1, 4), Order2:=xlDescending, _
Header:=xlYes)
Call .RemoveDuplicates(Columns:=1, Header:=xlYes)
End With
End Sub
Es kommt ein wenig darauf an wie das Tabellenblatt aufgebaut ist. Wenn nur die von dir gezeigte Tabelle im Blatt existiert, musst du den obigen Code nicht weiter anpassen. UsedRange bezieht sich auf den Teil des Blattes, der Daten enthält (manchmal betrifft das auch scheinbar leere Zellen, ist aber erstmal nicht weiter wild).
|