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
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige