Zelle kopieren und in andere Datei einfügen

[ChristineWiegel]

Hallo ihr Lieben,

ich möchte mir meine Arbeit erleichtern. Allerdings komme ich nicht weiter. Könnt ihr mir vielleicht weiterhelfen.

Ich habe 2 Dateien, die ich zusammenfügen möchte. Allerdings funktioniert dies nicht.

Private Sub Messung_Click()
Range("B5").Copy
    Workbooks.Open Filename:="C:\Users\Jana Wagner\Dropbox\Road Kontroll\Vorlagen\M?nchen\Messung.xlsm"
    Windows("Messung").Sheets("1").Range("K12:N12").PasteSpecial Paste:=xlValues
    Application.CutCopyMode = False
    Windows("Info").Range("B6").Copy
    Windows("Messung.xlsm").Sheets("1").Range("K13:M13").Paste
    Windows("Info").Range("B7").Copy
    Windows("Messung.xlsm").Sheets("1").Range("K14:M14").Paste
    Windows("Info").Range("B8").Copy
    Windows("Messung.xlsm").Sheets("1").Range("K15:M15").Paste
End Sub

Könnt ihr vielleicht helfen?

Mit freundlichen Grüßen

Christine Wiegel

[MisterBurns]

Hallo Christine,

Code:

Private Sub Messung_Click()
Dim Ziel as Workbook, Quelle as Workbook
Set Quelle = ThisWorkbook

Workbooks.Open Filename:="C:\Users\Jana Wagner\Dropbox\Road Kontroll\Vorlagen\M?nchen\Messung.xlsm
Set Ziel = Workbooks("Messung.xlsm")

Quelle.Range("B5").Copy
Ziel.Sheets("1").Range("K12:N12").PasteSpecial Paste:=xlValues
Quelle.Range("B6").Copy
Ziel.Sheets("1").Range("K13:M13").PasteSpecial Paste:=xlValues
Quelle.Range("B7").Copy
Ziel.Sheets("1").Range("K14:M14").PasteSpecial Paste:=xlValues
Quelle.Range("B8").Copy
Ziel.Sheets("1").Range("K15:M15").PasteSpecial Paste:=xlValues
End Sub

Allerdings stellt sich die Frage, wieso du die einzelne Zelle B5 in den Bereich K12:N12 einfügen willst. Ist das Absicht?

Alternativ mit Schleife

Code:

Private Sub Messung_Click()
Dim Ziel As Workbook, Quelle As Workbook
Dim i As Integer

Set Quelle = ThisWorkbook

Workbooks.Open Filename:="C:\Users\Jana Wagner\Dropbox\Road Kontroll\Vorlagen\M?nchen\Messung.xlsm"
Set Ziel = Workbooks("Messung.xlsm")

For i = 5 To 8
   Quelle.Range("B" & i).Copy
   Ziel.Sheets("1").Range("K" & i + 7 & ":N" & i + 7).PasteSpecial Paste:=xlValues
Next
End Sub

[ChristineWiegel]

Hallo,

vielen Dank für die schnelle Antwort. ja das ist Absicht ;).

Allerdings kommt bei mir dann immer Laufzeitfehler 438.

[MisterBurns]

Allerdings kommt bei mir dann immer Laufzeitfehler 438.

Das ist schön. Und in welcher Zeile tritt der Fehler auf?

[schauan]

Hallöchen,

ich vermute, da:
Quelle.Range("B" & i).Copy

Quelle ist ein Workbook und Range liegt auf einem Sheet. Daher:

Quelle.Sheets("WelchesBlatt?").Range("B" & i).Copy

[MisterBurns]

Hi André,

Asche auf mein Haupt - stimmt natürlich!