|
Hallo Leute,
ich versuche gerade mehrere Spalten mit Daten in einem Diagramm darzustellen. Jede Spalte enthält Datenwerte für eine Linie. Ich mache das, um die Datenwerte am Ende visuell vergleichen zu können. Bei mir kommt da immer komisches Zeug raus..
Ich füge euch einmal ein Bild ein, wie es aktuell aussieht. Den Code hänge ich am Ende des Beitrags mit ein.
Private Function DiagrammErstellen(sTabellenName As String)
Dim MeinDiagramm As Chart
Dim Rahmen As ChartObject
ThisWorkbook.Worksheets(sTabellenName).Activate
Set Rahmen = ThisWorkbook.Worksheets(sTabellenName).ChartObjects.Add(300, 30, 750, 500)
Set MeinDiagramm = Rahmen.Chart
Debug.Print ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column
Cells(9, 1).Select
range( _
Cells(9, 1), _
Cells(ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row - 3, ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column)).Select
MeinDiagramm.SetSourceData Worksheets(sTabellenName).range( _
Cells(9, 1), _
Cells(ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Row - 3, ActiveSheet.UsedRange.SpecialCells(xlCellTypeLastCell).Column))
MeinDiagramm.ChartType = xlLine
End Function
Ich hoffe ihr könnt mir da helfen. Vielen Dank im Voraus.
MfG
Eyyub
|