Kürzen und schneller machen?
12.01.2005 13:07:46
Roman
wie kann diesen Befehl kürzen und schneller machen?
Sheets("SAPDATEN").Select
ActiveWindow.LargeScroll ToRight:=-1
Columns("A:A").Select
ActiveWindow.SmallScroll ToRight:=3
Range("A:A,F:F,G:G").Select
Range("G1").Activate
Selection.Copy
Sheets("Auswertung-Warengruppen").Select
ActiveWindow.SmallScroll ToRight:=6
Range("G1").Select
ActiveSheet.Paste
Range("J3").Select
ActiveWindow.LargeScroll ToRight:=-2
danke
Roman