Formulartextfeld einblenden bzw. ausblenden

Antwort erstellen

Smilies
:D :) :( :o :shock: :? 8-) :lol: :x :P :razz: :oops: :cry: :evil: :twisted: :roll: :wink: :!: :?: :idea: :arrow: :| :mrgreen: :badgrin: :doubt:
BBCode ist eingeschaltet
[img] ist eingeschaltet
[flash] ist ausgeschaltet
[url] ist eingeschaltet
Smilies sind eingeschaltet
Die letzten Beiträge des Themas
   

Ansicht erweitern Die letzten Beiträge des Themas: Formulartextfeld einblenden bzw. ausblenden

Re: Formulartextfeld einblenden bzw. ausblenden

Beitrag von emr » 10. Jun 2014, 11:33

Hallo Miss Marple

Besten Dank für deine Tipps. Genau das habe ich gesucht.

Gruss

Re: Formulartextfeld einblenden bzw. ausblenden

Beitrag von Miss Marple » 10. Jun 2014, 11:10

Hi,

Das mit dem Ein-/Ausblenden klappt nur über 'verborgenen Text'.

Also die zweite Textbox über "Start > Schriftart > ausgeblendet" (oder «Shift+Strg+H») formatieren. Dann sieht man sie nicht mehr. Wenn ein Benutzer sich allerdings auch verborgenen Text anzeigen lässt, sieht er sie immer.

Die erste Textbox verknüpfst du mit dem folgenden Makro bei Beenden:
Code: Alles auswählen
Sub HideShowTextBox()
    Dim HRange As Range

    Set HRange = ActiveDocument.FormFields("V2").Range
    If ActiveDocument.FormFields("V1").Result <> "" Then
        HRange.Font.Hidden = False
      Else
        HRange.Font.Hidden = True
    End If
End Sub
Steht was in der Textbox drin, wird beim Verlassen («Tab») die zweite Textbox eingeblendet. Wenn nicht, dann eben nicht.

Zweite Möglichkeit: die Textboxen sind immer beide zu sehen, aber in die zweite kann nur Text eingegeben werden, wenn auch in der ersten was drinsteht. Dazu verknüpfst du die erste Textbox (wieder beim Beenden) mit diesem Makro:
Code: Alles auswählen
Sub DeActivateTextBox()
    If ActiveDocument.FormFields("V1").Result <> "" Then
        ActiveDocument.FormFields("V2").Enabled = True
      Else
        ActiveDocument.FormFields("V2").Enabled = False
        ActiveDocument.FormFields("V2").Result = ""
    End If
End Sub

Gruß
MM

Formulartextfeld einblenden bzw. ausblenden

Beitrag von emr » 10. Jun 2014, 06:35

Hallo Zusammen

Würde gerne folgendes machen.
Ich habe zwei Formularfelder V1 und V2. Sobald Text in V1 eingetragen wird, soll V2 eingeblendet werden. Oder wenn dies nicht möglich ist, die Eingabe aktiviert werden.

Leider komme ich aber genau hier nicht weiter. Mein Code sieht momentan so aus:
Code: Alles auswählen
    If ActiveDocument.FormFields("V1").Result = "" Then
      Else
        ActiveDocument.FormFields("V2").Active = True
    End If
Leider funktioniert dies nicht.
Habt Ihr einen Tipp für mich?

Nach oben