Thema Datum  Von Nutzer Rating
Antwort
03.12.2023 17:17:00 Melvin
NotSolved
03.12.2023 17:58:02 Gast25851
NotSolved
03.12.2023 19:50:23 Gast32215
NotSolved
Blau Word Drop-Down automatisches aktualisieren von Textfeld
03.12.2023 23:06:53 Gast25851
NotSolved
04.12.2023 00:48:55 Gast25851
Solved
17.12.2023 22:10:11 Gast77466
NotSolved
27.12.2023 16:10:31 Gast25851
Solved
30.12.2023 16:53:26 Gast84432
NotSolved

Ansicht des Beitrags:
Von:
Gast25851
Datum:
03.12.2023 23:06:53
Views:
190
Rating: Antwort:
  Ja
Thema:
Word Drop-Down automatisches aktualisieren von Textfeld

Hallo,

okidoki, dann gib mal Deinen Dropdowns Tags wie 'dd1' oder 'dd2' und dann folgender Code in das Dokumentenmodul:

Option Explicit

Private mstrText As String

Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
If ContentControl.Tag = "dd1" Then mstrText = ContentControl.Range.Text
End Sub

Private Sub Document_ContentControlOnExit(ByVal ContentControl As ContentControl, Cancel As Boolean)
Dim objContentControl  As ContentControl
Dim objContentControlListEntry As ContentControlListEntry
If ContentControl.Tag = "dd1" Then
   If ContentControl.Range.Text <> mstrText Then
      For Each objContentControl In ContentControls
          If objContentControl.Tag = "dd2" Then
             For Each objContentControlListEntry In objContentControl.DropdownListEntries
                 If objContentControlListEntry.Text = ContentControl.Range.Text Then
                      Call objContentControlListEntry.Select
                      mstrText = vbNullString
                      Exit Sub
                 End If
             Next
          End If
      Next
   End If
End If
End Sub

Das sind Ereignisprozeduren, die Aktion erfolgt bei Verlassen des Dropdowns (bspw Click ins Word doc, oder drücken der Pfeil/Tabtaste...)smiley

Gruß,


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
03.12.2023 17:17:00 Melvin
NotSolved
03.12.2023 17:58:02 Gast25851
NotSolved
03.12.2023 19:50:23 Gast32215
NotSolved
Blau Word Drop-Down automatisches aktualisieren von Textfeld
03.12.2023 23:06:53 Gast25851
NotSolved
04.12.2023 00:48:55 Gast25851
Solved
17.12.2023 22:10:11 Gast77466
NotSolved
27.12.2023 16:10:31 Gast25851
Solved
30.12.2023 16:53:26 Gast84432
NotSolved