Hey Sunnybat,

Ik vond dit via AI.

Groet,

Tech8

of met formule in cel:  =BEGINLETTERS(TEKST(A1;""))

En deze:
=BEGINLETTERS(A1)

Sunnybat, Roodborstje,

In mijn ogen is de de macro beter als je woorden zonder hoofdletter wilt VERBETEREN.
Wil je een handige knop dan volgt hier een kleine tip:

Kopieer de macro (van Tech8):
    Sub HoofdletterStart()
        Dim c As Range
        For Each c In Selection.Cells
            ' Controleer of de cel een tekstwaarde bevat en geen fout is
            If Not IsError(c.Value) And Not IsEmpty(c.Value) Then
                c.Value = StrConv(c.Value, vbProperCase)
            End If
        Next c
    End Sub                  

in een module van "This Workbook" in je VBA-editor.

Ga terug naar je werkblad, en Rechtsklik in de Werkbalk Snelle Toegang.
Kies uit het pop-up menu voor Het lint aanpassen.

In het venster dat opent klik in de linker menu op Werkbalk Snelle toegang
In het vak  Opdrachten kiezen kies je voor Macro's.
In de lijst met macro's kies je nu voor de Macro HoofdletterStart en klik op de inmiddels zichtbaar geworden knop Toevoegen.
De macro HoofdletterStart staat nu in je werkbalk Snelle toegang.
Klik op de knop Wijzigen.... Kies een Symbool om de macro op je werkbalk Snelle Toegang weer te geven. Verander of verwijder eventueel de weergavenaam naar keuze.  Klik op OK.

Op je werkbalk Snelle toegang verschijnt nu altijd deze knop. Je selecteerd een woord of een reeks of een willekeurige selectie woorden, druk op de knop in je snelstartbalk en alle geselecteerde woorden zullen omgezet worden naar woorden met Hoofdletter.

Vragen? Shoot 

SoftAid              

Graag gedaan