Justin, freut mich und gutes Argument.
Das meinte ich eingangs mit "[..] sZeichenkette musst jetzt noch irgendwie erzeugen"
Überlegen wir uns folgendes:
Bei Klick hinzufügen, bei Klick entfernen.
Bei Klick:
Wenn Checkbox.Value = WAHR, dann hinzufügen, sonst entfernen bzw. mit Nullstring ersetzen.
Skizze:
Private Sub CheckBox1_Click()
sZeichenkette = IIf(CheckBox1.Value = True, sZeichenkette & "Termine;", Replace(sZeichenkette, "Termine;", vbNullString))
End Sub
Damit wir denselben Code nicht in jedes Klick-Event reinschreiben müssen und uns dadurch wiederholen, könnte man diese Codezeilen in eine Prozedur auslagern. Als Parameter übergibst Du den Verweis auf Deine Checkbox, sowie den TeilString, der in sZeichenkette ersetzt/ergänzt werden soll.
Skizze:
Sub Manipuliere_sZeichenkette(byRef Checkbox_um_die_es_geht, byval sTeilzeichenkette_um_die_es_geht)
sZeichenkette = IIF(...)
End Sub
Bist bei mir?
|