---

Parameter_.jpg

Hallo zusammen,

ich komm gerade auf keinen grünen Zweig und aus der suche werde ich auch nicht schlauer!
Oder es liegt einfach daran, das ich vor lauter Bäumen den Wald nicht mehr sehe.

Folgendes Problem:

Ich habe einen Parameter in der Product-Struktur und möchte diesen als Prüfung auslesen.

Inhalt des Parameters ist folgender:
-Bitte Paramter eingeben
-SP
-RE
-LI
-leer

Gibt der Parameter den Wert "Bitte Parameter eingeben" an, soll das Macro abgebrochen werden. Bei den anderen Eingaben läuft das Macro einfach weiter.
Was schön wäre, wenn das Macro über eine MsgBox angibt bei welchem Product der Parameter das Macro beendet.

------------------
Mit freundlichen Grüßen,

cChris

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

---

Servus
Du könntest einfach über eine Schleife den Parameter abfragen und wenn die entsprechende Bedingung nicht erfüllt ist das Makro abbrechen:

Code:

---

Sub CATMain()

Dim oProduct As Product
Dim oParameter As Parameter
Dim Box As String

Set oProduct = CATIA.ActiveDocument.Product

For Each oParameter In oProduct.Parameters.RootParameterSet.AllParameters
    If oParameter.Value = "B" Then
        Box = MsgBox("Der Parameter " + oParameter.Name + " ist nicht zugewiesen." + Chr(10) + "Das Makro kann nicht ausgeführt werden und wird beendet!", vbCritical, "Parameter nicht ausgewählt")
        Exit Sub
    End If
Next

End Sub

---

Gruß
Bernd

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

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