Makro aus Excel 2003 funktioniert nicht in Ex 2007
07.04.2009 19:27:56
Lene
ich habe in 2003er Version ein kleines Makro, das in der 2007er Version einen Fehler verursacht.
Hat jemand einen Tipp, woran es liegt ich wie man das Makro so umschreiben kann, dass es in möglichst vielen Excel-Versionen läuft? Der künftige Benutzerkreis hat leider diverse Excel-Versionen :(
Viele Grüße
Lene
Option Explicit
Sub test()
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Call filtere
Call sortiere_kunde_termin
Sheets(1).Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub
Sub filtere()
Range("Ablage").Clear
Sheets("help").Select
Range("Daten").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Filterkriterien"), CopyToRange:=Range("Zielbereich"), Unique:=True
End Sub
Sub sortiere_kunde_termin()
Range("Ablage").Select
Selection.sort Key1:=Range("Ablage_Kunde"), Order1:=xlAscending, Key2:=Range("Ablage_Termin" _
_
_
), Order2:=xlAscending, Header _
:=xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom _
, DataOption1:=xlSortNormal, DataOption2:=xlSortNormal, DataOption3:= _
xlSortNormal
End Sub
PS: Ich kann leider weder die genaue Fehlermelung liefern, noch selber testet, da ich nur die 2003er Verison habe.