Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
Hallo Gerd, Hallo Peter W
04.04.2006 18:53:29
reiner
danke für Eure Tipps, klappt wunderbar
reiner
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige