VBA-Code optimieren
07.02.2005 09:35:51
Torsten
folgenden Code möchte ich gerne optimieren:
...
Sheets("SORT").Range("A2:A101").Copy
Sheets("JAN").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("FEB").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("MAR").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("APR").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("MAY").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("JUN").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("JUL").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("AUG").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("SEP").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("OKT").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("NOV").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Sheets("DEC").Range("H13").PasteSpecial Paste:=xlValues, Operation:=xlNone
Application.CutCopyMode = False
...
Könnt Ihr mir helfen?
Vielen Dank im voraus.
Gruß
Torsten