temp = "A2:B" & zaehler + 2
        ActiveSheet.Range(temp).Select
 
        Charts.Add
        ActiveChart.ChartType = xl3DArea
        ActiveChart.SetSourceData Source:=ActiveSheet.Range(temp), _
          PlotBy:=xlColumns
        ActiveChart.Location Where:=xlLocationAsObject, Name:=ActiveSheet.Name
        With ActiveChart
            .HasTitle = True
            .ChartTitle.Characters.Text = "Testtitel"
        End With