Diagrammformat auf mehrere gleiche Diagrammtypen gleichzeitig übertragen?

Oder gibt es ein Makro dafür, welches NUR die Formatierung eines Diagrammes nimmt und auf die anderen überträgt?

Nicht das ich wüsste, aber Du kannst Dir ja eins aufzeichnen.

Dann kommentierst Du die "Activate" Zeile aus und läßt Du es einfach in einer Schleife über alle Diagramme laufen.

Andreas.

Sub Test()

Dim CO As ChartObject

For Each CO In ActiveSheet.ChartObjects

CO.Select

Makro1

Next

End Sub

Hallo,

welchen Diagrammtyp verwendest du?

Spiele mal mit der Achsen-Formatierung herum. Deaktiviere dort "Mit Quelle verknüpft".

Wenn du die Achse als Textachse formatierst oder die Werte der Achse mit der Quelle verknüpfst, werden die Einträge der Tabelle in gleichen Abständen aufgetragen.

Formatiere die Achse von 0 bis 1 und Prozentwerten als Zahlenformat. Ist dies bei deinem Diagrammtyp nicht möglich, ändere den Diagrammtyp.

Claus

Hallo Moni,

du kannst alle drei Versionen der Netzdiagramme wählen und hast immer die exakte Anzahl an Datenpunkten, solange alle Datenreihen den gleichen Diagrammtyp haben. Sobald du für eine der Datenreihen Diagrammtyp "Gefülltes Netz" wählst, bekommt das Diagramm
eine runde Anzahl Datenpunkte.

Mit freundlichen Grüßen

Claus

Habe das gleiche Problem :-(

Und leider auch noch keine Lösung aber was ich noch herausgefunden habe ist, dass wenn ich ein Diagrammtyp auf Säule verändere funktioniert es *grübel*

Gruß

Dirk

Hallo Mesut,

nenne das Blatt mit seinem Namen und dann muss innerhalb der With-Anweisung ein Punkt vor alle Ranges gesetzt werden, damit sich der Range auch auf dieses Blatt bezieht. Entferne im Blattnamen das Leerzeichen hinter KQ. Außerdem benötigt eine With-Anweisung
ein End With:

Sub Klammer()With ThisWorkbook.Sheets("Tabelle1").Range("G6").FormulaArray = "=IFERROR(IF(ISBLANK(INDEX('KQ'!D$1:D$4999," _

   & "Match($A5&$A6,'KQ'!$A$1:$A$4999&'KQ'!$C$1:$C$4999,0))),NA()," _

   & "(INDEX('KQ'!D$1:D$4999,MATCH($A5&$A6,'KQ'!$A$1:$A$4999&'KQ'!$C$1:$C$4999,0)))),-1E-30)"

.Range("G6").AutoFill .Range("G6:R6"), xlFillDefaultEnd With

End Sub
[i][b]Edit:[/b][/i] In der englischen Formel musst du auch englische Trennzeichen verwenden.
Claus