Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Bezüge aus Diagrammen entfernen

Betrifft: Bezüge aus Diagrammen entfernen von: Constantin
Geschrieben am: 22.09.2014 21:05:02

Hallo,

beim Kopieren eines Tabellenblattes konnte ich ein Teilproblem noch nicht lösen: Ich möchte in allen Diagrammen des aktiven Tabellenblattes die Bezüge als Werte bekommen, so dass keine Verbindung mehr zu anderen Tabellen oder Mappen in den Diagrammen besteht.

Wer hätte einen Tipp, wie es gehen könnte?

Vielen Dank im Voraus.

Grüße, Constantin

  

Betrifft: AW: Bezüge aus Diagrammen entfernen von: fcs
Geschrieben am: 23.09.2014 12:26:38

Hallo Constantin,

nachfolgend ein Makro, das die Zellbezüge durch Werte ersetzt.
Ich hab das Makro aber nicht mit allen Diagrammtypen getestet.

Bei Formelbezügen eines Diagramms in eine Externe Mappe kann man via Menü Daten die Verknüpfung(en) lösen.

Gruß
Franz

Sub DiagrammBezuege_durchWerte()
  Dim objChart As Chart, objChartObj As ChartObject, objSeries As Series
  If MsgBox("Bei allen Diagrammen im aktiven Tabellenblatt die " _
    & "Zellbezüge durch Werte ersetzen?", _
  vbQuestion + vbOKCancel, "Diagramme") = vbCancel Then Exit Sub
  For Each objChartObj In ActiveSheet.ChartObjects
    Set objChart = objChartObj.Chart
    With objChart
      For Each objSeries In .SeriesCollection
        objSeries.Values = objSeries.Values
        objSeries.XValues = objSeries.XValues
        objSeries.Name = objSeries.Name
      Next
    End With
  Next
End Sub



  

Betrifft: AW: Bezüge aus Diagrammen entfernen von: Constantin
Geschrieben am: 23.09.2014 20:04:10

Hallo Franz,

dieses Programm hilft mir schon sehr viel weiter. Ein Diagramm allerdings, dass auf einer Pivottabelle aufgesetzt ist, welche mit externen Daten (die in einer anderen Mappe gespeichert sind) erstellt wurde, scheint bei objSeries.Values = objSeries.Values unverträglich zu sein.

Da nach diesem Kopiervorgang und anschließender Formatierung noch weitere Schritte folgen, wollte ich nicht manuell eingreifen und über Daten/... die Verknüpfung lösen.

Kennst Du für diese Diagrammart evtl. auch eine Möglichkeit, den Bezug zu entfernen?

Grüße, Constantin


  

Betrifft: AW: Bezüge aus Diagrammen entfernen von: fcs
Geschrieben am: 24.09.2014 12:19:08

Hallo Constantin,

für pivot-basierte Diagramme hab ich keine Lösung parat.

Wenn man ein Pivot-Diagramm in eine andere Arbeitsmappe kopiert, dann verleirt es die Verbindung zur Datenquelle und statt Formeln werden Daten für die Datenreihen angezeigt. Gleichzeitig geht ändert sich aber auch die Darstellung/Formatierung im Diagramm etwas.

Evtl. bleibt nichts anderes über als mit einer als Grafik eingefügten Kopie des Diagramms zu arbeiten.

Gruß
Franz


  

Betrifft: AW: Bezüge aus Diagrammen entfernen von: Constantin
Geschrieben am: 24.09.2014 20:46:50

Hallo Franz,

trotzdem vielen Dank für deine Hilfe. Wo es vielleicht ein Lösung geben könnte - und diese Frage möchte ich an dieser Stelle gerne noch stellen - ist, wenn die Bezüge der Diagramme in Werte geändert werden, erscheinen vereinzelt unformatierte Werte, z.B. statt 12,51 steht dann 12,51096744 als Beschriftung in der Säule. Auch manchmal bei Achsenbeschriftungen, wie .z.B. 5-10 (als Gruppe einer Pivottabelle) erscheint im Diagramm z.B. 05 Oct.

Habe ich da noch eine Möglichkeit, das zu verbessern?

Grüße, Constantin


  

Betrifft: AW: Bezüge aus Diagrammen entfernen von: Constantin
Geschrieben am: 24.09.2014 22:02:22

Hallo Franz,

trotzdem vielen Dank für deine Hilfe. Wo es vielleicht ein Lösung geben könnte - und diese Frage möchte ich an dieser Stelle gerne noch stellen - ist, wenn die Bezüge der Diagramme in Werte geändert werden, erscheinen vereinzelt unformatierte Werte, z.B. statt 12,51 steht dann 12,51096744 als Beschriftung in der Säule. Auch manchmal bei Achsenbeschriftungen, wie .z.B. 5-10 (als Gruppe einer Pivottabelle) erscheint im Diagramm z.B. 05 Oct.

Habe ich da noch eine Möglichkeit, das zu verbessern?

Grüße, Constantin


  

Betrifft: AW: Bezüge aus Diagrammen entfernen von: Constantin
Geschrieben am: 24.09.2014 22:02:29

Hallo Franz,

trotzdem vielen Dank für deine Hilfe. Wo es vielleicht ein Lösung geben könnte - und diese Frage möchte ich an dieser Stelle gerne noch stellen - ist, wenn die Bezüge der Diagramme in Werte geändert werden, erscheinen vereinzelt unformatierte Werte, z.B. statt 12,51 steht dann 12,51096744 als Beschriftung in der Säule. Auch manchmal bei Achsenbeschriftungen, wie .z.B. 5-10 (als Gruppe einer Pivottabelle) erscheint im Diagramm z.B. 05 Oct.

Habe ich da noch eine Möglichkeit, das zu verbessern?

Grüße, Constantin


 

Beiträge aus den Excel-Beispielen zum Thema "Bezüge aus Diagrammen entfernen"