Diagrammerstellung
19.03.2005 17:29:08
Frank
wie es aussieht, komme ich wiedermal nicht um Eure Hilfe herum.
Ich habe eine Datei namens werte.xls - in dieser datei gibt es eine gewisse Anzahl an Arbeitsblättern mit den Bezeichnungen Test 01 bis Test 30.
Alle Zellen sind gleich formatiert unterscheiden sich nur in ihren Werten.
Für jedes Arbeitsblatt will ich ein Diagramm erstellen. Ich habe mir was zusammengebastelt und lasse dies für das erste Sheet über eine selbst erstellte Schaltfläche in der Symbolleiste ablaufen.
Jetzt steht dort als Ziel ja "Test 01" drin. wie kann ich das denn umschreiben, dass ich sage - bitte jeweils vom aktiven Arbeitsblatt das Diagramm erstellen.
Gruß Frank + schonmal Danke fürs lesen
Sub diagramm()
Range("A2:A55").Select
Range("A2:A55,C2:F55").Select
Range("C2").Activate
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("test 01 ").Range("A2:A55,C2:F55" _
), PlotBy:=xlColumns
ActiveChart.SeriesCollection(1).Name = "='test 01 '!R1C3"
ActiveChart.SeriesCollection(2).Name = "='test 01 '!R1C4"
ActiveChart.SeriesCollection(3).Name = "='test 01 '!R1C5"
ActiveChart.SeriesCollection(4).Name = "='test 01 '!R1C6"
ActiveChart.Location Where:=xlLocationAsObject, Name:="test 01 "
With ActiveChart
.HasTitle = False
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = False
End With
ActiveWindow.Visible = False
Windows("werte.xls").Activate
Range("A1").Select
ActiveWindow.Visible = False
Windows("werte.xls").Activate
Range("A1").Select
End Sub