BLatt kopieren und in andere Datei einfügen
Holger
das meiste habe ich mir hier aus der Onlinesuche zusammengesucht. Nun scheitere ich aber.
Folgende Ausgangslage.
Ich habe eine Datei auf, die folgenden Code beinhaltet.
Sub Dateien_aktualisieren()
Sheets("Testdaten").Select
On Error GoTo Fehler
Range("A2").Select
For i = 2 To 10
Datei = ActiveCell.Value
Workbooks.Open Filename:=Datei
ActiveWorkbook.Sheets("Übersicht").Copy after:=Workbooks("Test.xls").Sheets(Workbooks("Test.xls" _
_
).Worksheets.Count)
ActiveWorkbook.Save
ActiveWorkbook.Close
ActiveCell.Offset(0, 5).Value = "aktualisiert"
ActiveCell.Offset(1, 0).Select
Next
Fehler:
MsgBox "Fehler!"
End Sub
Nach den ...... verabschiedet sich immer meine Ausgangdsdatei mit dem Code. Ich scheine also die falsche Datei anzusprechen.
Wer kann mir helfen?
Gruß
Holger
Anzeige