Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Abfrage: Diagramm vorhanden?

Forumthread: Abfrage: Diagramm vorhanden?

Abfrage: Diagramm vorhanden?
04.04.2006 19: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 19: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 20:53:29
reiner
danke für Eure Tipps, klappt wunderbar
reiner
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18