Sub Tornagen_Einfügen()
' Tonnagen_Einfügen Makro
' Fügt die Tornagen und die Lieferanten in die Berechnung ein
Application.Calculation = xlCalculationManual
Sheets("Tonnagen-Schrott").Range("Q1:W30000").ClearContents
Sheets("SAPDATEN").Range("C:C,F:I").Copy Sheets("Tonnagen-Schrott").Range("Q1")
Sheets("SAPDATEN").Range("A:B").Copy Sheets("Tonnagen-Schrott").Range("V1")
Sheets("Tonnagen-Schrott").Select
Range("A1:E42").Select
Selection.Sort Key1:=Range("C2"), Order1:=xlDescending, Header:=xlGuess, _
1547,91OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.Calculation = xlCalculationAutomatic
End Sub
Die Fehlermeldung kommt bei der Zeile wo es anfängt zu sortieren: Selection.Sort usw.
wie kann ich es denn abändern, daß es mir die Spalte C2 sortiert und es keine Fehlermeldung gibt?
gruß
roman