Diagramm und TabellenName ausgeben
04.10.2007 16:08:33
Günter
ich brauchte Hilfe bei folgendem Problem.
Hier eine Bsp. Sub.
Sub test()
Dim s As Worksheet
For Each s In ActiveWorkbook.Sheets
MsgBox s.Name
Next s
End Sub
Meine Mappen in der Datei sind nicht nur Tabellen sondern auch Diagramme.
Das Programm steigt mit einer Fehlermeldung aus, wenn es ein Diagramm liest.
Mit ist auch klar warum, da s = worksheet.
Was kann ich tun, damit auch DiagrammNamen ausgegeben werden?
Gruß
Günter
Anzeige