Automatische hoofdletter opmaak

[mooske04]

Onddanks het feit dat ik al verschillende manieren heb gevonden, heb ik de juiste/makkelijkste nog niet gevonden.

Ik heb een werkblad waarbij ik graag wil dat wanneer ik in elke willekeurige cel iets type, dit altijd in de opmaak met een hoofdletter begint, ook als degene die de cel vult niet heet eerste teken als hoofdletter invoert. de meeste oplossingen hiervoor zijn met hulpkolommen, maar om nu voor 15 kolommen allemaal hulpkolommen in te stellen...... Wie weet er een andere oplossing?

 

[Roncancio]

Stel je voert in: dit is een test

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = UCase(Left(Target, 1)) &Mid(Target, 2, Len(Target))
End Sub

Resultaat: Dit is een test

Wil je dat elk woord met een hoofdletter begint:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Value = Application.WorksheetFunction.Proper(Target)
End Sub

Dus: Dit Is Een Test

Met vriendelijke groet,


Roncancio

 

[mooske04]

Werkt op zich goed, maar past alleen de cel aan die ik wijzig, hoe krijg ik de cellen die al ingevuld zijn ook in deze opmaak?

 

[Roncancio]

Via een macro:

Sub Hoofdletters()
Dim rB As Range
    For Each rB In ActiveSheet.UsedRange
        rB.Value = UCase(Left(rB, 1)) & Mid(rB, 2, Len(rB))
    Next
End Sub

Met vriendelijke groet,


Roncancio