Tekst in F5 in een label

[marcel31281]

Goedendag,

Graag zou ik de teksten die nu in F6 G6 H6 I6 staat, dat deze niet gewijzigd word of kan worden door een gebruiker
Als ik nu een bed toevoeg aan de lijst gaat de opmaak verloren(getal word weer zwart en gaat naar een kleiner lettertype)
Kan ik dit oplossen met een label of een textbox?Bekijk bijlage TEST.xlsm

Ik ben al druk aan het googelen geweest, maar krijg niet helemaal wat ik zoek.

Kunnen jullie mij helpen ??

Alvast bedankt

 

[edmoor]

Probeer het zo eens:
Bekijk bijlage TEST.xlsm

 

[marcel31281]

Hoi bedankt, ziet erg al heel goed uit

Heb alleen nog 1 vraag

- Kun je uitleggen wat je precies gedaan hebt, want als ik het in het originele bestand wil toepassen dan krijg ik het niet voor elkaar

 

[edmoor]

Kijk eens achter het werkblad, daar staat een Worksheet_Change functie. Vervang die door deze:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        Application.EnableEvents = False
        Range("F5").FormulaR1C1 = "=COUNTIF(Tabel1[Status],0)"
        Range("G5").FormulaR1C1 = "=COUNTIF(Tabel1[Status],3)"
        Range("H5").FormulaR1C1 = "=COUNTIF(Tabel1[Status],2)"
        Range("I5").FormulaR1C1 = "=COUNTIF(Tabel1[Status],1)"
        Application.EnableEvents = True
    End If
End Sub

 

[marcel31281]

Super bedankt, ik heb het gevonden

Is het trouwens mogelijk om textbox te beveiligen tegen bewerken? Ik heb nu in een textbox de gegevens van F5 staan, maar bij het beveiligen van het blad kan de gebruiker de textbox blijven wijzigen. Of moet ik hiervoor een ander besturingsformulier voor gebruiken?

Alvast bedankt

 

[edmoor]

Als de gegevens in een tekstbox niet mogen wijzigen kan je beter een label object gebruiken.

 

[marcel31281]

Kan ik deze dan ook aan een cel linken? Kan het bij eigenschappen niet terug vinden namelijk
Of zie ik iets over het hoofd?

 

[edmoor]

Nee, dat gaat niet. Zet dan van de textbox het attribuut Enabled op False.

 

[marcel31281]

Bedankt

 

[edmoor]

Of het attribuut Locked op True. Net wat je mooier vind.