Sub Diagramm_aktiveTabelle()
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("A3:C5"), PlotBy _
:=xlRows
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle1"
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveWindow.Visible = False
Range("A1").Select
End Sub
Sub Dia_aktiveTabelle()
With ActiveSheet.ChartObjects.Add(50, 50, 350, 250).Chart
.ChartType = xlColumnClustered
.SetSourceData Source:=ActiveCell.CurrentRegion
End With
End Sub