ich möchte von einer Datei eine Tabelle "Tabelle1" in eine andere Datei kopieren und dort die Tabelle "Tabelle1" überschreiben, also keine neue Tabelle erzeugen.
Ich habe somit folgendes Makro erstellt:
Private Sub CommandButton1_Click()
Dim AN$, n%
AN = ActiveWorkbook.Name
Application.DisplayAlerts = False
Application.Workbooks.Open "sicherung.xls"
Windows("Mappe2.xls").Activate
Sheets("Tabelle2").Select
Cells.Select
Selection.Copy
Windows("sicherung.xls").Activate
Sheets("Tabelle2").Select
Cells.Select
ActiveSheet.Paste
Range("A1").Select
Sheets("Tabelle1").Select
ActiveWorkbook.Save
ActiveWorkbook.Close
Windows("Mappe2.xls").Activate
Sheets("Tabelle1").Select
Range("A1").Select
Application.DisplayAlerts = True
End Sub
Leider kommt immer eine Fehlermeldung bei
Cells.Select
er kann den Bereich nicht markieren. Außerdem findet er nicht gleich die Datei "sicherung.xls" beim ersten Makroaufruf. Erst wenn ich die "sicherung.xls" öffne und wieder speichere geht es.
Wer kann mir weiterhelfen?
Für bisherige Beiträge möchte ich mich bedanken.
Gruß Enrico