Schleife zur Diagrammerstellung

Hallo zusammen,
ich hänge jetzt seit Tagen an einem Problem... und zwar habe ich eine Tabelle, in der in jeder Spalte ein neues Fahrzeug steht, und in den Zeilen der jeweiligen Spalte immer die Kennwerte zum Fahrzeug. Nun brauch ich ein VBA-Script, dass mir automatisch für jede Spalte, die mit inhalt befüllt ist ein Tortendiagramm ausleitet, die Inhalte für das Diagramm sollen die Kennzahlen der jeweiligen Zeile sein.
Soviel habe ich bisher:


Sub Diagramme()
Dim Spalte As Integer
Const Maxspalte As Integer = 100
Dim Arbeitsblatt As Worksheet
For Spalte = 1 To Maxspalte
Set Arbeitsblatt = ThisWorkbook.ActiveSheet
Charts.Add
ActiveChart.ChartType = xlPie
ActiveChart.SetSourceData Source:=Sheets("Daten 2").Range(Worksheets("Daten 2").Cells(5,  _
Spalte), Worksheets("Daten 2").Cells(7, Spalte)), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).Name = "='Daten 2'!R1C2:R2C2"
ActiveChart.Location Where:=xlLocationAsObject, Name:="Daten 2"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = ActiveSheet.Range(Sheets("Daten 2").Cells(1, Spalte),  _
Sheets("Daten 2").Cells(2, Spalte))
End With
ActiveWindow.Visible = False
Windows("Diagramm.xls").Activate
Next Spalte
End Sub

jetzt habe ich das problem, dass es mir für jede Spalte im Arbeitsblatt ein Diagramm erstellt. Kann mir jemand sagen, wo mein Fehler ist?
Schon mal herzlichen Danke für eure Hilfe,
Ann-Kathrin

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub Diagramme() Dim Spalte As Integer Const Maxspalte As Integer = 100 Spalte = 1 Do While Worksheets("Daten 2").Cells(5, Spalte) "" Charts.Add ActiveChart.ChartType = xlPie ActiveChart.SetSourceData Source:=Sheets("Daten 2") _ .Range(Worksheets("Daten 2").Cells(5, Spalte), _ Worksheets("Daten 2").Cells(7, Spalte)), PlotBy:=xlColumns ActiveChart.SeriesCollection(1).Name = "='Daten 2'!R1C2:R2C2" ActiveChart.Location Where:=xlLocationAsObject, Name:="Daten 2" With ActiveChart .HasTitle = True .ChartTitle.Characters.Text = ActiveSheet.Cells(1, Spalte) & _ ActiveSheet.Cells(2, Spalte) End With Spalte = Spalte + 1 Loop ActiveWindow.Visible = False Windows("Diagramm.xls").Activate End Sub

Sub diagramme_erstellen() Dim inSpalte As Integer Dim chDiagramm As ChartObject Dim doLinks As Double For inSpalte = 1 To 100 If Application.WorksheetFunction.Sum(Range(Cells(5, inSpalte), Cells(7, inSpalte))) > 0 _ Then Set chDiagramm = Worksheets("Daten 2").ChartObjects.Add(doLinks, 10, 100, 70) ' _ links, oben, Breite, Höhe With chDiagramm.Chart .ChartType = xlPie .SetSourceData Source:=Worksheets("Daten 2").Range(Worksheets("Daten 2").Cells( _ 5, inSpalte), _ Worksheets("Daten 2").Cells(7, inSpalte)), PlotBy:=xlColumns .SeriesCollection(1).Name = Worksheets("Daten 2").Range("B1:B2") End With doLinks = doLinks + 100 End If Next inSpalte Set chDiagramm = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread