hoofdletter

[dan1704]

Ik zoek een macro om de eerste letter van een zin in een cel of in meerdere cellen om te zetten naar hoofdletter .
Wie kan me helpen?

Alvast bedankt

 

[zapatr]

Als je in de helpfile gekeken hebt, dan zul je gezien hebben dat je voor je probleem UCASE(...) kunt gebruiken.
Stel dat je in A1:A100 in elke cel van de eerste letter een hoofdletter wil maken, dan kan dat bv. zo:

Sub Hoofdletters()
Dim x As Integer
'Deze code is geschreven door Zapatr
For x = 1 To 100
Range("A" & x).Value = UCase(Left(Range("A" & x).Value, 1)) & _
Mid(Range("A" & x).Value, 2, Len(Range("A" & x).value))
Next x
End Sub

Let op: bericht werd aangepast om 11.42 uur.

 

[Niels28]

Waarom met een macro terwijl dit een optie in excel is bij autocorrectie?
zie help van excel onder hoofdletter.

Als het perse met een macro:

Sub Hoofdletter()
For Each cl In Range("A1:C200").SpecialCells(xlCellTypeConstants, 2)
cl.Value = UCase(Left(cl.Value, 1)) & Right(cl.Value, Len(cl.Value) - 1)
Next
End Sub

Niels

 

[zapatr]

dan1704,
het is op dit forum gebruikelijk dat een vraag na voldoende beantwoording door de vragensteller als 'Opgelost wordt aangemerkt (dit staat in de gebruikershandleiding van dit forum, die elke gebruiker wordt geacht doorgenomen te hebben en ermee akkoord te gaan). Is je vraag niet afdoende beantwoord of heb je anderszins nog problemen, meld dat dan.

 

[snb]

Als het met een macro moet:

Sub tst()
    [A1:C200] = [index(proper(A1:C200),)]
End Sub