Zellen in andere Datei Kopieren
28.11.2022 21:38:53
Sascha
Ich möchte Werte aus einem bestimmten Zellbereich in eine andere Datei in eine neuem Arbeitsblatt kopieren. Das Arbeitsblatt wird nach den Zellinhalt M1:N1 benannt.
Ich bekomme immer Laufzeitfehler '9': Index außerhalb des gültigen Bereichs.
Mein Code:
Sub BlattInGeschlosseneMappeKopieren()
Application.ScreenUpdating = False
Set GeschlosseneMappe = Workbooks.Open("F:\Test\Prov Muster\ProvAuskunft\Provisionsauskunft_Vorlage2.xlsm")
Sheets("Vorlage").Range("A4:O500").Copy Before:=GeschlosseneMappe.Sheets("Stammdaten")
On Error Resume Next
ActiveSheet.Name = Range("M1:N1").Value
On Error GoTo 0
GeschlosseneMappe.Close SaveChanges:=True
Application.ScreenUpdating = True
MsgBox "Die Daten wurden kopiert.", 64, "Kopieren beendet"
End Sub