AW: Datumsabhängiger Dateiname - Bitte Code posten
07.08.2009 19:21:44
Motul24
Hallo NoNet,
hier kommt der Code:
Sub WLQ()
Application.ScreenUpdating = False
Windows("Pegy_adhoc_600_2009_08_07.xls").Activate
Range("B9:B14,b16:b20,c9:c14,c16:c20,d9:d14,d16:d20,e9:e14,e16:e20,f9:f14,f16:f20").Select
Selection.Copy
Windows("adhoc-Reporting SWS.xls").Activate
Range("B35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Pegy_adhoc_600_2009_08_07.xls").Activate
Range("k9:k11,k15:k20").Select
Selection.Copy
Windows("adhoc-Reporting SWS.xls").Activate
Range("h35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Pegy_adhoc_600_2009_08_07.xls").Activate
Range("l9:l13,l15:l20").Select
Selection.Copy
Windows("adhoc-Reporting SWS.xls").Activate
Range("i35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Pegy_adhoc_600_2009_08_07.xls").Activate
Range("n9:n13,n15:n20").Select
Selection.Copy
Windows("adhoc-Reporting SWS.xls").Activate
Range("g35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Pegy_adhoc_600_2009_08_07.xls").Activate
Range("k22:k26,k28:k31").Select
Selection.Copy
Windows("adhoc-Reporting SWS.xls").Activate
Range("j35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Windows("Pegy_adhoc_600_2009_08_07.xls").Activate
Range("l22:l26,l28:l31").Select
Selection.Copy
Windows("adhoc-Reporting SWS.xls").Activate
Range("k35").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Danke und Grüße