Hallo,
kann mir jemand sagen, was hier dran falsch ist:
Application.Calculation = xlCalculationManual
Columns("A:D").Sort , key1:=Range("D2"), Order1:=xlDescending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.Calculation = xlCalculationAutomatic
Ich sortiere damit meine Lieferanten nach dem Betrag aus D.
Gruß
Roman