Makro Frage

[mike6]

Hallo,

mit dem Code:

Code: Alles auswählen

Sub DatenInBrief
  Dim oForm as Object
  Dim oForms as Object
  Dim oDocument as Object
  Dim DocCtl as Object
  Dim oObj as Object
  Dim oCheckBox as Object
  'Dokument holen
  oDocument = thisComponent
  DocCtl = oDocument.getCurrentController()
  oForms = oDocument.Drawpage.Forms
  'oForm = oForms.getByIndex(0)
  oDoc = thisComponent
   
  Dim address(4)
   
  address() = split(oD1.getControl("cmb_vgv").Text, ",")
  ChangeVariable(oDoc, "adresse_vgv", address(0) + " " + address(1))
  ChangeVariable(oDoc, "adresse_strasse", address(2))
  ChangeVariable(oDoc, "adresse_plz", address(3))
  ChangeVariable(oDoc, "adresse_ort", address(4))

wähle ich aus dem Dropdownfeld cmb_vgv eine Adresse aus. Die entsprechenden Daten, die an der Adresse hängen, wie strasse, plz und Ort werden automatisch in die Feldbefehle geschrieben.

Nun möchte ich zusätzlich aus einem Dropdownfeld noch einen Bearbeiter wählen. Auch hier sollen die Daten, die am Bearbeiter hängen, wie Tel-Nr., email, und Fax-Nr. automatisch in die jeweiligen Feldbefehle [ Einfügen / Feldbefehl / Variablen ] geschrieben werden.

Wie ergänze ich den Code?

[DPunch]

Aloha

Offensichtlich arbeitest Du mit einem Dialog - ohne diesen Dialog zu sehen, ohne zu wissen, wo die Daten in den Comboboxen des Dialogs herkommen, ohne den Dialog als solchen zu verändern wird man Dir da vermutlich nicht wirklich helfen können.
Hier geht es nicht um korrekte Syntax oder die allgemeine Umsetzung einer allgemeinen Anforderung, sondern um die spezielle Umsetzung einer speziellen Anforderung - ohne Beispieldatei bzw. ohne die Hintergrundinformationen ist das so leider nicht machbar.
Der einzige Tip, den ich Dir da geben kann, ist, dass Du Dir anschaust, wie in Deinem Makro-Code die Daten in Deine Combo-Box ""cmb_vgv" geschrieben werden und versuchst, das entsprechend mit einer zweiten Combo-Box und den dazugehörigen Daten für den Bearbeiter nachzubauen.