---

Hallo miteinander,

ich steh irgendwie auf dem Schlauch: wie kann ich die Nummer des aktuellen Blattes ermitteln? Mit den Optionen ".Name" bekomme ich den Namen, mit ".Count" die Gesamtanzahl, aber die aktuelle Blattnummer?

Ich habe mein Problem jetzt mit einer Schleife gelöst, die die Namen vergleicht, aber das muß doch auch eleganter gehen!

    n = 0
    Do
        n = n + 1
        active_sheet_number = n
        Tmp_sheet_name = drwSheets_sheet.Item(n).Name
    Loop Until Active_sheet_name = Tmp_sheet_name

Schon mal im voraus vielen Dank für jede Hilfe!

Gruß, Holger

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

---

Hallo Holger,

ich würde das Problem wahrscheinlich ähnlich lösen,
allerdings mit einer for-Schleife und nicht die Namen,
sondern die Objekte selber miteinander vergleichen:

Sub CATMain()

Set drawingDocument1 = CATIA.ActiveDocument

Set drawingSheets1 = drawingDocument1.Sheets

Set drawingSheet1 = drawingSheets1.ActiveSheet

For i = 1 To drawingSheets1.Count

If drawingSheet1 Is drawingSheets1.Item(i) Then Exit For

Next

MsgBox i

End Sub

Eine andere Lösung wäre mir auf die Schnelle auch nicht eingefallen.

Gruß, Günter

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