Dropdownliste mit Adressangaben

Zuvor habe ich unter dem Tab "Entwicklertools" die Funktion "Sicherheit" und folgende Option ausgewählt.
<br />


<br />Ab hier habe mich eigentlich an alle Angaben von Christian gehalten, aber ich gebe sie gerne wieder:
<br />Ich habe über die Funktion "Entwicklertools" eine "Dropdownliste" mit Namen und Tag "Name" und ein Rich-Text-Contentcontrol mit Namen und Tag "Adresse", auf einem leeren Word-Dokument erstellt.
<br />


<br />und ein Rich-Text-Contentcontrol mit Namen und Tag "Adresse", auf einem leeren Word-Dokument erstellt.
<br />


<br />Als nächstes habe ich im VBA Modul folgenden Code eingefügt:
<br />Option Explicit
Public oName() As Variant
Dim oCC As ContentControls
Dim oCls As New Klasse1
Sub AutoNew()
ReDim oName(2, 1)'für mehr Einträge die 2 ersetzen
<br />' Array-Einträge anpassen
<br />oName(0, 0) = Array("Albert Einstein", "Relativitätsstrasse 1", "0815", "Relativitätshausen")
oName(1, 0) = Array("Max Mustermann", "Zuhause 1", "4711", "Hierundjetzt")
Set oCC = ActiveDocument.SelectContentControlsByTag("Name")
oCC(1).DropdownListEntries.Clear
oCC(1).DropdownListEntries.Add oName(0, 0)(0)
oCC(1).DropdownListEntries.Add oName(1, 0)(0)
Set oCls.oCC = ActiveDocument
End Sub
<br />


<br />


<br />


<br />In den Zeilen,
<br />ReDim oName(2, 1)'für mehr Einträge die 2 ersetzen
<br />' Array-Einträge anpassen
<br />oName(0, 0) = Array("Albert Einstein", "Relativitätsstrasse 1", "0815", "Relativitätshausen")
oName(1, 0) = Array("Max Mustermann", "Zuhause 1", "4711", "Hierundjetzt")
<br />habe ich die Adressaten wie folgt angepasst:
<br />


<br />Nachdem habe ich im Klassenmodul "Klasse1" folgenden Code eingefügt:
<br />Option Explicit

Public WithEvents oCC As Document

Private Sub oCC_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim oCC As ContentControls
Dim i As Integer
If ContentControl.Tag = "Name" Then
For i = LBound(Modul1.oName, 1) To UBound(Modul1.oName, 1)
If ContentControl.Range.Text = Modul1.oName(i, 0)(0) Then
Set oCC = ActiveDocument.SelectContentControlsByTag("Adresse")
oCC(1).Range.Text = Modul1.oName(i, 0)(1) & vbCrLf & Modul1.oName(i, 0)(2) & " " & Modul1.oName(i, 0)(3)
Exit For
End If
Next i
End If
End Sub
<br />


<br />


<br />Zu Ende habe ich das ganze als Word-Vorlage mit Makros, also als ".dotm" Datei bei mit gespeichert.
<br />


<br />Wenn ich versuche die Vorlage in einem neuen Worddokument zu öffnen, taucht folgende Fehlermeldung auf.
<br />


<br />Wenn ich versuche im neuen Dokument die "Dropdown-Funktion" zu benutzen, zeigt sich weiterhin keine Veränderung.
<br />Falls hier noch andere Angaben gewünscht sind, kann ich diese gerne nachreichen. Danke weiterhin für die Unterstützung.
<br />Gruss
<br />

Hallo,
<br />interessant, dass in Unternehmen Anfänger damit beauftrag werden, Dokumentvorlagen und Formulare zu erstellen...

Sofern Outlook im Unternehmen eingesetzt wird, kann man auf die dort hinterlegten Kontakte zugreifen.
<br />Ansonsten müssten die Adressen eventuell als Bausteine in der aktuellen oder einer externen Dokumentvorlage gespeichert und verfügbar gemacht werden.
<br />Viele Grüße
<br />Lisa
<br />

Hallo,
<br />wenn's dir nichts ausmacht, englischsprachige Anleitungen zu lesen, findest du hier ein Tutorial:
VBA Basics (gregmaxey.com)
<br />Ansonsten gibt es natürlich auch Bücher zur Programmierung mit VBA.
<br />Viele Grüße
<br />Lisa
<br />

Guten Tag
<br />Entschuldigung, da hast du recht.
<br />Hier nochmals eine Vorlage mit den Makros:
<br />https://verrex-my.sharepoint.com/:f...ZLrc_sMCBVT_MBiS1Gb_kEdgp8rY9u9C0afg?e=ew43fA
<br />Danke für die Rückmeldung im Voraus.
<br />

Hallo,
<br />die von dir hochgeladene Datei enthält keinen VBA-Code bzw. kein Makro.
<br />Viele Grüße
<br />Lisa
<br />