ich bin schon wieder am kämpfen. ;-)
Hintergrund:
Ich versuche über ein Makro das auf einem von mehreren Arbeitsblättern läuft ein Diagramm zu erstellen.
Das klappt mittlerweile nur möchte ich dem Diagramm über eine Variable einen Namen zuweisen. Das Diagramm soll also nicht "Diagramm 1", "Diagramm 2", ... und so weiter heissen sondern soll den Namen des Tabellenblattes auf dem das Diagramm erzeugt wurde erhalten. Die Diagramme selbst liegen dann auf einem separaten Tabellenblatt.
Hier mal das was ich schon habe:
Sub D_Diagramm_erzeugen()
Dim tabelle As Worksheet
Dim tabname As String
Set tabelle = ActiveWorkbook.ActiveSheet
tabname = ActiveWorkbook.ActiveSheet.Name
.
.
.
Charts.Add
ActiveChart.ChartType = xlXYScatter
ActiveChart.SetSourceData Source:=tabelle.Range("A1:B412,E1:E412")
ActiveChart.Location Where:=xlLocationAsObject, Name:="Auswertung"
With ActiveChart
.Parent.Name = tabname
.HasTitle = True
.ChartTitle.Characters.Text = _
"Diagrammüberschrift"
.Axes(xlCategory, xlPrimary).HasTitle = True
.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Zugriff"
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Antwortzeit"
End With
.
.
.
If ActiveChart.Name = "Testlauf 1" Then
Call Positionierung_Diagramm1
Else
If ActiveChart.Name = "Testlauf 2" Then
Call Positionierung_Diagramm2
Else
Call Positionierung_Diagramm3
End If
End If
Das was ich mir dachte hab ich mal fett markiert. Geht aber leider nicht. Die Diagrammnamen werden immer noch hochgezählt. Den Code dazwischen hab ich rausgelassen wegen der Übersichtlichkeit. Sind nur formatierungen des Diagramms.
Grüße
Klaus