title image


Smiley Re: Diagrammname
Hi,



Option Explicit

Sub Chart_benennen()

Dim c As Long

For c = 1 To ActiveSheet.ChartObjects.Count

ActiveSheet.ChartObjects(c).Name = "xla" & c

MsgBox ActiveSheet.ChartObjects(c).Name

Next

End Sub



mfg xla



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: