Windows / Activate
21.05.2005 23:07:57
Ernst
Ich möchte aus einer beliebiegen Mappe "xy" mit dem untenstehenden Code eine Zelle aus der Mappe "Data.xls" in die geöffnete Mappe kopieren. Der unten stehende Code funktioniert aber nur für die "Mappe1".
Wie müsste der Code ergänzt werden, dass er für eine beliebige Mappe funktioniert?
Für eine Antwort bin ich dankbar.
Ernst Dunkel
Sub Daten()
Workbooks.Open Filename:="C:\Programme\Test\Data.xls"
Selection.Copy
Windows("Mappe1").Activate
Range("A3").Select
ActiveSheet.Paste
End Sub