Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Jede belegte Zelle 1 zu 1 kopieren
#1
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
Antworten Top
#2
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
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antworten Top
#3
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.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antworten Top
#4
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 
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#5
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.
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

Grüße aus Norderstedt, Peter
Antworten Top
#6
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 
Gruß Günter
Jeder Fehler erscheint unglaublich dumm, wenn andere ihn begehen.
angebl. von Georg Christoph Lichtenberg (1742-1799)
Antworten Top
#7
Hallo zusammen,


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


Gute Nacht noch :)
VG
Alexandra
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste