Daten kopieren im Hintergrund
26.09.2006 14:03:51
Thorsten
Ich lasse mit folgendem Code Daten von Tabelle 1 in Tabelle 2 kopieren. (2 Dateien)
Sub Test()
Range("E4:T24").Select
Selection.Replace What:="", Replacement:="0", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("E4").Select
Selection.Copy
Windows("Gateübersicht.xls").Activate
Range("E11").Select
ActiveSheet.Paste
Windows("Mappe1.xls").Activate
Range("E5").Select
Selection.Copy
Windows("Gateübersicht.xls").Activate
Range("C4").Select
ActiveSheet.Paste
Windows("Mappe1.xls").Activate
Range("E7").Select
Selection.Copy
Windows("Gateübersicht.xls").Activate
Range("C5").Select
ActiveSheet.Paste
Windows("Mappe1.xls").Activate
Range("E8").Select
Selection.Copy
Windows("Gateübersicht.xls").Activate
Range("C6").Select
ActiveSheet.Paste
Windows("Mappe1.xls").Activate
End Sub
Dabei kommt es immer zu unschönen hin- und her springen zwischen den Dateien.
Kann man das machen, dass das ganze im Hintergrund läuft? Ohne, dass man den Vorgang so auffällig sieht?