Clever-Excel-Forum

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

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

Hallo,

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

Allerdings kommt bei mir dann immer Laufzeitfehler 438.

Zitat:Allerdings kommt bei mir dann immer Laufzeitfehler 438.

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

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

Hi André,

Asche auf mein Haupt - stimmt natürlich!

ChristineWiegel

MisterBurns

ChristineWiegel

MisterBurns

schauan

MisterBurns