Excel hoofdletter (niet standaard)

[vinemaster]

ik heb een kolom met tussenvoegsels waarbij ik het EERSTE woord met een hoofdletter wil.

Voorbeeld:
van der -->> Van der
Dus niet-->> Van Der

Onderste uitkomst krijg je met de formule BEGINLETTERS.

Kan iemand mij helpen?

 

[Niels28]

Toch wel makkelijk die zoekfunctie op dit forum.
hopelijk heb je er wat aan.

http://www.helpmij.nl/forum/showthread.php/701217-hoofdletter

Niels

 

[vinemaster]

Ik ben niet zo thuis in macro's. dus dat klinkt als abracadabra voor mij.
Ik ben wel redelijk gewend aan de standaard formules die gebruikt kunnen worden in excel.

Zo weet ik dat de formules Hoofdletters en beginletters niet werken.

Mijn vraag is dus, welke formule kan ik gebruiken, of is er een simpele manier om een leek uit te leggen hoe de macro's werken van jouw linkje.

Overigens werkt die oplossing niet... het wordt dan alsnog: "Van Der"
De formule of macro moet in ieder geval effect hebben op Kolom E, (E:E).

 

[Niels28]

Met een formule dan.

=HOOFDLETTERS(LINKS(A1;1))&KLEINE.LETTERS(RECHTS(A1;LENGTE(A1)-1))

Niels

 

[vinemaster]

Dit is de uiteindelijke macro geworden, ik heb me erin verdiept:

Sub Hoofdletters()
Dim x As Integer
For x = 1 To 100
Range("E" & x).Value = UCase(Left(Range("E" & x).Value, 1)) & _
Mid(Range("E" & x).Value, 2, Len(Range("E" & x).Value))
Next x
End Sub

Ik ga ook je formule nog even testen, dat lijkt me makkelijker. (hij geeft een waarde error bij lege cellen, ook niet de bedoeling)
Toch, Mijn dank is GROOT!

 

[Niels28]

excel 2007 of hoger

=ALS.FOUT(HOOFDLETTERS(LINKS(A1;1))&KLEINE.LETTERS(RECHTS(A1;LENGTE(A1)-1));"")

of anders bv

=ALS(A1="";"";(HOOFDLETTERS(LINKS(A1;1))&KLEINE.LETTERS(RECHTS(A1;LENGTE(A1)-1));""))

Niels

 

[vinemaster]

Dit is het inderdaad!!

=ALS.FOUT(HOOFDLETTERS(LINKS(D2;1))&KLEINE.LETTERS(RECHTS(D2;LENGTE(D2)-1));"")

BEDANKT

 

[Warme bakkertje]

Sub Hoofdletter()
    On Error Resume Next
    sq = Range("E1:E" & Cells(Rows.Count, 5).End(xlUp).Row)
    For i = 1 To UBound(sq)
        sq(i, 1) = UCase(Left(sq(i, 1), 1)) & Right(sq(i, 1), Len(sq(i, 1)) - 1)
    Next
    Cells(1, 5).Resize(UBound(sq)) = sq
End Sub