Supportnet / Forum / Tabellenkalkulation

Guten Tag, ich habe folgendes Problem und zwar weiss ich nicht wie ich mein bestehendes Exceltabellenblatt in eine zweite Exceldatei in ein bestimmtes Exceltabellenblatt kopiern kann. Das ganze geht Manuell ohne Probleme jedoch muss ich dieses Problem mit Hilfe von VBA lösen! [i]Also sicherheitshalber nochmal erklärt:[/i] Habe 2 (.xls) Dateien. [b]1.xls [/b]ist die Quelle von der ich das [b][Tabellenblatt 1][/b] in das [b][Tabellenblatt 2] [/b]von [b]2.xls [/b]kopieren möchte. Hoffe ich habe mich einigermasend verständlich ausgedrückt... Viele Grüße Michael

Hallo Michael,

Option Explicit

Sub kopieren()

Application.ScreenUpdating = False
Cells.Select
Selection.Copy
Workbooks.Open Filename:="C:\Dokumente und Einstellungen\Admin\Desktop\2.xls" ´ Pfad ändern
Range("A1").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Range("A1").Select
End Sub

Gruß
fedjo

Hallo Ihr beiden!

@fedjo hat ja bereits eine Lösung präsentiert, die sicherlich auch funktioniert, aber das unschöne an dem Makro sind die vielen Select-Anweisungen. Das sollte man nach Möglichkeit vermeiden, da diese den Code, besonders bei größeren Makros, enorm verlangsamen. Daher nochmal ein Makro, was im Prinzip das gleiche macht, aber ohne Select-Anweisungen. Der Pfad in der Workbooks.Open-Anweisung muss angepasst werden.

Option Explicit

Sub kopieren()
Application.ScreenUpdating = False
Workbooks.Open Filename:="C:\Daten\2.xls"
ThisWorkbook.Sheets("Tabelle1").Cells.Copy _
Workbooks("2.xls").Sheets("Tabelle2").Range("A1")
With Workbooks("2.xls")
.Save
.Close
End With
End Sub

MfG,
Oliver
_{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.}

Hallo,

vielen Dank für die schnell Hilfe. Klappt alles wunderbar.

Gruß Michael

• Makro
• VBA Werte finden uns kopieren ???
• aus Access Verknüpfung erstellen
• Excel 2000 Exceldatei aus Exceldatei starten
• Datei per VBA im Intranet öffnen