Tekst laten verschijnen d.m.v. selectievak en verwijderen bij uitvinken

Status
Niet open voor verdere reacties.
R

Robert Smidt

Gebruiker
Lid geworden
26 mei 2009
Berichten
901
Beste Helpmij'ers,

Ik zoek hier al een tijd naar een oplossing hoe je d.m.v. een selectievak een tekst in een bepaalde cel krijgt en wanneer je deze weer uitvinkt deze de cel weer leeg maakt. Onderstaande werkt alleen bij het aanvinken, maar niet bij het uitvinken.

Code: 
Sub Selectievakje997_Klikken()
[Voorraadrisico] = "Dit blijkt uit: "
'[Voorraadrisico] = ""
End Sub

Alvast heel erg bedankt.

Robert
 
Zo wellicht:
Code: 
Sub Selectievakje997_Klikken()
     If [Voorraadrisico] = "" Then [Voorraadrisico] = "Dit blijkt uit: " Else: [Voorraadrisico] = ""
End Sub
 
Code: 
Sub CheckBox1_Click()
    MsgBox IIf(CheckBoxes(1) = 1, "Dit blijkt UIt", "")
End Sub

Algemener:

Code: 
Sub M_snb()
    MsgBox IIf(CheckBoxes(Application.Caller) = 1, "Dit blijkt UIt", "")
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan