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