möchte ein Diagramm dynamisch gestalten; leider hab ich keine Ahnung wie ich den Datenbereich dynamisch hin bekomme.
Mein Makro sieht bis jetzt so aus:
Private Sub CommandButton1_Click()
Range("A7:B7").Select
Range(Selection, Selection.End(xlDown)).Select
Rows("6:35").Select
Selection.Delete Shift:=xlUp
Range("G2").Select
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Tabelle1").Range("A7:B12"), PlotBy _
:=xlColumns
ActiveChart.SeriesCollection(1).Name = "=""Fehler und Zeitaufwand"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="Tabelle2"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Fehler und Zeitaufwand"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Fehlerkategorie"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "[min]"
End With
ActiveWindow.Visible = False
Windows("reklamationen1.xls").Activate
Range("E6").Select
End Sub
Wie schaffe ich es die ersten zwei Zeilen in die Range () der Datenquelle zu integrieren? Leider kam ich mit "Herberts" Tipps noch nicht sehr weit.
Vielen Dank für eure Hilfe
Gruß Gordon