hoofdletter

dan1704 · 27 apr 2012

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 · 27 apr 2012

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:

Code:

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 · 27 apr 2012

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:

Code:

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 · 4 mei 2012

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 · 5 mei 2012

Als het met een macro moet:

Code:

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

hoofdletter

dan1704

Nieuwe gebruiker

zapatr

Terugkerende gebruiker

Niels28

Terugkerende gebruiker

zapatr

Terugkerende gebruiker

snb

Verenigingslid

Nieuwste berichten

Wij waarderen jouw privacy