Hallo liebes Excelforum,
ich suchen einen Code mit dem ich aus DateiA Tabelle1 jede belegte Zelle kopieren und in DateiB Tabelle1 1 zu 1 wieder einfügen kann genau an der gleichen Stellen wie im Original!
Für eure Hilfe danke ich im Voraus
LG
Alexandra
Hallo Alexandra,
meinst Du sowas?
vom aktiven Blatt wird eine 1:1 Kopie im Tabellenblatt3 erstellt.
Code:
Option Explicit
Sub Makro1()
'
Cells.Select
Selection.Copy
Sheets("Tabelle3").Select
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
End Sub
Hallöchen noch mal,
ich habe gerade geschnallt, es soll nicht von einem Blatt in's andere, sondern von einer Datei in eine andere kopiert werden.
Code:
Option Explicit
Sub Makro2()
'
Workbooks.Open Filename:="C:\Users\Peter\Desktop\Alexandra2.xls"
Cells.Select
Selection.Copy
Windows("Alexandra2.xls").Activate
ActiveSheet.Paste
Range("A1").Select
Application.CutCopyMode = False
End Sub
Sowas läßt sich übrigens mit dem Makrorecorder aufzeichnen.
Hi Peter,
um das aktive Blatt 1:1 zu kopieren reicht doch ein Einzeiler. Oder habe ich das nicht richtig verstanden?
PHP-Code:
Sub BlattKopieren()
'
ActiveSheet.Copy before:=Sheets(1)
End Sub
Hallo Günter,
da ist schon ein Unterschied. Probiere es mal aus und staune.
Übrigens ... das habe ich auch erst später gesehen, ... es soll ja hier von einer Datei in eine andere kopiert werden.
Hi,
habe jetzt auch kapiert: von Datei A nach Datei B.
Als VBA-Neuling würde mir das reichen:
PHP-Code:
Sub BlattAusDateiA_in_DateiBKopieren()
'
ActiveSheet.Copy Before:=Workbooks("DateiB.xlsm").Sheets(1)
End Sub
Hallo zusammen,
vielen lieben Dank für eure Hilfe, mit Peters Lösung bin ich weitergekommen!
Gute Nacht noch :)
VG
Alexandra