Exel VBA code Tekst: invul tekst

[SIRsparky989]

Hey allemaal,

ik ben bezig met een Excel bestandje om offertes mee te kunnen maken.
nu is het mijn idee om deze te beveiligingen zodat er enkel en alleen een aantal cellen geselecteerd kunnen worden.
nu is mijn idee om deze cellen te voorzien van tekst "Invullen/vul in/etc.."

ik heb op deze forum een voorbeeld kunnen vinden voor 1 cel.
nu heb ik geprobeerd om dit ook werkend te krijgen voor een andere cel alleen hier ligt mijn knelpunt, dit krijg ik niet voor mekaar.
is er toevallig iemand die de juiste code hiervoor weet en waar het bij mij misgaat?

Onderstaande code is de code die ik op deze site heb kunnen vinden:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$N$2" Then Exit Sub
Application.EnableEvents = False
If Target = "" Then Target = "vul in"
Application.EnableEvents = True
End Sub


deze invulvelden wil ik dus voorzien in de volgende cellen (Cel naam met naam functie):
N2 (Project naam)
N3 (Projectnummer)
N4 (Opdrachtgever)
AG2 (Calculator)
AG3 (Datum)
Z4 (Kenmerk)

 

[AD1957]

zo ?

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("N2:N4,AG2:AG3,Z4")) Is Nothing Then
    Application.EnableEvents = False
    If Target = "" Then Target = "vul in"
    Application.EnableEvents = True
End If
End Sub

 

[SIRsparky989]

Getest en dit werkt inderdaad, thx

 

[AD1957]

of bedoel je dit ?

Private Sub Worksheet_Change(ByVal Target As Range)

Select Case Target.Address(0, 0)
    Case "N2"
        Application.EnableEvents = False
        If Target = "" Then Target = "Project naam"
        Application.EnableEvents = True
    Case "N3"
        Application.EnableEvents = False
        If Target = "" Then Target = "Projectnummer"
        Application.EnableEvents = True
        
        'etc,etc
    
    
    
End Select

End Sub

 

[SIRsparky989]

nee echt die eerste bedoel ik

mijn gedachte gang is dat dit formulier voor diverse projecten te gebruiken is, en als er geen naam in staat dat iig duidelijk is dat er iets ingevuld dient te worden

 

[AD1957]

Dan moet het de gebruiker wel opvallen dat er "vul in" of iets anders in de cel staat.

 

[emields]

je kan het natuurlijk ook zo doen.

 

[SIRsparky989]

je kan het natuurlijk ook zo doen.

Hmm ik zou dit graag willen proberen maar kennelijk werken de Active X besturingselementen niet op mijn PC,

ik kan wel zelf nieuwe knoppen aan maken maar ik kan ze niet selecteren

Ontwikkelaars Lint staat aan en in de instellingen staan de vinkjes voor Active X besturingselementen ook aan...

heb ook al de fix geprobeerd met de bestanden van .Exd te verwijderen zonder succes
*C:\users\username\AppData\Local\Temp\Excel8.0\MSForms.exd*

 

[SIRsparky989]

ik ben zelf nog agaan zoeken op internet en ben het volgende tegen gekomen op deze site: https://answers.microsoft.com/en-us...sheet-is/7afbeecd-9373-4a0c-a241-22a8c342886a

Nadat ik het volgende heb geprobeerd:
Greetings! Thank you for posting to Microsoft Community.



According to your description, I would suggest you try to optimize for compatibility in Excel to see if the issue remains by following steps:

File>option>General>User interface options->Select the "optimize for compatibility" and restart your excel.



Best Regards,

werken mijn Active X besturingselementen