---

Hallo V5ler,

hab mal wieder ein Problem. Ich habe eine InputBox, die abfrägt, was ich benötige. Nach der Eingabe drücke ich auf OK und das Makro selektiert mir das, was ich eingegeben habe. Wenn ich Abbrechen drücke, bringt er ne Fehlermeldung im Makro. Was kann ich machen, damit er mir bei Drücken des Abbrechen-Buttons das Makro beendet?

Vielen Dank im Voraus für Eure Hilfe!!
Gruß
Spritty
Hier mein Makro:

Language="VBSCRIPT"

Sub CATMain()

'Weiteres Beschriftungstool?
Rueckfrage1 = MsgBox ("Wird ein Firmenzeichen benötigt?", vbYesNo)
If Rueckfrage1 = vbNo Then
Exit Sub
ElseIf Rueckfrage1 = vbYes Then
Set ADoc = CATIA.Documents.Open ("C:\Spritty\BA\6.Semester\BESCHRIFTUNG_FIRMENZEICHEN_12.04.2006.CATPart")
Set ADoc = CATIA.ActiveDocument

'Eingeben und kopieren des Firmenzeichen
Set Liste1 = ADoc.Selection
Liste1.Clear
Eingabe1 = "Firmenzeichenr"
Eingabe1 = InputBox ("Bitte hier das Firmenzeichen eingeben", "Eingabe des Firmenzeichen", Eingabe1)
Liste1.Search "'Part Design'.Körper.Name =" & Eingabe1 & ";Alle"
Liste1.Copy
End If

Set WinCol = CATIA.Windows

'Wechseln in das Teile-Beschriftungs-Part
Set ThisWindow1 = WinCol.Item(1)
ThisWindow1.activate

Set partDocument1 = CATIA.ActiveDocument
Set selection2 = partDocument1.Selection

selection2.Clear
Set part2 = partDocument1.Part

selection2.Add part2
selection2.Paste

Set ThisWindow2 = WinCol.Item(2)
ThisWindow2.activate
CATIA.ActiveDocument.Close

Set WinCol = CATIA.Windows
Set ThisWindow1 = WinCol.Item(1)
ThisWindow1.activate
CATIA.ActiveDocument.Save

End Sub

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

---

Hallo Spritty,

pack einfach folgende (fettgedruckte) Zeile in Dein Macro:

Code:

---

Eingabe1 = InputBox ("Bitte hier das Firmenzeichen eingeben", "Eingabe des Firmenzeichen", Eingabe1)
If Eingabe1 = "" Then Exit Sub
Liste1.Search "'Part Design'.Körper.Name =" & Eingabe1 & ";Alle"

---

Dann wird das Macro bei einer leeren Eingabe oder bei Abbruch beendet!

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

---

Hallo Lusilnie,

vielen Dank für deine schnelle Hilfe. Klappt perfekt. Hab da noch ein anderes Problem zum selben Makro: wenn ich etwas in die InputBox schreibe und die Eingabe in meinem Part nicht vorhanden ist, soll das Makro eine MsgBox bringen und anschließend abbrechen.
Kann mir da jemand auf die Sprünge helfen?!

Danke! Gruß
Spritty

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

---

Hallo Spritty,

pack einfach folgende (fettgedruckten) Zeilen in Dein Macro:

Code:

---

Liste1.Search "'Part Design'.Körper.Name =" & Eingabe1 & ";Alle"
If Liste1.Count = 0 Then
    Msgbox "Körper " & Eingabe1 & " nicht gefunden!!! - Abbruch!!"
    Exit Sub
End If
Liste1.Copy

---

Sollte funktionieren, ist aber nicht geprüft!!!

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

---

Hallo Lusilnie,

vielen herzlichen Dank für deine Hilfe. Genau so geht's!

Danke,
Gruß
Spritty

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