---

Hallo zusammen,
ich habe ein Makro geschrieben ,welches mir im Drawing Texte umbenennt.
Im Catia VBA Editor funktioniert das auch super, jedoch wenn ich das Makro als .CATVBA exportiere ( Makros werden bei uns einzeln abgelegt) und  über Tools / Makro starte, überliest Catia die Auswahl und ändert alle gefundene Texte ab.
Ich habe das ganze auch bereits mit entsprechenden If schleifen gemacht, jedoch kann ich dort nicht mit * den Suchstring verwenden.
Hoffe ihr könnt mir weiterhelfen.

Danke

kleines Beispiel:

oName = "Text aus Componente"

Select Case True

    Case oName Like "*Te*aus*"
          Box = MsgBox("vorhanden")'Text umbenennen
    Case oName Like "*Comp*"
          Box = MsgBox("vorhanden")'Text umbenennen
end Select

mit If Schleife ( Funktioniert )
If InStr(oName, "aus") Then
        Box = MsgBox("vorhanden")'Text umbenennen   
End If

------------------
Klaus

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

---

Servus Klaus
Wie das Makro als .CATVBA exportiere? Meinst du als CATvbs?
Da gibt es wohl kein "like" (ist nur eine Untermenge der Befehle von VB(A)), dort musst du dich ggf mit InStr oder ähnlichem behelfen.

Gruß
Bernd

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

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

---

Hallo
danke für deine schnelle Rückantwort,
ja, CATvbs war gemeint :-)

mit Inst kann ich eben kein * zur suche verwenden. oder hast du da ne Möglichkeit.

------------------
Klaus

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

---

Servus
Du könntest dir ein Like-ähnliche Funktion zusammenbasteln:
- String an * 8in Array splitten (Split)
- mit InStr in dem zu untersuchenden Text nach den Array-Elementen suchen
- Reihenfolge der gesuchten Teilstringe überprüfen.

Gruß
Bernd

PS: Die Lösung passt schon fast zu meinen Signatur.

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

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