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.

Zelle kopieren und in andere Datei einfügen
#1
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
Antworten Top
#2
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
Schöne Grüße
Berni
Antworten Top
#3
Hallo,

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

Allerdings kommt bei mir dann immer Laufzeitfehler 438.
Antworten Top
#4
Zitat:Allerdings kommt bei mir dann immer Laufzeitfehler 438.

Das ist schön. Und in welcher Zeile tritt der Fehler auf?
Schöne Grüße
Berni
Antworten Top
#5
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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#6
Hi André,

Asche auf mein Haupt - stimmt natürlich!
Schöne Grüße
Berni
Antworten Top


Gehe zu:


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