If Abfrage bei Objekten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: If Abfrage bei Objekten
von: Michel
Geschrieben am: 12.12.2003 11:17:03

Hallo,
habe ein Makro das alle Tabblätter durchläuft.
da die chartObjekte manchmal Diagramm20 und manchmal diagramm21 heißen möchte ich eine If abfrage einbauen, die prüft ob ein Diagramm existiert und welchen Namen diese Diagramme haben.
Wie kann man das machen?

So habe ich mir das gedacht:

xy=chartobject
on error goto marke1
if xy.name="Diagramm21" then ...

marke1:
if xy.name<>"Diagramm20" or xy.notExist(?) then ...

gruß
Michel

Bild


Betrifft: Anmerkung...
von: michel
Geschrieben am: 12.12.2003 11:25:05

Kann man mehrere OnError Goto's in einem Sub einbauen?
mfg


Bild


Betrifft: AW: Anmerkung...
von: Nepumuk
Geschrieben am: 12.12.2003 19:10:46

Hallo Michael,
das ist nicht notwendig, versuch es so:

Option Explicit
Public Sub test()
    Dim myWorksheet As Worksheet, myChartObjects As ChartObject
    For Each myWorksheet In ThisWorkbook.Sheets
        For Each myChartObjects In myWorksheet.ChartObjects
            MsgBox myChartObjects.Chart.Name
        Next
    Next
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk


Bild


Betrifft: Danke! o.T.
von: Michael
Geschrieben am: 16.12.2003 11:15:21




Bild

Beiträge aus den Excel-Beispielen zum Thema " If Abfrage bei Objekten"