=begeinletters

[Archipel]

Hallo forumleden, ik probeer gebruik te maken van de functie =BEGINLETTERS

Bijvoorbeeld als je in A1 een kleine letter van de voornaam invoert dat het door de functie gewijzigd wordt in een hoofdletter.

Kan iemand mij die functie formuleren?

Bij voorbaat dank

M.v.g. A

 

[Haije]

zie bijlage

 

[AlexCEL]

Bijvoorbeeld als je in A1 een kleine letter van de voornaam invoert dat het door de functie gewijzigd wordt in een hoofdletter.

Als ik dit zo lees wil je dat in A1 de ingevoerde kleine letter gewijzigd wordt in een hoofdletter met een formule. Dat kan dus niet. Je kan niet EN een letter EN een formule in één cel hebben.

Als je dit wilt is VBA nodig (credits ChatGPT)

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        If IsLetter(Target.Value) Then
            Target.Value = UCase(Target.Value)
        End If
    End If
End Sub

Function IsLetter(ByVal str As String) As Boolean
    IsLetter = str Like "[A-Za-z]"
End Function

 

[edmoor]

Of:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "A1" Then Target = StrConv(Target, vbProperCase)
End Sub

 

[AlexCEL]

Ik vond het al bijzonder dat ChatGPT met iets kwam dat gewoon werkt...