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:
1060		 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

 

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
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 ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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
Thema: Name: Email:
WYSIWYG-Editor, ctl00_Content_editor1



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • 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

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