dank eurer Hilfe bin ich schon mal da wo ich hin wollte. jetzt habe ich aber ein neues Problem. Der Daten- Bereich für meine Diagramme ändert sich:-( Also die Anzahl der Zeilen variiert.
Also als Besipiel: Unsere CallCenter- Agents tlefonieren eine gewisse Anzahl Stunden. Im Idealfall natürlich acht;-) Aber es kommt dann mal vor daß einer länger macht und schon habe ich eine Zeile mehr (nach Stunden) Wie bekomme ich es jetzt hin, daß alle Zeilen bis zur Zeilexy ausgewählt werden und fürs Diagramm genutzt werden? In Spalte A gibt es ein Feld "Summe" das natürlich am Ende steht;-) kann man das nicht als "Ausstiegspunkt" nehmen?
Bis jetzt sieht es so aus.
Sub Diagramm_erstellen_Agent()
Dim Bereich As Range, s As String
Set Bereich = Range("B10:B18, D10:G18")
s = ActiveSheet.Name
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Bereich, PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Name = "Empfangen"
ActiveChart.SeriesCollection(2).Name = "Beantwortet"
ActiveChart.SeriesCollection(3).Name = "Abgebrochen"
ActiveChart.SeriesCollection(4).Name = "Ueberlauf"
ActiveChart.HasTitle = True
ActiveChart.SeriesCollection(1).Points(1).HasDataLabel = True
ActiveChart.ApplyDataLabels Type:=xlValue
End Sub