---

Hallo,

ich versuche derzeit ein Makro zu schreiben mit dem ich zu einem selektierten Part verschiedene Angaben anzeigen kann.
Sprich:
Bauteil selektieren
Makro starten
Makro sucht die Teilenummer (von selektiertem Bauteil) in einer Excelliste (Stückliste)
In einer MsgBox sollen dann die Angaben aus den nebenstehenden Spalten (von der Excel) ausgegeben werden.

Mein Code bisher:

Code:

---

Sub CATMain()

  ' Partnumber der Selektion wird ausgelesen
  Dim mySelection
  mySelection =  CATIA.ActiveDocument.Selection.Item(1).Value.PartNumber

  Dim Excel As Object
 
    On Error Resume Next
    Set Excel = GetObject(, "Excel.Application")

 
    ' Wenn der vorhergehene Befehl einen Fehler erzeugt hat (err.Number <> 0) Excel starten
    If Err.Number <> 0 Then
        Set Excel = CreateObject("Excel.Application")
        Excel.Visible = True              'Excel im Hintergrund
    End If
 
    ' !!! Die Fehlerbehandlungsroutine zurücksetzen, ansonsten lösen folgende fehlerhafte Befehle keine Fehlermeldung aus
    On Error GoTo 0
 
    ' Angabe der Excelliste
    Excel.Workbooks.Open "C:\Temp\test.xls"
 
Set Tabelle1 = Excel.ActiveWorkbook.Sheets(1)

' Sucht nach Partnumber in der Excelliste
Dim A, B, C As String

A = Excel.Application.WorksheetFunction.VLookup(mySelection, Tabelle1.Range(Tabelle1.Cells(1, 1), Tabelle1.Cells(12000,6)), 2, False)

B = Excel.Application.WorksheetFunction.VLookup(mySelection, Tabelle1.Range(Tabelle1.Cells(1, 1), Tabelle1.Cells(12000, 6)), 4, False)
C = Excel.Application.WorksheetFunction.VLookup(mySelection, Tabelle1.Range(Tabelle1.Cells(1, 1), Tabelle1.Cells(12000, 6)), 6, False)

Excel.Quit

' Gibt die Werte in MsgBox aus
MsgBox  "Text1:  " & A & " "& vbCrLf &"Text2:    " & B & " "& vbCrLf &"Text3:  " & C &""

End Sub

---

Mein Problem ist, dass die Benennung der Bauteile (Partnumber) in Catia in dieser Form ist xxx.xxx.xxx{x} z.B. 4X0.123.456{3}
D.h. die Teilenummer ist durch Punkte gegliedert und hat am Ende eine Zahl in geschweiften Klammern.
Die Teilenummern in meiner Excel sind alle ohne Punkte und ohne die Angabe in geschweifter Klammer.

Wie kann ich erreichen, dass das Makro nur die Teilenummer ohne Punkte und ohne die Angabe in der geschweiften Klammer (und ohne die geschweiften Klammern) sucht?
Leider ist es nicht möglich einfach die letzten 3 Buchstaben der Teilenummer zu streichen, da es auch Bauteile mit der Benennung xxx.xxx.xxx.{xx} gibt z.B. Beispiel: 4X0.123.456{10}
Es ist leider auch nicht möglich nur die ersten Buchstaben zu nehmen, da die Teilenummer in ihrer Länge variieren kann z.B. 4X0.123.456.A{3} oder 4X0.123.456.AB{3}
Ich brauche also einen Code, der mir die Punkte erkennt und entfernt und die geschweiften Klammern erkennt und diese samt Inhalt entfernt.

Geht sowas, oder ist das nicht möglich?

PS: Ich bin noch ein ziemlicher Anfänger im Makro schreiben.

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

---

Ich hatte mal ein ähnliche Problem.

Mir wurde dann der Befehl split empfohlen.

Beispiel:

string = "4X0.123.456{3}"

tmpArray = SPLIT (string,".")

tmpArray(0) wäre "4X0"
tmpArray(1) wäre "123"
tmpArray(2) wäre "456{3}"

Dann hättest du zumindestens erstmal die Punkte entfernt.

Ich würde jetzt auf den TmpArray mit dem {} noch mal ein Split drüber laufen lassen um den Wert hinter der Klammer zu entfernen.

Weiß aber nicht genau ob das wirklich geht, da ich auch nicht viel mit Makros zu tun habe.

------------------
Schaffen wir das??
Ja, wir schaffen das!!

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

---

Ich würden Suchstring einfach mit Replace() manipulieren. Das Replace würde ich 3fach schachteln.

Code:

---

sSurchstring = Replace(Replace(Replace(sSuchstring, ".", ""), "{", ""), "}", "")

---

oder so ähnlich. Ein vbNULLString müsste noch schneller sein als ein "", aber ich weiß nicht ob der in der Funktion auch tut, da ich es nicht getestet habe. :-)

------------------
Mit freundlichen Grüßen,
Henry Schneider
alias Lila

Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren:
Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen,
die Natur versucht, immer bessere Idioten zu bauen

Xing

[Diese Nachricht wurde von HoBLila am 21. Jan. 2013 editiert.]

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

---

Hallo graaas,

Du musst nur den Wert in "mySelection" nachbearbeiten, etwa so:

Code:

---

  ' Partnumber der Selektion wird ausgelesen
  Dim mySelection
  mySelection =  CATIA.ActiveDocument.Selection.Item(1).Value.PartNumber
  If InStrRev(mySelection, "}") = Len(mySelection) Then
    mySelection = Replace(Left(mySelection,InStr(mySelection, "{") - 1), ".", "")
  Else
    mySelection = Replace(Left(mySelection,InStr(mySelection, "{") - 1) & Mid(mySelection,InStr(mySelection, "}") + 1), ".", "")
  End If

---

oder einfacher, wenn niemals nach der Klammer "}" etwas folgt:

Code:

---

  ' Partnumber der Selektion wird ausgelesen
  Dim mySelection
  mySelection =  CATIA.ActiveDocument.Selection.Item(1).Value.PartNumber
  mySelection = Replace(Left(mySelection,InStr(mySelection,"{") - 1), ".", "")

---

mfg,
Lusilnie

------------------
Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!

frei nach größeren Geistern

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

---

Danke für die schnellen Antworten, funktioniert super!!
Ein Problem das ich aber noch habe ist, dass in der Excel Stückliste die Teilenummer immer mit ein paar Leerzeichen davor und danach angegeben sind (lässt sich leider nicht vermeiden, wird so automatisch aus dem System gefahren). Wenn ich nun nach der Nummer suche findet er diese nicht.
Kann man in den VLookup-Befehl vor und nach das mySelection noch einen Platzhalter einfügen wie *, wie muss ich das machen?

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

---

Bin jetzt selber auf die Lösung gekommen:

Code:

---

A = Excel.Application.WorksheetFunction.VLookup("*" & mySelection & "*", Tabelle1.Range(Tabelle1.Cells(1, 1), Tabelle1.Cells(12000,6)), 2, False)

---

Trotzdem nochmals vielen Dank für die Hilfe. (:

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

---

Hallo, die leerzeihen kannst du einfach von deinen string mit trim funktion entfernen

myString = trim(myString)

------------------
Catia v5 macros

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