ich bin ja als absoluter VBA-Neuling durch Google und der Hilfe des Forums hier schon für meine Verhältnisse weit gekommen. Aber jetzt ist Schluss. Ich weiß nicht mehr weiter:
Hier mein Code, den ich bis jetzt gebastelt hab:
Sub Diagramme_basteln()
Dim benennung As String
Dim Start, Ende
Start = 2
Do While Cells(Ende + 1, 1) ""
Ende = Start - 1 + WorksheetFunction.CountIf(Range("A:A"), Cells(Start, 1))
Rows(Start).Select
Selection.Interior.ColorIndex = 17
Rows(Ende).Select
Selection.Interior.ColorIndex = 14
benennung = (Cells(Start, 1).Value)
Range(Cells(Start, 3), Cells(Ende, 3)).Select
Charts.Add
ActiveChart.ChartType = xlLine
ActiveChart.SetSourceData Source:=Sheets("Testen").Range(Cells(Start, 3), Cells(Ende, 3) _
), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).XValues = "=Testen!R[Start]C6:R[Ende]C6"
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=Sheets("Testen").Range(Cells( _
Start, 1))
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=benennung
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
Start = Ende + 1
Loop
End Sub
Es funktioniert ja relativ gut, bis hier hin:
ActiveChart.SetSourceData Source:=Sheets("Testen").Range(Cells(Start, 3), Cells(Ende, 3)), _
PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).XValues = "=Testen!R[Start]C6:R[Ende]C6"
ActiveChart.Location Where:=xlLocationAsNewSheet, Name:=Sheets("Testen").Range(Cells(Start, 1))
Ich habe den Code so natürlich nicht wirklich, die [Start/ Ende ] Werte, hab ich nur geschrieben, damit ihr wisst worum es geht und was da stehen sollte. Wenn ich den Teil auskommentiere, dann funktioniert es. Jedenfalls einmal. Und dann kommt bei dieser Stelle
Do While Cells(Ende + 1, 1) ""
ein Fehler.
Ich weiß echt nicht mehr weiter.
Kann mir bitte jemand helfen?