Diagramme eines Arbeitsmappe auflisten
01.12.2003 10:07:00
Florian
Ich hab folgendes Problem:
Ich wollte alle Diagramme einer Arbeitsmappe in einem separaten Arbeitsblatt auflisten. Jedoch funktioniert folgender Code nicht:
Sub diagramme_auflisten()
Sheets("inhalt").Select
x = 1
For Each ch In Charts
If ch.Index <> 1 Then Range("a" & x - 1).Value = ch.Name
x = x + 1
Next ch
End Sub
Bitte um schnelle Hilfe
Danke