Daten aus Fremdliste kopieren
Jay
Ich will mit einem Makro auf eine andere Datei zugreifen und dort Daten kopieren um sie in die Original Datei einfügen.
Die zu kopierenden Spalten sind immer gleich, jedoch mit wechselndem Ende.
Mit folgendem Code will ich das realisieren:
Sub Daten_kopieren_ZABLN_EURO()
Dim s As Integer
s = MsgBox("Ist die Liste ZABLN_EURO_MMTT.xlsx geöffent? Sind alle anderen EXCEL _
Dateien geschlossen?", vbOKCancel)
If s = 2 Then Exit Sub
' Wechseln zu aktueller Liste
ActiveWindow.ActivateNext
' Bereich Markieren
Range("A2:F2").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
' Zurück zur Original Datei und Daten einfügen
ActiveWindow.ActivatePrevious
Range("A6").Select
ActiveSheet.Paste
End Sub
Habe dann mal die andere Liste geschlossen und das Makro an sich funktioniert. Der Fehler tritt nur beim Zugriff auf die andere Datei auf.
Kann mir jemand auf die Sprünge helfen?
Danke im Voraus.
Gruß
jaytosh