|
Hallo unbekannter Helfer Gast37523,
vielen Dank erst mal für Deine Antwort. Habe die Anweisung entsprechend angepasst, aber er werden leider zu viele Daten gelöscht.
With ActiveSheet.UsedRange.Columns("A:D")
Call .Sort(Key1:=.Cells(2, 1), Order1:=xlAscending, _
Key2:=.Cells(2, 4), Order2:=xlDescending, _
Header:=xlYes)
Call .RemoveDuplicates(Columns:=1, Header:=xlYes)
End With
Habe über den Makro-Rekorder bereits einiges probiert, allerdings ohne Erfolg. Es handelt sich um eine längere Preisliste, die nach Kunde, Artikel, Preis und Datum sortiert ist. Als Ergebnis benötige ich zu jedem Kunden, zu den einzelnen Artikeln den zuletzt gültigen Preis. Könnte mir vorstellen, dass es nur mit Loop und if-Anweisung zu lösen ist.
Gewünschtes Ergenis ist:
10100 94037 30 05.05.2014
10435 95050 10 02.04.2014
Ist halt doch eine Herausforderung, zumindest für mich als Anfänger in VBA.
|