Makro beschleunigen oder kürzen!!
lisa
Hallo zusammen
Meine Frage an die Spezialisten
Wie bekomme ich mein Makro so umgestellt, dass nicht jedesmal das Quellworkbook geöffnet wird!!?
Sub Makro1()
Dim sName As String
sName = Range("c4")
Application.ScreenUpdating = False
Workbooks.Open Filename:= _
"W:\2009\KW " & Range("c3") & " _ tgl Linienkennzahlen.xls"
Sheets(sName).Select
Range("O13:O31").Copy
Windows("Mappe2").Activate
Range("c5").PasteSpecial Paste:=xlPasteValues
sName = Range("d4")
Workbooks.Open Filename:= _
"W:\2009\KW " & Range("d3") & " _ tgl Linienkennzahlen.xls"
Sheets(sName).Select
Range("O13:O31").Copy
Windows("Mappe2").Activate
Range("d5").PasteSpecial Paste:=xlPasteValues
sName = Range("e4")
Workbooks.Open Filename:= _
"W:\2009\KW " & Range("e3") & " _ tgl Linienkennzahlen.xls"
Sheets(sName).Select
Range("O13:O31").Copy
Windows("Mappe2").Activate
Range("e5").PasteSpecial Paste:=xlPasteValues
Windows("KW " & Range("e3") & " _ tgl Linienkennzahlen.xls").Activate
ActiveWindow.Close
End Sub
Gruß Lisa