VBA: Diagrammbereich erweitern
20.03.2021 23:06:16
Max
ich möchte mittels VBA den Diagrammbereich meines Diagramms angeben.
Die funktionierende Makro-Aufzeichnung ergibt:
Sub DiaErweit_MakroAufz()
ActiveSheet.ChartObjects("Diagramm 1").Activate
ActiveChart.SetSourceData Source:=Range( _
"Tabelle1!$B$3:$B$17,Tabelle1!$AK$3:$AW$17")
End Sub
Ich möchte nun ohne Angabe eines Sheetnamens oder Diagrammnamens den gleichen Bereich angeben:
Sub DiaErweit_wksTCells()
Dim wksT As Worksheet
Set wksT = Worksheets(1)
With wksT.ChartObjects(1).Chart
.SetSourceData Source:=Range( _
wksT.Range(wksT.Cells(2, 3), wksT.Cells(2, 17)), _
wksT.Range(wksT.Cells(37, 3), wksT.Cells(49, 17))), PlotBy:=xlRows
End With
End Sub
Allerdings wird damit ein ganz falscher Diagrammbereich angewählt, was ich mir nun seit Stunden nicht erklären kann.Hier die Tabelle:
https://www.herber.de/bbs/user/144979.xlsm
Viele Grüße und vielen Dank im Voraus.
Max