---

Nabend zusammen,

ich bitte um einen kleine Gedankenanstoß.
Wir haben mehrere Blätter in unseren IDWs. Hier drauf ist je Blatt eine iAssambly abgebildet.
Dann gibt es aber noch ein gesondertes Blatt welches Informationen enthält, die wir an Kunden heraus geben.
Die Kunden sollen aber nicht alle Informationen bekommen. Daher ist dieses Blatt mit "Extern" benannt.

Jetzt möchte ich, dass ausgenommen dem angesprochenen Blatt "Extern", alle Blätter umbenannt werden.
Bis auf das exkludieren funktioniert es auch.

Könnt Ihr bitte mal mit einem Auge über Code schauen?

  If g_ThisDocument.DocumentType = DocumentTypeEnum.kDrawingDocumentObject Then
                 
                    Dim ThisDrawing As DrawingDocument = g_ThisApplication.ActiveDocument
                    Dim oSheets As Sheets = ThisDrawing.Sheets

                    For Each oSheet In oSheets
                        If Not oSheet.Name = "Extern" Then
                            oSheet.Activate()
                            Dim model As Inventor.Document = ThisDrawing.ActiveSheet.DrawingViews.Item(1).ReferencedDocumentDescriptor.ReferencedDocument()
                            Dim mart As String = model.PropertySets.Item("Inventor User Defined Properties").Item(g_var3).Value
                            If mart <> "" And mart <> "-" Then
                                oSheet.Name = mart
                            End If
                        End If
                        oSheet.Update()

                    Next
                End If

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

---

versuch mal:

Code:

---

If Not (oSheet.Name = "Extern") Then

---

------------------
Gruß Roland

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

---

Hallo

Das in oSheet.Name am Ende ein automatisch angefügtes ":1" dranhängt hast du gesehen? Eventuell mit Split (Doppelpunkt als Trenner) trennen und ersten Wert im entstehenden Array für den Vergleich nutzen.

------------------
MfG
Ralf

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

---

Moin zusammen,

danke schon einmal für die super schnellen Antworten.

@RolandD:
Danke Dir! Das allein half noch nicht ganz.

@rkauskh:
du hast vollkommen recht. Wenn ich "Extern:1" eintrage, klappt es.
Leider fehlt mir doch ein wenig die Erfahrung.

                    Dim Extern As String = "Extern:1"
                    Dim splitExtern As New ArrayList(Extern.Split(":"))

Wenn ich jetzt splitExtern(0) einsetzte, klappt es leider noch nicht.

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

---

Hallo,

du könntest nur den vorderen Teil auswerten:

Code:

---

If Not (oSheet.Name Like "Extern*") Then

---

------------------
Gruß Roland

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

---

Hey Roland,

vielen lieben Dank!
Hat auf anhieb geklappt.

Danke! 

Rein um des Wissens willen;
Wenn ich es denn mit der Split Funktion umsetzen würde, wie wäre denn da der richtige Ansatz?
Den Split habe ich hinbekommen. Wenn ich aber den exkludierten Vergleich durchführen will, muss ich ja nach dem "Extern" und dem ":" einen Variablen Wert angeben, da die Blattnummer je Datei eine andere sein kann.

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

---

Hallo

Deswegen solltest du den Blattnamen mit Split auftrennen. Du willst ja nur das Extern-Blatt, egal was hinter dem Doppelpunkt steht. Eine ArrayList könnte Probleme geben. Ich hab's nicht ausprobiert, aber da Split ein Array zurückliefert wird in deiner ArrayList(0) kein String sondern das komplette Array von Split enthalten sein.
Ich meinte es eher so:

Code:

---

Dim Extern As String = "Extern:1"
Dim splitExtern() As String
splitExtern=Extern.Split(":")

---

------------------
MfG
Ralf

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

---

Dann hatte ich wohl irgendwo anders meinen Fehler drin.

Per MsgBox bekam ich den richtigen Wert, "Extern".

Trotzdem vielen Dank für die Ausführung! 

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