Spalte in anderes Excel-File kopieren

[18398]

Hallo zusammen

Ich würde gerne per Makro-Schaltfläche eine Spalte aus einem Excel-File in ein Anderes kopieren.
Mein jetziger Makro sieht bis jetzt so aus:

Code:

Sub ArtNr_holen()

Dim arr() As Variant
' einlesen
arr = Workbooks("Servername/Weinkartentool_Weinsteckbrief 26.11.2019.xlsx").Worksheets("1").Range("A:A")
' ausgeben
Workbooks("Servername/produkttabelle.xlsm").Worksheets("1").Range("A:A") = arr

End Sub

Dieser funktioniert jedoch leider nicht. (Laufzeitfehler 9)
Hätte jemand eine Idee wie es funktionieren könnte?

Grüsse

[schauan]

Hallöchen,

Workbooks("Servername/produkttabelle.xlsm")

ein Slash kann unmöglich in einem Dateinamen stehen. Versuche, eine neue Textdatei mit dem Namen A/B.txt anzulegen ...
Der Pfad zu einer Datei wird nicht in der Liste der offenen Dateien verwendet.

Einen funktionierenden Code für Deine Aktion kannst Du z.B. mit dem Makrorekorder aufzeichnen. Den kannst Du mit Deinem vergleichen und siehst die Problemstellen.

Falls Du Daten in eine geschlossene Datei schreiben willst, wird das etwas komplexer. Schaue Dir dazu dieses Tutorial an:
ADO und Excel