Supportnet / Forum / Tabellenkalkulation

Hallo zusammen, Ich habe folgendes Problem: Ich habe ein Formular entwickelt, das mit laufender Nummer abgespeichert werden soll, mit dem Kürzel WGA+laufender Nummer. Diese gespeicherten Dokumente sollen nun ausgelesen werden und in eine Auswertungstabelle kopiert werden. Also, immer wenn einige neue Formulare ausgefüllt wurden, sollen einzelne Werte und Text übertragen werden. Dabei sollte möglichst auch die Wga Nummer aus dem Dateinamen vor die einzelnen übertragenen Werte übernommen werde, damit eine Zuordnung möglich ist. Mit der Copy/Paste Methode hat es irgendwie nicht funktioniert. Ich komme einfach nicht dahinter, wie ich die Daten von Mappe zu Mappe übertragen kann, per VBA. Z.B. Wert der Zelle G3 soll in die andere Mappe in B3, oder Text aus F4 soll in ....usw. Ich hoffe mir kann jemand helfen! Grüsse von Kai

Moin Kai,

mal als Ansatz: Nachfolgender Code kopiert alles, auch Formeln und Formate, aus Zelle G3 in eine andere Arbeitsmappe B3. Jedenfalls macht der Code das unter Excel 2000 und Excel 2002. Daher sollte er auch unter Excel97 laufen, da sich bezüglich des Kopierens, so weit ich weiß, nichts geändert hat zwischen den Excelversionen. Kann es leider nicht unter 97 testen, da ich das nicht mehr installiert habe. Kopiere das Makro in ein Standardmodul Deiner Datei und weise es einer Schaltfläche zu.

Sub Daten_kopieren()
Workbooks("Mappe1.xls").Worksheets("Tabelle1").Range("G3").Copy _
Workbooks("Mappe2.xls").Worksheets("Tabelle1").Range("B3")
End Sub

Der nächste Code kopiert nur die Werte, also keine Formeln oder Formate, in ein anderes Tabellenblatt.

Sub Daten_kopieren()
Workbooks("Mappe1.xls").Worksheets("Tabelle1").Range("G3").Copy
Workbooks("Mappe2.xls").Worksheets("Tabelle1").Range("B3"). _
PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

Den Code musst Du noch anpassen. Du musst die Wörter Mappe1.xls und Mappe2.xls gegen die Dateinamen Deiner Dateien tauschen. Wobei in dem Beispiel aus Mappe1 in Mappe2 kopiert wird. Bitte darauf achten. Dann noch die Blattnamen Tabelle1 und Tabelle2 ändern. Sollen andere Zellen kopiert werden oder in andere Zellen kopiert werden, dann die Bezeichnungen B3 und G3 entsprechend ändern.

Ich hoffe, meine Antwort hilft Dr erst einmal weiter. Bei Fragen oder Problemen, melde Dich noch mal. Wenn Du ein spezifischeres Makro benötigst, musst Du genauere ngaben machen, welche Zellen wohin kopiert werden sollen und was noch so alles ausgeführt werden soll.

MfG,
coros
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du ein}
^{Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}

Moin Coros;
vielen Dank für die Hilfe. Finde ich gut dass Du immer wieder Lösungen anbietest.
Gruß Kai

Moin Kai,

freut mich, dass eine der beiden Lösungen Dich weitergebracht haben. Danke auch für die Rückmeldung.

MfG,
coros
^{Jeder macht was er will, keiner macht was er soll, aber alle machen mit.}

• VBA Problem in Excel
• Schnellreferenz Excel VBA
• VBA-Excel
• Daten aus 20 excel dateien in eine excel datei kopieren mit einem vba script
• VBA Makro in Excel