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-Key: 141038

Url: https://administrator.de/contentid/141038

Printed on: April 16, 2024 at 15:04 o'clock

Member: bastla
bastla Apr 20, 2010 at 15:24:52 (UTC)
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
Member: mag-lion
mag-lion May 06, 2010 at 12:28:02 (UTC)
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
Member: bastla
bastla May 06, 2010 at 12:49:49 (UTC)
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
Member: mag-lion
mag-lion May 06, 2010 at 13:07:00 (UTC)
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