4
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
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
Auf Facebook teilen
Auf Twitter teilen
Auf Reddit teilen
Auf Linkedin teilenBitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 141038
Url: https://administrator.de/contentid/141038
Ausgedruckt am: 22.11.2024 um 14:11 Uhr
4 Kommentare
Neuester Kommentar
Hallo mag-lion!
Vielleicht (ungetestet) so:
Grüße
bastla
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 bastla
Hallo bastla,
hatte kurzfristig noch andere Igel zu kämmen, deshalb die lange Pause.
Deine Lösung könnte imho passen, aber wie bringe ich diese unter?
Im Moment habe ich jeder Checkbox folgendes zugeordnet:
Naja, und das ist mein Problem mit den 8 Varianten.
Also - noch nicht gelöst.
Gruß
mag
hatte kurzfristig noch andere Igel zu kämmen, deshalb die lange Pause.
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 ThenNaja, und das ist mein Problem mit den 8 Varianten.
Also - noch nicht gelöst.
Gruß
mag
Hallo mag-lion!
Und wenn Du meinen Vorschlag von oben in ein "Sub CheckCheck()" verpackst und in jedem "
Grüße
bastla
Und wenn Du meinen Vorschlag von oben in ein "Sub CheckCheck()"
verpackst und in jedem "AfterUpdate()"-Ereignis (aller beteiligten CheckBoxen) aufrufst?Grüße
bastla
Hallo bastla,
ja
ja
ja
kurz, knapp = funktioniert.
(Der Wald und die Bäume...)
Recht herzlichen Dank.
Gruß
mag
ja
ja
ja
kurz, knapp = funktioniert.
(Der Wald und die Bäume...)
Recht herzlichen Dank.
Gruß
mag
