Twee worden beginnen met Hoofdlettter

[vrouw]

Hallo,

Onderstaande code gevonden hier op forum om hoofdletters om te zetten in kleine letters behalve de eerste letter van het eerste word.

Nu zou ik graag zien dat een 2e woord in een cel ook een hoofdletter krijgt, kan dat ook?

Dus WILLEM PIETERSE word Willem pieterse

For Each it In Range("B2:C2").SpecialCells(2, 2)
    it.Value = UCase(Left(it, 1)) & LCase(Mid(it, 2))
  Next

 

[VenA]

it.Value = Application.Proper(it.Value)

 

[vrouw]

Super, enorm mee geholpen :thumb:

 

[JEC.]

@Vrouw, toch gestopt met de Excel online versie?

 

[HSV]

Alsook.

it.Value = StrConv(it.Value, 3)

Oftewel

it.Value = StrConv(it.Value, vbProperCase)

En zonder lus kan het zo.

sub hsv()
 range("b2:c2") = [index(proper(b2:c2),)]
end sub

 

[vrouw]

@Vrouw, toch gestopt met de Excel online versie?

Haha, nee dit is voor een ander projectje met een tabel in excel met adressen en dan een connectie naar word om etiketten te printen.

 

[vrouw]

@HSV bedankt voor alle opties :thumb:

 

[AlexCEL]

Ter info, er is ook een Excel functie voor:

=BEGINLETTERS(A1)