Office: Werte in geschlossene Datei einfügen

Hallo Forum,

nachfolgender Code funktioniert perfekt um Daten aus einer anderen geschlossenen Datei zu holen und in die aktive Tabelle einzufügen.

Habe versucht den Code zu ändern um Daten aus einer aktiven Datei in eine andere geschlossene Datei zu kopieren, was mir nicht gelungen ist.

Kann mir da jemand helfen?

Vielen Dank, Ingo

Private Sub Daten_Click()
Dim WbDatei1 As Workbook
Dim WbDatei2 As Workbook

Set WbDatei2 = ThisWorkbook
Set WbDatei1 = Workbooks.Open("C:\Dokumente und Einstellungen\atsvfupsa02\Desktop\Umsatzliste\DatenMK.xls", ReadOnly:=True) 'Hier den richtigen Pfad eingeben!

WbDatei2.Sheets("01").Range("A20:M30").Value = WbDatei1.Sheets("01").Range("A6:M16").Value

WbDatei1.Close

MsgBox "Daten erfolgreich übernommen"

End Sub

:)

 

Hallo Ingo,

so, z. B.:

Code eingefügt mit

 

Hallo Peter,
danke für deine Antwort, nur leider sind meine VBA Kenntnisse zu gering als dass ich deinen Code anpassen könnte.

Ich habe zwischenzeitlich meinen bestehenden Code umgeschrieben, die Daten werden aber in die Datei "DatenMK" (Schreibgeschützt) geschrieben, mit der Aufforderung diese zu speichern...

Gibt es da eine Lösung?

Danke, Ingo

Private Sub CommandButton1_Click()
Dim WbDatei1 As Workbook 'Quelle
Dim WbDatei2 As Workbook 'Ziel

Set WbDatei1 = ThisWorkbook 'Quelle
Set WbDatei2 = Workbooks.Open("C:\Dokumente und Einstellungen\atsvfupsa02\Desktop\Umsatzliste\DatenMK.xls", ReadOnly:=True) 'Ziel, hier den richtigen Pfad eingeben!

WbDatei2.Sheets("01").Range("A20:M30").Value = WbDatei1.Sheets("01MK").Range("A6:M16").Value 'Daten von Quelle an Ziel übergeben

WbDatei2.Close 'Ziel schließen

MsgBox "Daten erfolgreich übernommen"

End Sub

 

Hallo Peter,

habe deinen Code genommen und angepasst, und es funktioniert perfekt.
Super gemacht.

Eine Bitte habe ich noch, der Bereich wo eingefügt wird muß vorher geleert werden.

Vielen Dank, Ingo

 

Hallo,

ich möchte den Code nur anpassen, kleine Änderung. Super Code, es funktioniert.

Gruß
Jin884

 

Moin, Jin,

wenn sPfad und sDatei verkettet werden, muss zwischen die beiden ein zusätzlicher Backslash.

 

hab ich ja ganz übersehen, klar. Danke

Kann mir noch jemand sagen wie ich den Befehl "Werte kopieren" einbauen kann? Im Moment ist es so dass der Code die Formeln kopiert. Versucht hab ichs damit: klappt leider nicht.

With Workbooks("Lieferantenliste.xlsm").Worksheets("Verkauf").Range("A1")
.PasteSpecial Paste:=xlValues
End With

das hab ich unter Set WkSh_Z ... eingefügt.

Würd mich über Hilfe freuen.

 

habs, Thema erledigt