Thema Datum  Von Nutzer Rating
Antwort
Rot Formeln per VBA kopieren
12.02.2020 16:13:42 SirSolaris
NotSolved
12.02.2020 23:50:39 Gast7777
Solved
19.02.2020 17:22:49 Gast17850
NotSolved

Ansicht des Beitrags:
Von:
SirSolaris
Datum:
12.02.2020 16:13:42
Views:
117
Rating: Antwort:
  Ja
Thema:
Formeln per VBA kopieren

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

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Formeln per VBA kopieren
12.02.2020 16:13:42 SirSolaris
NotSolved
12.02.2020 23:50:39 Gast7777
Solved
19.02.2020 17:22:49 Gast17850
NotSolved