Meine Daten beginnen bei B8 und können in der Anzahl der Zeilen und Spalten variieren. Kann mir jemand bei dem Problem helfen hier mein Code!!!
objXL.Range("B8").Select
objXL.Charts.Add
objXL.ActiveChart.Name = "Übersicht Fehler Ursachen"
objXL.Charts("Übersicht Fehler Ursachen").ChartType = 70 objXL.Charts("Übersicht Fehler Ursachen").SetSourceData (objXL.Sheets("Tabelle1").Range.CurrentRegion.Rows.Count)
PlotBy = xlColumns
Where=xlLocationAsObject
With objXL.ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Übersicht Fehler Ursache"
End With
Irgendwo in dem Code ist ein Fehler er bringt mir nicht die ganzen Daten.
Danke im voraus