Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Zellen in andere Datei Kopieren

Zellen in andere Datei Kopieren
28.11.2022 21:38:53
Sascha
Hallo zusammen,
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
Ich finde die Lösung nicht :-(
Anzeige

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Zellen in andere Datei Kopieren
28.11.2022 21:47:20
GerdL
Hallo Sascha,
teste mal.

Sub BlattInGeschlosseneMappeKopieren()
Application.ScreenUpdating = False
Set GeschlosseneMappe = Workbooks.Open("F:\Test\Prov Muster\ProvAuskunft\Provisionsauskunft_Vorlage2.xlsm")
ThisWorkbook.Sheets("Vorlage").Range("A4:O500").Copy Before:=GeschlosseneMappe.Sheets("Stammdaten")
ActiveSheet.Name = ThisWorkbook.Sheets("Vorlage").Range("M1").Value & ThisWorkbook.Sheets("Vorlage").Range("N1").Value
GeschlosseneMappe.Close SaveChanges:=True
Application.ScreenUpdating = True
MsgBox "Die Daten wurden kopiert.", 64, "Kopieren beendet"
End Sub
Gruß Gerd
Anzeige
AW: Zellen in andere Datei Kopieren
28.11.2022 22:00:14
Sascha
Hallo Gerd,
erstmal Danke, leider bekomme ich jetzt einen anderen Fehler!
Laufzeitfehler'1004': Anwendungsfehler- oder objektdefinierter Fehler
AW: Zellen in andere Datei Kopieren
28.11.2022 22:03:10
GerdL
Ja, besser mal so.

Sub BlattInGeschlosseneMappeKopieren()
Application.ScreenUpdating = False
Set GeschlosseneMappe = Workbooks.Open("F:\Test\Prov Muster\ProvAuskunft\Provisionsauskunft_Vorlage2.xlsm")
Sheets.Add Before:=GeschlosseneMappe.Sheets("Stammdaten")
ThisWorkbook.Sheets("Vorlage").Range("A4:O500").Copy ActiveSheet.Cells(1, 1)
ActiveSheet.Name = ThisWorkbook.Sheets("Vorlage").Range("M1").Value & ThisWorkbook.Sheets("Vorlage").Range("N1").Value
GeschlosseneMappe.Close SaveChanges:=True
Application.ScreenUpdating = True
MsgBox "Die Daten wurden kopiert.", 64, "Kopieren beendet"
End Sub
Gruß Gerd
Anzeige
AW: Zellen in andere Datei Kopieren
28.11.2022 22:08:52
Sascha
Komisch jetzt wird ein Leeres Tabellenblatt erstellt ohne inhalt.

 ActiveSheet.Name = ThisWorkbook.Sheets("Vorlage").Range("M1").Value & ThisWorkbook.Sheets("Vorlage").Range("N1").Value
wird fehler gemeldet Laufzeitfehler'1004': Anwendungsfehler- oder objektdefinierter Fehler
Anzeige
AW: Zellen in andere Datei Kopieren
28.11.2022 22:17:20
Sascha
Sorry, das Tabellenblatt war leer deswegen auch neues Leeres Tabellenblatt
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige