Hallo ponscho,
nachfolgendes Makro sollte das machen, was Du Dir vorgestellt hast. Mit dem Makro wird zunächst die gesamte Auflistung nach Interpreten und dann nach der Kalenderwoche sortiert. Danach werden die doppelten und davon jüngsten Duplikate gelöscht.
Kopiere das Makro in ein StandardModul und starte es z.B. über eine Befehlsschaltfläche
Teste das Makro aber bitte in einer Testdatei und nicht gleich in Deiner Originaldatei.
Option Explicit
Sub Vergleichen()
Dim lngRow As Long
Dim lngRowVergleich As Long
Dim lngLastRow As Long
Application.ScreenUpdating = False
lngLastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
'Daten erst nach Interpret, dann nach Kalenderwoche sortieren
ActiveSheet.Range("A1:IV" & lngLastRow).Sort Key1:=ActiveSheet.Range("B2"), Order1:=xlAscending, _
Key2:=ActiveSheet.Range("D2"), Order2:=xlAscending, Header:=xlGuess
'Schleife um Duplikate zu löschen
For lngRow = lngLastRow To 2 Step -1
If ActiveSheet.Cells(lngRow, 2) = ActiveSheet.Cells(lngRow + 1, 2) Then
ActiveSheet.Rows(lngRow).Delete Shift:=xlUp
End If
Next
End SubIch hoffe, Du meintest das so?
Solltest Du nicht wissen, wie Du den Code in Deine Datei bekommst, dann schau mal auf
meiner HP in der
Rubrik Anleitungen und dort dann in der
Anleitungsnummer 3 oder Nr. 16 nach. Dort stelle ich dazu eine bebilderte Anleitung zur Verfügung, die Dir sicherlich helfen wird.
Bei Fragen melde Dich.
MfG,
Oliver
[sub]Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du[/sub]
[sup] ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.[/sup]
