Thema Datum  Von Nutzer Rating
Antwort
Rot WORD (2016): Textfelder ausblenden auf mehreren Seiten
19.07.2022 15:10:46 Boris
NotSolved
19.07.2022 16:27:21 ralf_b
NotSolved
20.07.2022 09:22:33 Gast38788
NotSolved
20.07.2022 09:22:35 Gast66704
NotSolved
20.07.2022 09:22:35 Gast23850
NotSolved
20.07.2022 09:22:36 Gast80997
NotSolved

Ansicht des Beitrags:
Von:
Boris
Datum:
19.07.2022 15:10:46
Views:
84
Rating: Antwort:
  Ja
Thema:
WORD (2016): Textfelder ausblenden auf mehreren Seiten

Hallo zusammen, ich nutze auf verschiedenen Seiten im Dokument (WORD 2016, Windows 10) Textfelder zum Markieren von verschiedenen Abschnitten. Jetzt versuche ich über zwei VBA-Button diese Textfelder Ein- bzw. Ausschaltbar zu machen. Momentan mache ich das noch mit zwei verschiedenen Buttons, die ich auf der ersten Seite eingebaut habe. Wenn ich die Buttons betätige werden allerdings nur die Textfelder auf der ersten Seite aus- und wieder eingeblendet

Drei Fragen habe ich dazu:

1. Wie kann ich aus den zwei Buttons einen zum ein- und ausschalten machen?
2. Kann ich die Textfelder ausblenden ohne sie alle einzeln im Code ansprechen zu müssen?
3. Wie schaffte ich es, dass der Schalter bzw. der VBA-Code auch für die anderen Seiten funktioniert?

Vielen Dank für die Unterstützung!  

Gruß,
Boris

Mein Code sieht so aus ---------------------------------------------

Private Sub ButtonON_Click() 

'Seite 1 
ActiveDocument.Shapes("Textfeld 01").Visible = True 
ActiveDocument.Shapes("Textfeld 02").Visible = True 
ActiveDocument.Shapes("Textfeld 03").Visible = True 

'Seite 2  
ActiveDocument.Shapes("Textfeld 04").Visible = True 
ActiveDocument.Shapes("Textfeld 05").Visible = True 
ActiveDocument.Shapes("Textfeld 06").Visible = True 

End Sub 

Private Sub ButtonOFF_Click() 

'Seite 1 
ActiveDocument.Shapes("Textfeld 01").Visible = False 
ActiveDocument.Shapes("Textfeld 02").Visible = False 
ActiveDocument.Shapes("Textfeld 03").Visible = False 

'Seite 2  
ActiveDocument.Shapes("Textfeld 04").Visible = False 
ActiveDocument.Shapes("Textfeld 05").Visible = False 
ActiveDocument.Shapes("Textfeld 06").Visible = False 

End Sub 

Mein Code sieht so aus ---------------------------------------------


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
Rot WORD (2016): Textfelder ausblenden auf mehreren Seiten
19.07.2022 15:10:46 Boris
NotSolved
19.07.2022 16:27:21 ralf_b
NotSolved
20.07.2022 09:22:33 Gast38788
NotSolved
20.07.2022 09:22:35 Gast66704
NotSolved
20.07.2022 09:22:35 Gast23850
NotSolved
20.07.2022 09:22:36 Gast80997
NotSolved