Hallo Matthias,

im Code steht bestimmt irgend wo Dein Tabellennamen ersetze das doch durch ActiveSheet .
Ich lehne es z.B. ab über das Internet auf fremde Rechner zu schauen. Vielleicht solltest Du deinen Code posten?

Gruß Hajo

Hallo Hajo,

der Code für das aufgezeichnete Makro ist wie folgt:

Sub Grafik_erstellen()
'
' Grafik_erstellen Makro
' Makro am 29.08.2007 von THA6M3 aufgezeichnet
'

'
Charts.Add
ActiveChart.ChartType = xlColumnClustered
ActiveChart.SetSourceData Source:=Sheets("Blanko").Range("A1:AF27"), PlotBy _
:=xlRows
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection(1).Delete
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection.NewSeries
ActiveChart.SeriesCollection(1).XValues = "=Blanko!R4C9:R4C32"
ActiveChart.SeriesCollection(1).Values = "=Blanko!R29C9:R29C32"
ActiveChart.SeriesCollection(1).Name = "=""Plan"""
ActiveChart.SeriesCollection(2).XValues = "=Blanko!R4C9:R4C32"
ActiveChart.SeriesCollection(2).Values = "=Blanko!R32C9:R32C32"
ActiveChart.SeriesCollection(2).Name = "=""Ist"""
ActiveChart.Location Where:=xlLocationAsObject, Name:="Blanko"
With ActiveChart
.HasTitle = True
.ChartTitle.Characters.Text = "Soll-Ist Vergleich"
.Axes(xlCategory, xlPrimary).HasTitle = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Stunden"
End With
End Sub

Hab deinen Tip mit ActiveSheet schon ausprobiert, hat nur nicht richtig geklappt. Vielleicht hab ich ja was oder einen zu verändernden Namen übersehen?? Also die Arbeitsmappe heißt "Tool_Layout_Aktuell" und das betreffende Tabellenblatt "Blanko".
Bin dankbar für deine Hilfe, wenns jetzt auch noch klappt vereinfacht es mir die zukünftige Arbeit um einiges.

Vielen Dank für deine Bemühungen :-)
Matthias

Hi Matthias,

versuche es mal so

Sub Grafik_erstellen()
    Dim chDiagramm As ChartObject
    Set chDiagramm = ActiveSheet.ChartObjects.Add(100, 100, 450, 300)
    With chDiagramm.Chart
        .ChartType = xlColumnClustered
        .SetSourceData Source:=ActiveSheet.Range("A1:A1"), PlotBy:=xlRows
        .SeriesCollection(1).XValues = "=" & ActiveSheet.Name & "!R4C9:R4C32"
        .SeriesCollection(1).Values = "=" & ActiveSheet.Name & "!R29C9:R29C32"
        .SeriesCollection(1).Name = "=""Plan"""
        .SeriesCollection.NewSeries
        .SeriesCollection(2).XValues = "=" & ActiveSheet.Name & "!R4C9:R4C32"
        .SeriesCollection(2).Values = "=" & ActiveSheet.Name & "!R32C9:R32C32"
        .SeriesCollection(2).Name = "=""Ist"""
        .HasTitle = True
        .ChartTitle.Characters.Text = "Soll-Ist Vergleich"
        .Axes(xlCategory, xlPrimary).HasTitle = False
        .Axes(xlValue, xlPrimary).HasTitle = True
        .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "Stunden"
    End With
    chDiagramm.Name = ActiveSheet.Name
End Sub

Bis später,
Karin

Hallo Katrin,

vielen Dank für deine Idee. Leider klappt das immer noch nicht so wie gedacht. Es wird zwar ein Diagramm erzeugt, aber sobald das Tabellenblatt kopiert wird, erscheint wieder eine Fehlermeldung das sich die Daten außerhalb eines gültigen Bereiches befinden. Das Diagramm wird dann geladen aber ohne Dateninhalt. Er bezeiht sich also noch nicht auf das "AktiveSheet" denke ich mal.

Danke für deine Bemühungen, vielleicht fällt dir/euch ja noch was ein.

Schönen Gruß
Matthias

Hi Mathias,

wenn dein kopiertes Tabellenblatt Leerzeichen im Namen enthält, muss noch ein Apostroph gesetzt werden. Du musst die zu übergebendes Formel also nach diesem Prinzip schreiben

"='" & ActiveSheet.Name & "'!R4C9:R4C32"

Bis später,
Karin

Hallo Karin,

vielen lieben Dank für deine Hilfe... Makro funktioniert nun einwandfrei, lag tatsächlich an einem Leerzeichen ;-)

Liebe Grüße
Matthias