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