TextBox1.ClearContents

[TJ86]

Goedenavond,

ik heb een TextBox1 waarbij standaard tekst is: "Voeg hier uw opmerkingen toe..."

Ik zou graag willen dat als de TextBox wordt geactiveerd en ENKEL als eerdergenoemde tekst in het veld staat dat de inhoud wordt gewist zodat men opmerkingen kan toevoegen.
Als er reeds opmerkingen staan dienen deze niet verwijderd te worden.

Met deze code lukt het me niet...

Private Sub TextBox1_Activate()
If Sheets("Klantgegevens").Shapes("TextBox1").Value = "Voeg hier uw opmerkingen toe..." Then Sheets("Klantgegevens").Shapes("TextBox1").ClearContents
End Sub

 

[SjonR]

dit vraagt om een bestandje.

 

[TJ86]

Alstublieft...

Bekijk bijlage txtbox.xlsb

 

[Cobbe]

En hoe gaat Excel zien dat er ofwel een opmerking ofwel te verwijderen tekst in staat?

Test deze anders eens:

Private Sub TextBox1_GotFocus()
If TextBox1.Text = "Voeg hier uw opmerkingen toe..." Then
 TextBox1 = ""
End If
End Sub

 

[TJ86]

D.m.v. de ingevulde tekst "Voeg hier uw opmerkingen toe..."

Als er iets ánders staat dient er niets te gebeuren

 

[TJ86]

Dit werkt! Super! Het is dus GotFocus!

Thanks!