---

Hallo,

ich habe für meine Firma neue Zeichnungsvorlagen entwickelt (Firmenintern und für alle OEMs). Diese Vorlagen
sind recht komplex mit internen Makros (Übersetzungsfunktion, Logoanpassungs usw.) und Parametern welche
vom Anwender manuell befüllt werden müssen. Nun ist dies im Strukturbaum aber doch recht unübersichtlich,
vorallem da die OEMs noch zusätzliche Parameter in den Zeichnungsvorlagen haben. Die Parameter sind
vorhanden um die internen Makros zu starten und um notwendige Informationen bereitzustellen (z.B. Zeichner,
Kunde, usw.). Jetzt will ich das über ein vba-Makro benutzerfreundlicher realisieren und alle Parameter in
eine UserForm laden damit der User hier bequem und übersichtlich alles ausfüllen kann. Das Makro läuft
bisher wie folgt:

  1) Dokumentenprüfung ob eine Zeichnung geöffnet ist
  2) Wenn ja prüfen ob es eine neue Zeichnungsvorlage ist
  3) Wenn ja die aktuelle Sprache ermitteln und alle globalen Parameter auf die aktuelle Sprache einstellen
      (z.B. Parameternamen)
  4) Prüfen von welchem OEM die Zeichnung ist
  5) Die jeweilige UserForm laden
  6) Alle Werte der einfachen Stringparameter an die jeweilige TextBox übergeben
  7) Abbrechen > Abbruch / OK > Übergabe der TextBox-Inhalte an die jeweiligen Parameter
  8) Makro beenden

Das Makro ist eigentlich fertig abgesehen von dem letzten Problem.
Es sind in den Zeichnungen auch MultiValueParameter enthalten. Nun muss ich noch folgendes realisieren:

  - Alle Werte + den aktuell eingestellten Wert der MultiValueParameter an die jeweilige ComboBox übergeben
  - Nach OK den in der ComboBox eingestellten Wert an den jeweiligen Parameter zurück geben

Aber wie?! Ich habe absolut keinen Ansatz.
Die Werte des MultiValueParameters bekomme ich ausgelesen aber wie ich sie weiterverarbeiten kann weiß
ich nicht:

    Set oPara = oParas.Item(vName_Konstrukteur)
          ReDim oParaValues(oPara.GetEnumerateValuesSize - 1)
          oPara.GetEnumerateValues oParaValues

Ich hoffe jemand kann mir helfen...

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

---

Morgen,

wenn ich es richtig verstanden habe (ungetestet):

Code:

---

'ComboBox füllen und einstellen:
For i = 0 to UBound(oParaValues)
    oParaValue = CStr(oParaValues(i))
    Combobox1.additem oParaValue

if oPara.Value = oParaValue then aktuellListIndex = i

next i

Combobox1.ListIndex = aktuellListIndex    'ComboBox einstellen

'...nach Umstellung zurück nach CATIA
oPara.Value = combobox1.value

---

[Diese Nachricht wurde von imation1999 am 17. Feb. 2016 editiert.]

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

---

Hey suuuper vielen Dank.

Hat genau wie gewünscht funktioniert 

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