begin hoofdletters in elke cel.

[Fick]

ik heb een (vrij groot) Excel-bestand, waarvan de tekst in de cellen meestal niet met een hoofdletter begint en dat zou wel moeten. Op een voor mij onduidelijke manier werkt -PROPER (celnaam) niet. Heeft iemand een oplossing?

 

[edmoor]

Met bijvoorbeeld een stukje VBA:

Sub StartMetHoofdletter()
    For Each cl In ActiveSheet.UsedRange
        cl.Value = UCase(Left(cl, 1)) & Mid(cl, 2)
    Next cl
End Sub

NB:
De Nederlandse benaming van de functie Proper is Beginletters.

Sub StartMetHoofdletter()
    For Each cl In ActiveSheet.UsedRange
        cl.Value = WorksheetFunction.Proper(cl)
    Next cl
End Sub

Maar ik begrijp dat je alleen de eerste letter in een hoofdletter wilt wijzigen.

 

[AHulpje]

Met propercase zou je inderdaad alle woorden met een hoofdletter laten beginnen.

Sub ProperCase()
    For Each C In ActiveSheet.UsedRange
        C.Value = StrConv(C.Value, vbProperCase)
    Next
End Sub

 

[Fick]

ik ben bepaald niet slecht in Engels, maar dit wist ik niet. En idd.: ik wil alleen de eerste letter als hoofdletter, hoe doe ik dat dan?

 

[edmoor]

Zie het eerste voorbeeld in #2.

 

[Fick]

zou je 'm voor mij in het voorbeeld, dat ik bij m'n vraag voegde, willen zetten?
Als ik jouw formule kopieer, dan verdeelt 'ie zich over 5 cellen onder elkaar, wat ik ook doe. Als ik dat dan weer achter elkaar zet, dan gebeurt er niks.

 

[AHulpje]

Het is geen formule maar een VBA macro. Ik heb hem in je voorbeeld geplaatst. Start de macro met Alt+F8, Enter.

 

[AHulpje]

Als je het liever met een formule doet kun je dat via een kopie van Blad1 naar Blad2 doen, zie de formule op Blad2!A1, die kun je doortrekken naar rechts en naar beneden.

 

[AlexCEL]

Zonder VBA o.i.d. maar via een tweede tabel met formule.

Edit: Ahulpje had ongeveer zelfde idee.

 

[Fick]

allemaal geweldig bedankt!! Het is me gelukt. Ben best wel bedreven met Excel, maar niet mer Macro's, VBA's en formules ook niet zo heel erg.
Nogmaals dank!!