ich hätte da nochmal ne Frage an die Experten...: ;-)
Ich habe ein Makro mit folgendem Code erstellt - sorry für den laienhaften Code aber ich fange gerade erst an mit VBA...
Folgende Fragen dazu:
1) Gibt es irgendwas gravierendes, das man hier Eurer Meinung nach weglassen oder einfacher gestalten könnte ?
2) Meine Tabelle enthält in Spalte A jeweils eine Fallnummer. Da diese teilweise mehrfach vorkommt, dann jedoch mit unterschiedlichen Daten in Spalte B, sortiert das Makro wie unten gezeigt.
Ich möchte nun, dass jede Fallnummer beim jeweils ersten Eintrag nach der Sortierung mit "aktive" in Spalte C gekennzeichnet wird und alle folgenden Einträge mit derselben Fallnummer mit "duplicate".
Gibt's dafür auch ne Lösung ?
Wichtig ist mir, dass dabei die Reihenfolge der Sortierung beibehalten wird, da hier die Prio vorgegeben wird... ;-)
Sub Sort_and_Filter()
Range("A:J").Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A:A") _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B:B") _
, SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
"Compliance - EU Receiving Limit High Restriction,Compliance - EU Receiving Limit 45 _
Day Low Restriction,Compliance - EU Receiving Limit Annual Warning,Compliance - EU Receiving Limit Documents Up Front" _
, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A:J")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End
Sub
Vielen Dank Euch für jeden Tipp !
LG aus Dublin,
Mandy