Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Abfrage: Diagramm vorhanden?

Forumthread: Abfrage: Diagramm vorhanden?

Abfrage: Diagramm vorhanden?
04.04.2006 17:23:37
reiner
Hallo Leute,
mit nachfolgendem Programmcode werden die Namen aller Tabellenblätter erkannt und können daraufhin ausgewertet werden. In einer Arbeitsmappe ist neben 3 Tabellenblättern auch ein Diagrammblatt vorhanden; dieses wird jedoch nicht erkannt.
Dim sh As Worksheet
For Each sh In Worksheets
If sh.Name = "Diagramm1" Then
varDiagramm = 1
End If
Next
Wie müsste der Programmcode abgeändert werden um auch Diagrammblätter zu erkennen
mfg
Reiner
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Abfrage: Diagramm vorhanden?
04.04.2006 17:35:04
Gerd
Option Explicit

Sub til()
Dim sh As Object, varDiagramm
For Each sh In Sheets
If TypeName(sh) = "Chart" Then
varDiagramm = 1
End If
Next
MsgBox varDiagramm
End Sub

mfg Gerd
Anzeige
Hallo Gerd, Hallo Peter W
04.04.2006 18:53:29
reiner
danke für Eure Tipps, klappt wunderbar
reiner
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige