Excel VBA hoofdletters EN formule

[M.v.Veelen]

Ik heb in Excel een VBA scriptje dat ervoor zorgt dat kleine letters meteen worden omgezet naar hoofdletters.

code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell   As Range
    On Error Resume Next
    Application.EnableEvents = False
    For Each cell In Target
        cell = UCase(cell)
    Next
    Application.EnableEvents = True
End Sub

Nu wil ik in bepaalde cellen een formule zetten bijv. :

code:

SUBSTITUTE(A84; "F"; "LPAB0000")

Maar als ik dat doe, dan verschijnt meteen de juiste waarde op de plek waar ik de formule zet, maar de formule is dan meteen weg. Als A84 dan verandert, dan gebeurt er niets meer. Dit heeft te maken met het VBA script, als ik die namelijk verwijder dan gaat het wel goed.

Hoe kan ik toch allebei gebruiken?

[F_J_K]

Pas je Change()-code aan zodat wordt gecontroleerd of de betreffende cel een formule bevat. Zo nee, dan UCase gebruiken.

[M.v.Veelen]

Ehm....kun je me op weg helpen? Ik heb geen idee hoe je dit inbouwt....

[F_J_K]

[google=vba check if cell contains formula] geeft voorbeeldcode en al (Edit: dus de range.HasFormula property)
Dan de huidige code aanpassen met een if .. then .. else.

Maar ik zou niet adviseren code te gebruiken die teksten aanpast, als je de code (en vooral de uitzonderingen er bij) niet begrijpt.

[ Voor 7% gewijzigd door F_J_K op 12-11-2014 16:28 ]

[Darf]

For Each cell In Target
if cell.Value = SUBSTITUTE* Then
else
cell = UCase(cell)
Next
Endif

Oid

[M.v.Veelen]

Top, ik kan hier wel wat mee. "Helaas" kan ik vrijdag weer bij het bestand, maar als ik er niet uit kom, dan meld ik me hier weer. Bedankt zover jongens!

[Verwijderd]

Het is niet verstandig om een 'Private Sub...' voor het gehele blad te laten gelden als je maar een beperkt gedeelte van het blad gebruikt. Het kan de werking van Excel enorm vertragen.
En ik weet niet wat de reden is dat je 'On error rusume next' hebt toegevoegd, maar 'On error' bestaat niet voor niets, dat kun je beter intact laten.