Andere Lösung für Activate?
21.04.2004 21:00:03
Wolfgang
ich suche für folgende Sequenz eine andere(bessere) Lösung?
Workbooks("Mappe1").Sheets("Tabelle2").Activate
ActiveSheet.Range(Workbooks("Mappe1).Sheets("Tabelle1").Cells(5, 1)).Select
Selection.Copy
Workbooks("Mappe2").Sheets("Tabelle1").Activate
ActiveSheet.Range(Workbooks("Mappe3").Sheets("Tabelle1").Cells(2, 28)).Select
ActiveSheet.Paste
Mit folgendem Weg für die Kopier-Funktion glaubte ich es besser zu machen, leider funktioniert es so nicht..
Set rng = Workbooks("Mappe1").Worksheets("Tabelle2").Range("A1:L2650")
Set rng1 = Workbooks("Mappe1").Worksheets("Tabelle1).Range("A1:BY100")
rng.rng1.Cells(5, 1).Select
Selection.Copy
Zusammenfassend möchte ich das Aktivieren der Mappen vermeiden.
Könnt ihr mir bitte einen Hinweis geben.
Danke im voraus.
Gruß
Wolfgang