Kopieren und einfügen zwischen 2 Dateien und unterschiedlichen Mappen
Ich teste mich in Vb und komme grade nicht weiter.
Hoffe es es hilft auvh anderen.
Hier mein Vorhaben...
Ich habe 2 Dateien und er soll aus der ersten den Inhalt der Mappe1
in die Datei in Mappe2 kopieren. Hierbei soll er aber die Formeln nicht zestören, die in Datei1 hinterlegt sind.
Hier was irgendwie nicht funzt...
Hoffe es es hilft auvh anderen.
Hier mein Vorhaben...
Ich habe 2 Dateien und er soll aus der ersten den Inhalt der Mappe1
in die Datei in Mappe2 kopieren. Hierbei soll er aber die Formeln nicht zestören, die in Datei1 hinterlegt sind.
Hier was irgendwie nicht funzt...
Sub Quelldatei_Sync()
Windows("N:\Ordner\Datei1.xls").Activate
Sheets("Quelldatei!!").Select
Cells.Select
Range("A1").Copy
Windows("N:\Ordner\Datei2.xls").Activate
Sheets("Quelldatei!!").Select
Cell.Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 172081
Url: https://administrator.de/forum/kopieren-und-einfuegen-zwischen-2-dateien-und-unterschiedlichen-mappen-172081.html
Ausgedruckt am: 24.12.2024 um 13:12 Uhr
10 Kommentare
Neuester Kommentar
Hallo Underdog81,
ich habe zwar schon eine Weile nicht mehr Programmiert,
und kann dir die Syntax nicht nennen,
aber ich kann dir evt. schon sagen, woran das ganze liegt ;)
Range("A1").Copy
Hast du mal versucht in eine Excel Tabelle zu gehen und dann einfach nur die einzelnen Zeilen zu Kopieren?
Ich glaube mich entsinnen zu können, dass dann keine Formeln übernommen werden,
sondern nur die reinen Daten.
Lg Grapper
ich habe zwar schon eine Weile nicht mehr Programmiert,
und kann dir die Syntax nicht nennen,
aber ich kann dir evt. schon sagen, woran das ganze liegt ;)
Range("A1").Copy
Hast du mal versucht in eine Excel Tabelle zu gehen und dann einfach nur die einzelnen Zeilen zu Kopieren?
Ich glaube mich entsinnen zu können, dass dann keine Formeln übernommen werden,
sondern nur die reinen Daten.
Lg Grapper
Hallo Underdog81!
VBA ist super - wenn Du "Werte einfügen" (="PasteValues") verlangst, kriegst Du das auch ...
Versuch es so:
Grüße
bastla
P.S.: @grapper: Du solltest Deine Erinnerungen etwas auffrischen ...
[Edit] Noch etwas kompakter formuliert [/Edit]
VBA ist super - wenn Du "Werte einfügen" (="PasteValues") verlangst, kriegst Du das auch ...
Versuch es so:
Windows("N:\Ordner\Datei1.xls").Sheets("Quelldatei!!").Cells.Copy
Windows("N:\Ordner\Datei2.xls").Activate
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
bastla
P.S.: @grapper: Du solltest Deine Erinnerungen etwas auffrischen ...
[Edit] Noch etwas kompakter formuliert [/Edit]
...oder " es würde gerne, aber es traut sich nicht" ??
Vielleicht hat er kein Laufwerk N: auf seinem Rechner gemäppt?
Oder die Zielzelle "A1" ist gelöscht?
@Underdog81
Falls du nicht bald eine exaktere Fehlermeldung postest, werden bestimmt noch mehr hilfreiche Ratereien kommen....
Grüße
Biber
Vielleicht hat er kein Laufwerk N: auf seinem Rechner gemäppt?
Oder die Zielzelle "A1" ist gelöscht?
@Underdog81
Falls du nicht bald eine exaktere Fehlermeldung postest, werden bestimmt noch mehr hilfreiche Ratereien kommen....
Grüße
Biber
Hallo Underdog81!
Beschreibe doch bitte mal den gesamten Ablauf, wobei, wenn "Datei2" neu erstellt werden soll, ja auch gleich das gesamte Blatt kopiert werden könnte:
Grüße
bastla
Sagt mir also, dass die Pfade nicht passen
Die Fehlermeldung lässt darauf schließen ...Beschreibe doch bitte mal den gesamten Ablauf, wobei, wenn "Datei2" neu erstellt werden soll, ja auch gleich das gesamte Blatt kopiert werden könnte:
Sheets("Quelldatei !! ").Copy
ActiveWorkbook.SaveAs Filename:="N:\Ordner\Datei2.xlsx"
bastla
Hallo Underdog81!
Also bei mir funktioniert folgende Zeile (auch mit dem, sagen wir mal "ungewöhnlichen", Tabellennamen):
- natürlich unter der Voraussetzung, dass beide Dateien geöffnet sind.
Grüße
bastla
Also bei mir funktioniert folgende Zeile (auch mit dem, sagen wir mal "ungewöhnlichen", Tabellennamen):
Workbooks("Datei1.xlsx").Sheets("Quelldatei !! ").Cells.Copy Workbooks("Datei2.xlsx").Sheets("Quelldatei !! ").Range("A1")
Grüße
bastla