Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


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
to 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!

?mage
to 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!

?mage
to 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 
?mage

Misserfolg ist eine Chance, es beim
nächsten Mal besser zu machen.

(Henry Ford)
http://www.sprueche-zum-nachdenken.eu
to 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!

?mage
to 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 
?mage

Misserfolg ist eine Chance, es beim
nächsten Mal besser zu machen.

(Henry Ford)
http://www.sprueche-zum-nachdenken.eu
to top
#7
Hallo zusammen,


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


Gute Nacht noch Smile
VG
Alexandra
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Zelle kopieren Platzwart 2 48 02.12.2016, 15:00
Letzter Beitrag: Platzwart
  Excel VBA, Bild aus nebenstehender Zelle kopieren wenn Zelle ausgewählt ist xChristianx 5 74 30.11.2016, 11:32
Letzter Beitrag: xChristianx
  Bestimmter teil aus Zelle in eine andere Kopieren markaay 3 54 17.11.2016, 11:13
Letzter Beitrag: BoskoBiati
  Tabelle nach Wert durchsuchen, und jede Zeile ausspucken die diesen Wert besitzt THE ARCHITECT 14 260 01.11.2016, 12:19
Letzter Beitrag: snb
  Jede n-te Zelle Wert um 1 addieren McAnimate 5 90 24.10.2016, 09:37
Letzter Beitrag: WillWissen
  FRAGE:excel letzte belegte zellen koordinate ermitteln CherryX 8 262 16.09.2016, 10:43
Letzter Beitrag: steve1da
  Wenn etwas in einer Zelle steht dann mehrere Dinge kopieren sediality 8 642 31.05.2016, 20:25
Letzter Beitrag: steve1da
  Jede 5. Jahr um x Prozent erhöhen. Andi1965 10 547 09.05.2016, 20:35
Letzter Beitrag: Andi1965
  VBA - Zelle mit Liste vergleichen und wert aus Liste kopieren und einfügen Rupert85 2 485 05.05.2016, 08:26
Letzter Beitrag: schauan
  Spalten Kopf automatisch vor jede Zeile schreiben lkoch 5 537 05.04.2016, 15:41
Letzter Beitrag: lkoch

Gehe zu:


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