AW: ok. Danke ich versuche das so
09.01.2011 20:17:07
Hubert
Hallo Achim
die Formel von Daniel für deine Datei in einem Makro müsste so aussehen:
( und das wiederum kannst du in ein Gesamtpaket packen )
Sub Sortier_Lösch()
Range("A3:H500").Select
Selection.Sort Key1:=Range("A3"), Order1:=xlAscending, Key2:=Range("F3") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom
Range("I3").Select
ActiveCell.FormulaR1C1 = "=IF(RC[-1] ""Führerscheinverlängerung KOM"","""",if(or(and(R[-1] _
C[-8]=RC[-8],R[-1]C[-3]=RC[-3]),and(R[1]C[-8]=RC[-8],RC[-3]=R[1]C[-3])),""Löschen"", """"))"
Range("I3").Select
Selection.Copy
Range("I4:I500").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("I3:I500").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="Löschen"
Selection.EntireRow.Delete
Columns("I:I").Select
Selection.ClearContents
Range("A1").Select
End Sub
Hier auch noch mal als Beispiel-Datei
https://www.herber.de/bbs/user/72997.xls
Gruß,
Hubert