mag-lion
Goto Top

Inhalt eines Textfeldes abhängig von CheckBoxen

Hallo,

heute quält mich folgendes Problem:

Ich erstelle eine Word-Vorlage. Das Ausfüllen soll erleichtert werden,
durch Selektion von Checkboxen, die mit Inhalt hinterlegt sind.
Beispiel:
CheckBox1=Telefonnummer
CheckBox2=Telefaxnummer
CheckBox3=Mobilnummer

Je nachdem, welche CheckBoxen angereuzt werden, ändert sich
der Inhalt in diesen einem Textfeld.

Kann also so aussehen:
Telefonnummer
Mobilnummer

oder so:
Telefonnummer
Telefaxnummer

Wird der Eintrag bei Telefaxnummer deaktiviert muss Telefonnummer
stehen bleiben. Oder es kommt zur Telefonnummer die Mobilnummer
dazu und dann doch noch die Telefaxnummer dazwischen...

usw. usf.

Packe ich das Ganze in eine if-Abfrage oder wäre case besser.
Schließlich gibt es 8 Kombinationen.

Mir fehlt der Ansatz...

Gruß
mag

Content-ID: 141038

Url: https://administrator.de/forum/inhalt-eines-textfeldes-abhaengig-von-checkboxen-141038.html

Ausgedruckt am: 23.12.2024 um 04:12 Uhr

bastla
bastla 20.04.2010 um 17:24:52 Uhr
Goto Top
Hallo mag-lion!

Vielleicht (ungetestet) so:
Dim Liste As String
If CheckBox1 Then Liste = "Telefonnummer"  
If CheckBox2 Then Liste = Liste & " " & "Telefaxnummer"  
If CheckBox3 Then Liste = Liste & " " & "Mobilnummer"  
TextBox1.Text = Replace(Trim(Liste), " ", vbNewLine) 'ev Leerzeichen am Anfang per Trim() entfernen und trennenden Leerzeichen auf Zeilenschaltung ändern  
Grüße
bastla
mag-lion
mag-lion 06.05.2010 um 14:28:02 Uhr
Goto Top
Hallo bastla,

hatte kurzfristig noch andere Igel zu kämmen, deshalb die lange Pause. face-wink

Deine Lösung könnte imho passen, aber wie bringe ich diese unter?
Im Moment habe ich jeder Checkbox folgendes zugeordnet:

 
Sub chkbox1_AfterUpdate()
    If chkbox1 Then
        txtbox.Value = txtbox1
        If chkbox2 Then


Naja, und das ist mein Problem mit den 8 Varianten.
Also - noch nicht gelöst.


Gruß
mag
bastla
bastla 06.05.2010 um 14:49:49 Uhr
Goto Top
Hallo mag-lion!

Und wenn Du meinen Vorschlag von oben in ein "Sub CheckCheck()" face-wink verpackst und in jedem "AfterUpdate()"-Ereignis (aller beteiligten CheckBoxen) aufrufst?

Grüße
bastla
mag-lion
mag-lion 06.05.2010 um 15:07:00 Uhr
Goto Top
Hallo bastla,

ja face-big-smile
ja face-big-smile
ja face-big-smile

kurz, knapp = funktioniert.
(Der Wald und die Bäume...)

Recht herzlichen Dank.


Gruß
mag