Copy/paste-macro ist zu langsamm
07.06.2004 16:32:33
Anna
ich habe ein Problem... dieses Macro funktioniert zwar aber sehr sehr langsam und hängt manchmal sogar... Giebt es vielleicht da irgenein Trick bei Copy/Paste Funktion...
Ich nehme an das Problemm liegt daran...
Oder?
Also ich wäre euch sehr dankbar, wenn ihr mir helf... das ist sehr wichtig...
Sub CSS_41_DT_File_Aendern(siFileFullName As String)
Dim FSO As New FileSystemObject
Dim siFileName As String
Dim siFileNameTemp As String
Workbooks.Open Filename:=siFileFullName
siFileName = FSO.GetFileName(siFileFullName)
siFileNameTemp = siFileName
siFileNameTemp = Replace(siFileNameTemp, ".xls", "")
siFileNameTemp = Replace(siFileNameTemp, ".XLS", "")
Sheets(siFileNameTemp).Range("B2:J7000").Copy
Windows("Copy of SCM41_AT_Kennzahlen_1_home.xls").Activate
Sheets("Meldungen im CSN").Select
Range("G15").PasteSpecial
'Workbooks.Open Filename:= _
'"\\dwdf037\gbu_SCM_Proj\APO_41\Projekt_KPI\scm41_DT.xls"
Windows(siFileName).Activate
Sheets(siFileNameTemp).Range("K2:O7000").Copy
'Range("K2:O7000").Copy
Windows("Copy of SCM41_AT_Kennzahlen_1_home.xls").Activate
Sheets("Meldungen im CSN").Select
Range("Q15").PasteSpecial
End Sub
Viele Grüss
Anna