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.

Inhalte von einer Excel1 und eine Excel2
#1
Hallo zusammen,

ich würde gerne Werte von einer Excel1 in eine Excel2 kopieren.

z.B.
Button1
Excel1 - Rohdaten1 - Zelle D4 G4 J4
-> Werte kopieren nach
Excel2 - Auswertung1 - Zelle A5 B5 C5

Button2
Excel1 - Rohdaten1 - Zelle D4 G4 J4
-> Werte kopieren nach
Excel2 - Auswertung1 - Zelle A6 B6 C6

Meine Frage ist: gibt es da eine Lösung oder kann ich da wirklich nur einzeln "copy and paste" spielen.

Für eine Antwort wäre ich sehr dankbar.

Gruß
Jens
Antwortento top
#2
Hi Jens,

(14.10.2014, 15:45)reinhawi schrieb: Meine Frage ist: gibt es da eine Lösung oder kann ich da wirklich nur einzeln "copy and paste" spielen.

weise dem Button1 das 1. Makro zu und dem Button2 das zweite.

Code:
Option Explicit
Sub Makro_für_Button1()
'
' Makro1 Makro
' nach Zeile 5 kopieren
'

'
    Range("D4,G4,J4").Copy
    Windows("Excel2.xlsb").Activate
    Range("A5").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("Excel1.xlsb").Activate
    Range("A7").Select
End Sub

Sub Makro_für_Button2()
'
' Makro2 Makro
' nach Zeile 6 kopieren
'

'
    Range("D4,G4,J4").Copy
    Windows("Excel2.xlsb").Activate
    Range("A6").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Windows("Excel1.xlsb").Activate
    Range("A7").Select
End Sub
Antwortento top


Gehe zu:


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