Laufzeitfehler 9

Computer: Software & Programmierung Office Software
1

Hallo Experten

Ich möchte mit diesem Makro Werte kopieren und in eine andere Mappe kopieren. Doch es wird immer der Laufzeitfehler 9 generiert !

Was stimmt denn da nicht ?

Private Sub tt()

 Dateiname = Application.GetOpenFilename("C:\Temp\temp, \*.xlsx")

 Set Datei = Workbooks.Open(Dateiname)
 Datei.Worksheets(Sheet1).Range("A1:A20").Copy Destination:=ThisWorkbook.Worksheets(Sheet1).Range("A1:A20")
 Datei.Close

End Sub

Vielen Dank
Flexo

2

Grüezi Flexo

Datei.Worksheets(Sheet1).Range(„A1:A20“).Copy
Destination:=ThisWorkbook.Worksheets(Sheet1).Range(„A1:A20“)

Wenn ‚Sheet1‘ der Name eines Tabellenblattes ist, dann setze diesen ebenfalls in Gänsefüsschen, dann müsste es klappen.

Mit freundlichen Grüssen

Thomas Ramel

  • MVP für MS-Excel -
3

Hallo Thomas

Stimmt, das Problem war der wechsel zwischen englisch/deutscher Excel Version :smile:

Danke
Flexo