Eine Tabelle mit rund 3600 Datensätze beinhaltet u.a.
mehrmals und in unterschiedlicher Anzahl die ein und selbe Artikelnummer.
Nun möchte ich ein Makro welches neben der Artikelnummer in der gleichen Zeile das dort vorhandene Datum prüft und zuletzt alle gleiche
komplette Zellen löscht in denen diese Artikelnummer doppelt oder sogar 5-fach vorhanden ist. Das Ergebnis soll sein:
Nur mehr eine Zeile mit einer Artikelnummer mit jüngstem Datum.
Bsp:
Spalte A Spalte B Spalte C Spalte D
Artikelnr. Datum Überschrift1 Überschrift2
55 23.05.02 xxxx xxxxx
55 23.05.03 xxxx xxxxx
Nun soll also in diesem Bsp der 1. Datensatz gelöscht werden.
Wer hilft mir dabei?
Danke im voraus und Gruß
Nun möchte ich ein Makro welches neben der Artikelnummer in
der gleichen Zeile das dort vorhandene Datum prüft und zuletzt
alle gleiche komplette Zellen löscht in denen diese Artikelnummer doppelt oder sogar 5-fach vorhanden ist. Das Ergebnis soll sein:
Nur mehr eine Zeile mit einer Artikelnummer mit jüngstem
Datum.
Spalte A Spalte B Spalte C Spalte D
Artikelnr. Datum Überschrift1 Überschrift2
55 23.05.02 xxxx xxxxx
55 23.05.03 xxxx xxxxx
Nun soll also in diesem Bsp der 1. Datensatz gelöscht werden.
Hi Christian,
probier mal das nachfolgende Makro.
Gruß
Reinhard
Sub Makro1()
’
’ Makro1 Makro
’ Makro am 29.04.2004 von r aufgezeichnet
’
’
Range(„A1:smiley:5“).Select
Selection.Sort Key1:=Range(„A1“), Order1:=xlAscending, Key2:=Range(„B1“) _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Range(„E1“).FormulaLocal = „=Wenn(A2=A1;0;1)“
Range(„E1“).Copy
Range(„E1:E5“).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range(„E1:E5“).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Range(„A1:E5“).Select
Selection.Sort Key1:=Range(„E1“), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range(„A1“).Select
End Sub