Office: Arbeitsblatt Name anpassen

Hallo

Ich habe eine Tabelle die nach drücken einen Buttons aus den eingegebenen Daten ein Diagramm in einem neuen Arbeitsblatt erzeugen soll.
In meiner tabelle steht im Feld A2 die Jahreszahl zur Tabelle. (z.B. 2006)

Der Name des Arbeitsblattes, in dem das Diagramm ist soll einfach "Diagramm 2006" sein. aber wie bekomme ich hin, das er sich automatisch aus dem Feld A2 die jeweilige Jahreszahl (2006) herauszieht und diese dann in dem Namen des tabellenblattes einfügt?

hab das schon mal so probiert

Code:

Sub Makro1() 

    Range("F29:Q29").Select 
    Charts.Add 
    ActiveChart.ChartType = xlColumnStacked 
    ActiveChart.SetSourceData Source:=Sheets("Eingabedaten").Range("F29:Q29"), _ 
        PlotBy:=xlRows 
    ActiveChart.Location Where:=xlLocationAsNewSheet, Name:="Diagramm" 
    With ActiveChart 
        .HasTitle = False 
        .Axes(xlCategory, xlPrimary).HasTitle = False 
        .Axes(xlValue, xlPrimary).HasTitle = False 
    End With 
    
End Sub

Da wo "ActiveChart.Location Where:=xlLocationAsNewSheet, Name:" soll dann "Diagramm 2006" stehen, wobei er das 2006 aus Zeile A2 holen soll.

Kann mir jemand weiter helfen?


Gruß Andy

 

Hallo!

Erweitere den Ausdruck

Code:

Name:="Diagramm"

auf

Code:

Name:="Diagramm " & Sheets("Eingabedaten").Range("A2")

Die erste Zeile "Range("F29:Q29").Select" kannst du übrigens auch weglassen.

 

Hallo Schatzi


Vielen Dank hat bestens funktioniert.


Gruß Andy