Hallo,
ich möchte gerne, erst ein Bereich löschen, dann aus einem andern Sheet was in diesen Bereich kopieren und dann wenn alles erfolgt ist, eine Sortierung vornehmen.
Application.Calculation = xlCalculationManual
Sheets("Auswertung-Warengruppen").Range("G2:I30000").ClearContents
Sheets("SAPDATEN").Range("A:A,D:E").Copy Sheets("Auswertung-Warengruppen").Range("G1")
Columns("A:D").Sort key1:=Range("D:D"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.Calculation = xlCalculationAutomatic
Kann ich es so machen?
Gruß
Roman