mittels makrorecorder habe ich nachstehndes makro aufgezeichnet und alles unnötige herausgelöscht. kann mir jemand sagen, ob dies auch noch einfacher geht?
danke
gruss andi
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
Rows("3:1000").Select
Sheets("Tabelle1").Select
Selection.Sort Key1:=Range("D3"), Order1:=xlAscending, Header:=xlNo, DataOption1:=xlSortNormal
Sheets("Tabelle2").Select
Selection.Sort Key1:=Range("D3"), Order1:=xlAscending, Header:=xlNo, _
DataOption1:=xlSortNormal
Sheets("Tabelle3").Select
Selection.Sort Key1:=Range("D3"), Order1:=xlAscending, Header:=xlNo, _
DataOption1:=xlSortNormal
Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
Range("A1").Select
Sheets("Tabelle1").Select
End Sub