Noch mal kurz: Ich will von einer Datei eine Tabelle in eine andere Datei kopieren und die dort vorhandene Datei ersetzen.
Das folgende Modul hat auch funktioniert mit wenig Tabelleninhalt.
Aber:
Ich habe folgendes jetzt auf eine andere Datei angewendet und es kommt immer der Fehler
"Index außerhalb des gültigen Bereichs."
in der Zeile
wkb2.Sheets("TabÜbergabe").Activate
Private Sub cmdDepotumsatz_Click()
Dim wkb1 As Workbook
Dim wkb2 As Workbook
Dim n%
Set wkb1 = ActiveWorkbook
Application.DisplayAlerts = False
Set wkb2 = Application.Workbooks.Open(wkb1.Path & "\" & "Rankinglisten.xls")
wkb2.Sheets("TabÜbergabe").Activate
wkb2.Sheets("TabÜbergabe").Cells.Clear
wkb1.Sheets("Tabelle1").UsedRange.Copy wkb2.Sheets("TabÜbergabe").Cells(1, 1)
wkb2.Close True
wkb1.Sheets("Tabelle1").Activate
wkb1.Sheets("Tabelle1").Range("A1").Select
Application.DisplayAlerts = True
End Sub
Wer kann mir helfen, es ist sicher ein dummer fehler von mir.
Tabellennamen sind richtig vergeben und die Zieldatei wird auch geöffnet. Beide Dateien sind im selben Pfad.
vielen Dank
Gruß Enrico