VBA Bereich für dynamsiches Diagramm verschieben

Sub Makro1() Dim lngLetzteSpalte As Long Dim chDiagramm As Chart Set chDiagramm = Worksheets(1).ChartObjects("Diagramm 1").Chart lngLetzteSpalte = Cells(6, Columns.Count).End(xlToLeft).Column With Range("B15:B20") Cells(6, lngLetzteSpalte + 1).Resize(.Rows.Count, 1) = .Value End With With chDiagramm .SetSourceData Source:=Tabelle1.Range(Cells(5, lngLetzteSpalte - 4), Cells(10, _ lngLetzteSpalte + 1)), PlotBy:=xlColumns End With End Sub

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Diagramm_darstellen() Dim ch As Chart Dim i As Long Dim lngLetzteSpalte As Long Dim rngMonate As Range Dim rngWeek As Range Dim ser As Series Dim strBezeich As String Dim strBlatt As String Dim strMonate As String Dim strWerte As String Dim wb As Workbook Dim ws As Worksheet Set wb = ThisWorkbook Set ws = wb.Worksheets(1) strBlatt = "'" & ws.Name & "'!" lngLetzteSpalte = ws.Cells(6, ws.Columns.Count).End(xlToLeft).Column If lngLetzteSpalte

ActiveSheet.Shapes.Range(Array("Group 4")).Select ActiveSheet.ChartObjects("Diagramm 2").Activate ActiveChart.PlotArea.Select ActiveChart.SetSourceData Source:=Range( _ "'Übersicht ALL Natcos'!$A$40,'Übersicht ALL Natcos'!$M$40:$R$40,'Übersicht ALL Natcos'! _ $A$45:$A$51,'Übersicht ALL Natcos'!$M$45:$R$51" _

Sub Diagramm_darstellen_2() Dim ch As Chart Dim letzteSpalte As Long Dim rngBezeich As Range Dim rngWerte As Range Dim wb As Workbook Dim ws As Worksheet Set wb = ThisWorkbook Set ws = wb.Worksheets(1) letzteSpalte = ws.Cells(6, ws.Columns.Count).End(xlToLeft).Column If letzteSpalte

Dim ch As Chart Dim i As Long Dim lngLetzteSpalte As Long Dim r1 As Range Dim r2 As Range Dim r3 As Range Dim ser As Series lngLetzteSpalte = Cells(6, Columns.Count).End(xlToLeft).Column With Range("B15:B20") Cells(6, lngLetzteSpalte + 1).Resize(.Rows.Count, 1) = .Value End With Set r1 = Tabelle1.Range(Cells(6, 1), Cells(10, 1)) Set r2 = Tabelle1.Range(Cells(5, lngLetzteSpalte - 4), Cells(5, lngLetzteSpalte + 1)) Set r3 = Tabelle1.Range(Cells(6, lngLetzteSpalte - 4), Cells(10, lngLetzteSpalte + 1)) With ch ActiveSheet.Shapes.Range(Array("Group 4")).Select ActiveSheet.ChartObjects("Diagramm 2").Activate ActiveChart.PlotArea.Selec ActiveChart.SetSourceData = ser.Formula = "=Series(" & r1 & ", " & r2 & ", " & r3 & ")" End With

Hi
das kannst du besser ohne VBA lösen, mit dynamischen Namen (Namen mit berechnetem Zellbereich)
lege erstmal einen Namen für die Zeilen fest (Formel immer bei "Bezieht sich auf" eingtragen):
den Tabellennamen habe ich vereinfacht, weil ich zu faul zum Tippen bin, den kannst du ja ergänzen:
DQ_Gesamt: =Übersicht!$5:$11
DQ_Ausschnitt: =INDEX(DQ_Gesamt;0;ANZAHL2(INDEX(DQ_Gesamt;2;0))-4):INDEX(DQ_Gesamt;0;ANZAHL2(INDEX(DQ_Gesamt;2;0))+1)
und dann für jede Datenreihe des Diagramms:
DQ_A: =Index(DQ_Ausschnitt;2;0)
DQ_B: =Index(DQ_Ausschnitt;3;0)
DQ_C: =Index(DQ_Ausschnitt;4;0)
usw für alle benötigten Datenreihen und die Überschrift:
DQ_ÜB: =Index(DQ_Ausschnitt;1;0)
diese Namen passen sich dann alle automatsich an, wenn du in der Datentabelle den nächsten Monat befüllst.
im Diagramm klickst du dann auf "Werte auswählen" und trägst anstelle des fixen Zellbezugs den entsprechenden Namen ein.
Beachte, dass du immer den Dateinamen voranstellen musst: ='126040.xlsm'!DQ_A
wenn du das für alle Datenreihen incl. Überschrift gemacht hast, sollte sich auch dein Diagramm immer automatsich an die befüllten Monate anpassen.
wenn du mehr oder weniger Monate anzeigen lassen willst, musst du das nur im Namen DQ_Ausschnitt anpassen, die anderen Namen bauen darauf auf.
Gruß Daniel

Beliebteste Forumthreads (12 Monate)

VBA Bereich für dynamsiches Diagramm verschieben

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

33 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA Bereich für dynamsiches Diagramm verschieben

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

33 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread