---

Hallo zusammen,

ich möchte den Blattname von einem Blatt im Drawing ermitteln, das nicht aktiv ist.

Vom aktiven Blatt ermittle den Blattnamen mit folgendem code:

Set oDoc = CATIA.ActiveDocument
Set oSheets = oDoc.Sheets
Set Blattname = oSheets.ActiveSheet
Blattname1=Blattname.Name
MsgBox "Der Blattname ist " & Blattname1

was muss ich ändern um den Name des nächsten Blattes zu erfahren?

Gruß HoLate

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Du könntest versuchen, die Blattnummer des aktiven Blattes auszulesen (mit Item).

Das was du vorhast hat mindestens 2 Haken:
- Mehrere Blätter können den gleichen Namen haben
- Die Reihenfolge im Baum hat nichts mit der internen Nummerierung zu tun. Das nächste Blatt kann auch ein Detailsheet sein... 

------------------
Meine Firma  |  Website zum Buch Technisches Zeichnen mit CATIA V5 | Mein CATIA-Blog

Wie stelle ich meine Fragen richtig?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

folgende Ausgangssituation:

ich stehe im Drawing im ersten Blatt und habe mit
"AktuelleDrawing.Sheets.count" ermittelt, dass mehrere Blätter vorhanden sind.
Jetzt möchte ich wissen wie der Name des nächsten Blattes ist.

wie sieht da das Makro für aus?

Gruß

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Versuch es mal so:

Code:

---

Set oDoc = CATIA.ActiveDocument
Set oSheets = oDoc.Sheets
For i = 0 to oSheets.Count
  Set Sheet = oSheets.Item(i)
  Blattname = Sheet.Name
  MsgBox Blattname
next

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus bgrittmann

das Makro bleibt bei der Zeile
Set Sheet = oSheets.Item(i)
stehen.

Die Fehlerbeschreibung "Das Verfahren Item ist fehlgeschlagen"

Was kann der Grund sein?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Servus
Sollte der Zähler erst bei 1 starten (nicht so wie iin einen Array)?

Code:

---

For i = 1 to oSheets.Count

---

Gruß
Bernd

------------------
Warum einfach, wenn es auch kompliziert geht.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

es funktioniert

Danke!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP