Microsoft Excel

Herbers Excel/VBA-Archiv

Diagrammerweiterung

Betrifft: Diagrammerweiterung von: NoPa
Geschrieben am: 02.09.2014 14:21:24

Hallo,

ich möchte per Knopfdruck auf den blauen Butten, dass das Diagramm und die Tabelle automatisch um ein neues Quartal erweitert / vorbereitet wird!
Wichtig ist, dass auch die Diagrammbeschriftungen erweitert werden!

Hier die Tabelle:
https://www.herber.de/bbs/user/92439.xlsm

Danke schon mal für die Hilfe!

Gruß
Norbert

  

Betrifft: AW: Diagrammerweiterung von: Rudi Maintaire
Geschrieben am: 02.09.2014 15:02:17

Hallo,

Private Sub cbok_Click()
  Dim sc As Series, rXVal As Range, rVal As Range, rSC As Range
  With Cells(5, Columns.Count).End(xlToLeft).Offset(, 1)
    .Value = tbalt
    .Offset(, -1).Copy
    .PasteSpecial xlPasteFormats
  End With
  Application.CutCopyMode = False
  Set rXVal = Range(Cells(5, 4), Cells(5, 4).End(xlToRight))
  With ActiveSheet.ChartObjects(1).Chart
  For Each sc In .SeriesCollection
    Set rSC = Range("C6:C8").Find(what:=sc.Name, lookat:=xlWhole)
    Set rVal = rSC.Offset(, 1).Resize(, rXVal.Count)
    sc.Values = rVal
    sc.XValues = rXVal
  Next
  End With
  Hide
End Sub
Gruß
Rudi


  

Betrifft: AW: Diagrammerweiterung von: Beverly
Geschrieben am: 02.09.2014 15:10:50

Hi Herbert,

das geht auch ohne VBA - benutze eine Tabelle.


GrußformelBeverly's Excel - Inn


  

Betrifft: Anhang vergessen von: Beverly
Geschrieben am: 02.09.2014 15:13:23

hier noch die Mappe.

https://www.herber.de/bbs/user/92441.xlsm


GrußformelBeverly's Excel - Inn


  

Betrifft: AW: Anhang vergessen von: NoPa
Geschrieben am: 03.09.2014 07:16:57

Hi Karin,

die Lösung vom Rudi gefällt mir fast besser! Danke Trotzdem!

@Rudi: Vielen Dank!
Schönen Tag

Gruß
Norbert