per VBA kopiere ich den gesamten Inhalt eines Tabs auf (n) neue Tabs. Die enthaltenen Diagramme übertragen sich zwar ebenfalls, allerdings bleibt die Zellreferenz immer auf dem Ursprungstab. Dies gilt auch für den Diagrammtitel der auf eine Zelle im Tab verweist.
Meine Frage ist, wie man dem Code beibringen kann, dass die Diagramme auf das neue Tab kopiert werden und sich anhand der Daten auf dem neuen Tab aufbauen. Außerdem wie man den Zellbezug des Titels auf das neue Tab setzt.
Eine Datei konnte ich leider nicht hochladen, deshalb hier der Code:
Option Explicit
Sub CreateNewTabs()
Dim rngMuster As Range, calcOld As XlCalculation, zz As Long, ss As Long
Dim Calc As XlCalculation
Calc = Application.Calculation: Beschleuniger xlCalculationManual
Set rngMuster = Sheets("MasterReport").UsedRange
With Sheets("SubsidiaryNames")
For zz = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
For ss = 1 To Sheets.Count
If Sheets(ss).Name = CStr(.Cells(zz, 1)) Then
MsgBox "Blatt '" & .Cells(zz, 1) & "' bereits vorhanden.", vbInformation
Exit For
End If
Next ss
If ss > Sheets.Count Then
Worksheets.Add after:=Sheets(Sheets.Count)
rngMuster.Copy
ActiveSheet.Paste
Range("A1").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
ActiveSheet.Rows.AutoFit
Columns("V:CU").Select
Selection.Columns.Group
Cells(5, 1) = .Cells(zz, 1)
ActiveSheet.Name = CStr(Cells(5, 1))
Range("A1").Select
End If
Next zz
End With
Beschleuniger Calc
End Sub
' Accelerator (Beschleuniger) ___________Parameter: Calc-Status
' Call:
' Dim Calc As XlCalculation
' Calc = Application.Calculation: Beschleuniger xlCalculationManual
' ....Code....
' Beschleuniger Calc
Sub Beschleuniger(Optional StatCal As Long = xlCalculationAutomatic)
With Application
.Calculation = StatCal
.ScreenUpdating = (StatCal xlCalculationManual)
.EnableEvents = (StatCal xlCalculationManual)
End With
End Sub
Vielen Dank vorab und
VG fxm