Hallo zusammen,

Ich habe einen VBA aufzeichnen lassen, der mir ein Liniendiagramm erstellen soll.

Nun habe ich mehrere Probleme, da das Diagramm auch auf andere Excel Arbeitsblätter erstellt werden soll!

Wie kann ich jeweils den Bezug "Diagramm 5" so ändern, dass immer das Aktuelle Diagramm gemeint ist ?
Und das gleiche müsste auch mit dem Namen vom aktuellen Arbeitsblatt geschehen ..
Nur weiß ich nicht wie ..

Ich hoffe, Ihr könnt mir da weiter helfen  

MFG

Sub Diagrammm() 

    Range("AF2:AF25").Select 
    Range(Selection, Selection.End(xlToRight)).Select 
    ActiveSheet.Shapes.AddChart2(227, xlLine).Select 
    ActiveChart.SetSourceData Source:=Range( _ 
        "'Std HH_BH1_Prebond30ms'!$AF$2:$GA$25") 
    ActiveChart.Parent.Cut 
    ActiveSheet.Paste 
    ActiveSheet.ChartObjects("Diagramm 5").Activate 
    ActiveSheet.Shapes("Diagramm 5").ScaleWidth 1.35625, msoFalse, _ 
        msoScaleFromTopLeft 
    ActiveSheet.Shapes("Diagramm 5").ScaleHeight 1.6631944444, msoFalse, _ 
        msoScaleFromTopLeft 
    ActiveSheet.ChartObjects("Diagramm 5").Activate 
    ActiveChart.Legend.Select 
    Selection.Position = xlRight 
    ActiveChart.ChartArea.Select 
    ActiveChart.Legend.Select 
    Selection.Top = 31.231 
    Selection.Height = 325.877 
    ActiveChart.ChartTitle.Select 
    ActiveChart.ChartTitle.Text = "Hallo" 
    Selection.Format.TextFrame2.TextRange.Characters.Text = "Hallo" 
    With Selection.Format.TextFrame2.TextRange.Characters(1, 5).ParagraphFormat 
        .TextDirection = msoTextDirectionLeftToRight 
        .Alignment = msoAlignCenter 
    End With 
    With Selection.Format.TextFrame2.TextRange.Characters(1, 5).Font 
        .BaselineOffset = 0 
        .Bold = msoFalse 
        .NameComplexScript = "+mn-cs" 
        .NameFarEast = "+mn-ea" 
        .Fill.Visible = msoTrue 
        .Fill.ForeColor.RGB = RGB(89, 89, 89) 
        .Fill.Transparency = 0 
        .Fill.Solid 
        .Size = 14 
        .Italic = msoFalse 
        .Kerning = 12 
        .Name = "+mn-lt" 
        .UnderlineStyle = msoNoUnderline 
        .Spacing = 0 
        .Strike = msoNoStrike 
    End With 
    Range("AI28").Select 
End Sub