Daten aus geöffneter Datei kopieren
01.04.2009 19:43:56
Mone
ich bin wieder mal am "Durchdrehen" :-)
Vielleicht könnt ihr mir mal wieder helfen.
Ich habe eine Datei, die beim öffnen eine weitere Datei (Quelldatei) öffnet. Nun steuer ich mit einem Button ein Formular in der Quelldatei an. Auf diesem Formular ist ein weiterer Button. Beim Betätigen soll ein bestimmter Zellbereich aus der Quelldatei in die Zieldatei kopiert werden. Das Problem ist, dass der Name der Zieldatei variieren kann. Der Name der Quelldatei bleibt immer gleich.
Gibt es hierfür eine Lösung?
Wenn ich den Code aufzeichne kommt folgendes heraus:
Sub Datenkopieren()
Windows("MappeQuelle.xls").Activate
ActiveWindow.WindowState = xlNormal
Range("A1:D13").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Mappe2").Activate ' hier liegt der Fehler, da der Dateiname sich immer ändern _
kann
Range("A18").Select
ActiveSheet.Paste
Range("D16").Select
End Sub