Hallo Leute,

ich versuche gerade mir Teile einer Excel Datei per VBA in eine neue Arbeitsmappe zu kopieren inkl Formeln.

In den Tabellenblättern 2-5 befinden sich Listen inkl Preisen und Mengen; Im ersten Tabellenblatt werden deren Summen zusammengefasst (Tabelle 2 20€; Tabelle 3 30€ etc) Hierfür habe ich mit der Formel "='Tabelle2'!G58" Die Summen aus den übrigen Tabellenblättern übernommen.

Wenn ich das Ganze jetzt in eine Neue Arbeitsmappe kopiere übernimmt die Formelzeile "='[Mappe1]Tabelle2'!G58" also den Wert aus der ursprünglichen Datei und nicht aus der neuen.

Kennt jemand von euch eine Möglichkeit das zu beheben?  Entweder über eine andere Formel im Sinne von "[eigeneMappe]Tabelle2'!G58" Oder Analog zu VBA "=WorkSheets2!G58" oder sowas oder über VBA die Formel ändern (bei 4 Tabellenblättern noch überschaubar) bzw. die pasteoptionen (xlPasteFormulasAberInDerEigenenMappeBleiben oder so ) ändern?

Unten hänge ich noch den verwendeten Code an

Vielen Lieben Dank im voraus für eure Hilfe

LG SirSolaris

Sub copy_()
 Dim i, k As Integer
 
 Set wbAlt = ActiveWorkbook
 Set wbNeu = Workbooks.Add

 With wbNeu
  For i = 1 To 4
  .Worksheets.Add
  Next i
  .Sheets(1).Name = "Zusammenstellung"
  .Sheets(2).Name = "Tabelle 2"
  .Sheets(3).Name = "Tabelle 3"
  .Sheets(4).Name = "Tabelle 4"
  .Sheets(5).Name = "Tabelle 5"
 End With
 
 For k = 1 To 5
 
 wbAlt.Sheets(k).Range("A1:N85").Copy 'Kopf kopieren
 wbNeu.Sheets(k).Range("A1:N85").PasteSpecial Paste:=8 'spaltenbreite
 wbNeu.Sheets(k).Range("A1:N85").PasteSpecial Paste:=xlPasteValues 'inhalt
 wbNeu.Sheets(k).Range("A1:N85").PasteSpecial Paste:=xlPasteFormats 'formatierung
 wbNeu.Sheets(k).Range("A1:N85").PasteSpecial Paste:=xlPasteFormulas 'formeln
 
 Next k
 
End Sub