Daten werden nicht richtig übertragen mit VBA in Excel

Question

Hallo,

ich möchte Daten aus einer Datei (P-Plan 2014 1 (18).xlsm) in eine andere Datei
übertragen.
Da es viele sind, will ich es mit einem Makro machen. Erst habe ich ein Makro
aufgezeichnet mit ein paar Feldern, um zu sehen wie es funktioniert. Das funktionierte gut
und habe anschließend, eine Schleife erstellt um die Daten für 53 Wochen
zusammenzutragen.

Hierbei wird nicht mehr der Wert der Zelle übertragen, sondern es wird die Formel der
Quellzelle übernommen.

Kann jemand mir Helfen, bei diesem Problem.

Das Makro sieht wie folgt aus:

Sub Aktualisieren()
'
' Dashboard aktualisieren aud der Produktionsdatei
'
Dim i As Integer
'
Windows("Dashboard_produktionssteuerung.xlsx").Activate

' ThisWorkbook.Sheets ("Dashboard_produktionssteuerung.xlsx")
Range(Cells(29, 3), Cells(35, 214)).ClearContents
Cells(29, 3).Select
' Durchlaufzeiten

For i = 1 To 52
' ActiveCell.FormulaR1C1 = "='[P-Plan 2014 1 (18).xlsm]Berechnungen'!R[33]C3"
ActiveCell.FormulaR1C1 = "='[P-Plan 2014 1 (18).xlsm]Berechnungen'!Cells(62,i+2)"
Cells(29, (i + 2 + (i - 1) * 3)).Select
Selection.AutoFill Destination:=Range(Cells(29, (i + 2 + (i - 1) * 3)), Cells(35, (i + 2 +
(i - 1) * 3))), Type:=xlFillDefault
Range(Cells(29, (i + 2 + (i - 1) * 3)), Cells(35, (i + 2 + (i - 1) * 3))).Select
Next i

End Sub

Vielen Dank im Voraus für eure Hilfe

P.S. ich kann leider nicht antworten, da zur Zeit keine neue Mitglieder angenommen
werden kann, was ich schade finde.

RichardL

Answer 1

Hallo Richard,

warum machst du das nicht ohne Makro mit Kopieren und Inhalte Einfügen --> Werte?
Wenn du dich per Formel auf die Quelldatei verknüpfen willst kann du auch Inhalte Einfügen --> Verknüpfen wählen.

Wenn du die reinen Werte per Makro übernehmen willst kannst du z.B.
ActiveCell.Value = Workbooks("P-Plan 2014 1 (18).xlsm").Cells(i,5).Value verwenden

Gruß Mr. K

Answer 2

Hallo Richard,

dass du keine bessere Antwort bekommst liegt daran, dass du nicht sagst, was genau dein Wunsch ist und wie die Quell- bzw. Zieldatei aufgebaut ist. Anhand deines Makros konnte ich nur mutmaßen, um dir zumindest ein übersichtlicheres Makro anbieten zu können.

'Wenn du fixe Werte übertragen willst
For z = 62 To 68
For kw = 1 To 53
Cells(z - 33, kw * 4 - 4 + 3).Value = Workbooks("P-Plan 2014 1 (18).xlsm").Sheets("Berechnungen").Cells(z, kw + 2).Value
Next kw
Next z

'Wenn du dich auf die andere Datei verknüpfen willst
For z = 62 To 68
For kw = 1 To 53
Cells(z - 33, kw * 4 - 4 + 3).Formula = "='[P-Plan 2014 1 (18).xlsm]Berechnungen'!" & Workbooks("P-Plan 2014 1 (18).xlsm") _
.Sheets("Berechnungen").Cells(z, kw + 2).Address(False, False)
Next kw
Next z

Leider kann ich dir nicht so schnell antworten.