Hallo,
ich möchte die Namen mehrere Diagramme in Excel ändern, also nicht die Titel, sondern der Name, der beim Erstellen von Diagrammen automatisch vergeben wird (z.B. Diagramm1 ..)
Diese Problem wurde schon mal in diesem Forum behandelt. als Lösungsvorschlag gab es von "Coros" folgendes Macro:

Option Explicit

Sub Diagrammname_ändern()
Dim Diagramm As ChartObject
For Each Diagramm In ActiveSheet.ChartObjects
If MsgBox("Der Name des Diagramms lautet """ & Diagramm.Name & """. Soll der Diagrammname geändert werden?", vbYesNo + vbInformation) = vbYes Then
Diagramm.Name = InputBox("Neuen Namen eingeben.", , "Neuen Namen hier eintragen")
End If
Next
End Sub

Leider funktioniert das nur beim ersten Diagramm, dann werden noch für die 10 anderen Diagramme die Namen abgefragt, aber geändert ist letzendlich nur der Erste. Und dieses Diagramm hat dann auch den zuletzt eingegebenen Namen.
Also, das Makro funktioniert nur bei einem Diagramm.
Was kann ich tun?