Formulartextfeld einblenden bzw. ausblenden

Moderator: ModerationP

Formulartextfeld einblenden bzw. ausblenden

Beitragvon 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?
emr
 

Re: Formulartextfeld einblenden bzw. ausblenden

Beitragvon 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
Miss Marple
Im Profil kannst Du frei den Rang ändern
 
Beiträge: 1568
Registriert: 24. Jan 2014, 08:13
Wohnort: 52° 15' 53" N, 10° 31' 26" E

Re: Formulartextfeld einblenden bzw. ausblenden

Beitragvon emr » 10. Jun 2014, 11:33

Hallo Miss Marple

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

Gruss
emr
 


Zurück zu Word Forum (provisorisch)

Wer ist online?

Mitglieder in diesem Forum: 0 Mitglieder und 3 Gäste