Jede belegte Zelle 1 zu 1 kopieren

[cysu11]

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

[Käpt'n Blaubär]

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

[Käpt'n Blaubär]

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.

[WillWissen]

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 


[Käpt'n Blaubär]

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.

[WillWissen]

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 


[cysu11]

Hallo zusammen,


vielen lieben Dank für eure Hilfe, mit Peters Lösung bin ich weitergekommen!


Gute Nacht noch :)
VG
Alexandra