---

Hallo,

wie bekomme ich denn die Blattnummer des aktiven Drawings und die Blattanzahl mit VBA ausgelesen?
Solche Sachen wie Artikelnummer und Benennung funktionieren.

Danke!

Gruß

Michael

------------------
Ich mach keine rächtschraibfeler ich bin nur ein par rächtschraibräformen voraus!

[Diese Nachricht wurde von michaeln am 15. Jun. 2010 editiert.]

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

---

Hallo

Code:

---

Private Sub Blattnummerzahl()

Dim oDoc As DrawingDocument
Set oDoc = ThisApplication.ActiveDocument

MsgBox "Blattzahl: " & oDoc.Sheets.Count

'aktives Blatt finden
Dim oSheet As Sheet
Dim i As Integer
i = 1
For Each oSheet In oDoc.Sheets
    If oSheet.Name = oDoc.ActiveSheet.Name Then
        Exit For
    End If
    i = i + 1
Next
MsgBox "Blattnummer der aktiven Zeichnung: " & i

End Sub

---

Das is die einfache Variante, die nicht die Blatteigenschaft "nicht zählen" berücksichtigt.

------------------
MfG
RK

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

---

Hallo rkauskh,

vielen Dank für die Hilfe.
Ü's sind  sind unterwegs.

Gruß

Michael

------------------
Ich mach keine rächtschraibfeler ich bin nur ein par rächtschraibräformen voraus!

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