AW: automatische nummerierung der diagramm
24.04.2006 15:09:47
Heiko
Hallo loca,
ich habe jetzt ne ganze Zeit rumgesucht den DiagrammNamen direkt in EXCEL zu ändern, habe nichts gefunden. Diese Makro kann es aber, dazu Diagramm mit der Maus markieren (die Diagrammfläche selektieren) und dann das Makro starten.
Sub DiagrammUmbennen()
Dim strName As String
Dim wksAlleSheets As Worksheet
Dim chaGrafik As ChartObject
' Diagramm (Diagrammfläche) mit der Maus selektieren, dann erst Makro starten
If UCase(TypeName(Selection)) = "CHARTAREA" Then
strName = InputBox("Bitte geben Sie einen neuen ChartName an !", "Alter Name = " & Selection.Parent.Parent.Name)
If strName <> "" Then
For Each wksAlleSheets In ActiveWorkbook.Worksheets
For Each chaGrafik In wksAlleSheets.ChartObjects
If strName = chaGrafik.Name Then
MsgBox "Name schon vorhanden, bitte starten sie das Makro erneut !", vbCritical
Exit Sub
End If
Next chaGrafik
Next wksAlleSheets
Selection.Parent.Parent.Name = strName
MsgBox "neuer Name = " & Selection.Parent.Parent.Name & " !", vbInformation
End If
Else
MsgBox "Bitte markieren Sie das Diagramm (Diagrammfläche) richtig !", vbCritical
End If
End Sub
Gruß Heiko
PS: Rückmeldung wäre nett !