Office: Zeilenwerte in andere Excel Datei kopieren

Hallo zusammen,

in einem anderen Forum habe ich einen interessanten VBA Code gesehen, der es ermöglicht per "Knopfdruck" bestimmte Zellen in eine andere Excel Datei zu kopieren.

Wie ist das eigentlich, wenn statt bestimmter Zellen nur eine Zeile markiert wird und dort die Inhalte der erforderlichen Spalten herausgenommen werden?
Zum Beispiel die Spalten: B, C, D, E, G, H, L, O, P, die dann in die Zellen der anderen Excel Datei: A1, Z2, A2, E3, E2, T6, A3, Z3, Z1 eingefügt werden. Das sind jetzt mal willkürlich gewählte Werte, damit ich das Ganze später nachvollziehen kann.

Der Code:
Code:

Quelle: http://herber.de/forum/archiv/...

Wäre cool, wenn da jemand was weiß. *wink.gif*

Liebe Grüße
Chris

:)

 

Guten Morgen,

weiß niemand was oder ist die Frage nicht klar formuliert?

Liebe Grüße
Chris

 

Hallo Chris,

Dann versuche mal deinen Eingangs-Beitrag als Außenstehender zu lesen.

Wenn ich dich richtig verstanden habe, willst du ausgewählte Zellen von einer Excel-Datei in eine andere kopieren.
Statt einen Code hier zu präsentieren, der allein von seiner Länge her offenbar für eine ganz andere Aufgabenstellung gedacht war, solltest du mal deine Aufgabenstellung etwas konkreter beschreiben.

So zum Beispiel:
- ist die empfangende Datei geöffnet
- von welchem Datenblatt in welches ist zu kopieren ?
- sind nur die Werte oder auch die Formate mit zu übernehmen ?
- was wäre ein konkreter Anwendungsfall ?
- welche Variationen sind zu erwarten
- was soll der Auslöser für das Kopieren sein ?

Außerdem kannst du gerne auch eine Beispiel-Datei hier zur Verfügung stellen.

Gruß
Aloys

 

Hallo Aloys,

vielen Dank für deine Rückmeldung!

Ich versuche mal die Fragen zu beantworten:

Nein, die empfangende Datei ist nicht geöffnet.

Das ist egal, es sind nur nicht die selben Dateien. Also Tabelle 1 nach Tabelle 1.

Nur die Werte.

Daten, die in einer anderen Datei gebraucht werden (in der empfangenden Datei an bestimmten Stellen) und mit einer solchen Funktion
leichter übertragen werden können, da sich in der Spalte viele Informationen befinden, die dann nicht mehr einzeln von Hand kopiert werden müssten.

Was genau meinst du mit Variationen? Ob sich in den Tabellen etwas ändert?

Der Klick auf einen Button.

- Ich habe den Code aus meinem ersten Beitrag ausprobiert. Er überträgt Daten, aber nur aus bestimmten Zellen.

Was mich aber interessiert ist, ob das auch funktioniert:
- Durch markieren der Zeile soll Excel wissen, welche Daten es aus der markierten Zeile in eine neue, (noch) geschlossene Datei übertragen soll.

Es sind auch eine Datenspeicher-Dateien angehängt. Ich habe mal den vorhandenen Code eingepflegt, aber natürlich funktioniert der nicht auf die Art, die ich suche.
Die Empfängerdatei kann ja erst mal ein x-beliebiges leeres Excel-Dokument sein.

Ich hoffe jetzt ist es ein bisschen klarer.

Liebe Grüße
Chris

 

Hallo Chris,

Das sollte der nachstehende Code leisten.

Gruß
Aloys
Code:

 

Hallo Aloys,

vielen Dank für deine Hilfe. Ich hatte leider seit Freitag kein Internet, deshalb werde ich mir deinen Code erst jetzt, aber dafür sofort anschauen. *Smilie

Liebe Grüße
Chris

 

Hallo Aloys,

weißt du, was ich falsch mache, wenn der Laufzeitfehler "Laufzeitfehler '52': Dateiname oder -nummer falsch" kommt?

Laut Debugger ist der Fehler in dieser Zeile:

Liegt es an einer fehlerhaften Pfad- oder Dateinameneingabe?

Mein Pfad: "C:\Users\...\...\" (aus der Adressleiste kopiert)
Mein Dateiname: "Testdatei.xlsx"

Liebe Grüße
Chris

 

Hallo Aloys,

ich hab meinen Fehler entdeckt: Die empfangende Datei muss bei diesem Code geöffnet sein.

Die Daten werden jetzt vom Datenspeicher in die empfangende Datei an der Stelle übertragen, an der sie auch in der Datenspeicher-Datei stehen - sehe ich das richtig so?

Kann ich nochmal deine Hilfe in Anspruch nehmen?
Was muss angepasst werden, wenn mehrere Daten aus einer Zeile an bestimmte Stellen in die geschlossene Empfänger-Datei übertragen werden?

Wie in meinem Eingangspost, zum Beispiel:

Vielen Dank dir und liebe Grüße
Chris

 

Hallo Chris,

Das ist nicht richtig !
Wenn die Datei nicht geöffnet ist, wird sie eben geöffnet. Du musst im Code bei sPfad nur den Pfad anpassen.

Anbei eine neue Version:
Code:

 

Hallo Aloys,

vielen lieben Dank für deine Hilfe! Es läuft alles super!
Nur bringt er mir immer noch die Fehlermeldung wie in meinem Beitrag von heute morgen beschrieben, und auch wie heute morgen nur wenn die empfangende Datei nicht geöffnet ist.
Das ist ziemlich merkwürdig, da du sagst, dass sie sich automatisch öffnen sollte.

Ich habe den Pfad hier eingetragen:
Code:

 

Hallo Chris,

Das ist doch schon mal eine gute Nachricht.

Noch besser ist es, wenn du bei sPfad meinen Pfad durch deinen ersetzen würdest.
sPfad = "C:\Users\...\..."
Dann müßte das auch so funktionieren, wie du es dir vorgestellt hast.

Gruß
Aloys

 

Danke Aloys!
Da kann man natürlich lang probieren, wenn man immer einen Slash vergisst... *mrcool

Eine schöne Woche wünsche ich dir und nochmal vielen, vielen Dank!

Liebe Grüße,
Chris

 

Hallo Aloys und alle anderen,

zu dem Thema habe ich nochmal eine Frage bzgl. Excel-Datei und Excel-Vorlage.
Aloys hat mir ja schon sehr geholfen, aber der Code erlaubt keine Excel-Vorlage, oder zumindest jammert er bei mir "Index außerhalb des gültigen Bereichs" - jetzt ist meine Frage, was ich anpassen muss, dass er auch Excel-Vorlagen nimmt?

Liebe Grüße
Chris

 

Guten Morgen,

kann mir an dieser Stelle jemand weiter helfen?

Liebe Grüße
Chris

 

Guten Morgen,

weiß heute jemand was ich anpassen muss?

Liebe Grüße

Chris