• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Hoofdletters naar kleine letters, maar ..

Status
Niet open voor verdere reacties.
I

IsaBovie

Gebruiker
Lid geworden
10 jul 2018
Berichten
19
In een kolom staan woorden in hoofdletters.

Deze moeten omgezet worden in kleine letters, ECHTER de eerste letter van ELK woord moet een hoofdletter blijven.

Ik stuur een bestand mee.
 

Bijlagen

  • hoofdletters vervangen door beginhoofdletter rest klein.xlsx
    8,4 KB · Weergaven: 34
Hoi,
Zoiets?
Code: 
Sub dotch()
With ActiveSheet
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    For Each cel In .Range("A1:A" & lastRow)
        cel.Value = Application.Proper(cel.Value)
    Next
End With
End Sub
 
In B1:
Code: 
=BEGINLETTERS(A1)
Daarna kolom B selecteren en in kolom A speciaal plakken als waarde.
 
Code: 
Sub M_snb()
  Columns(1).SpecialCells(2).Name = "snb"
  [snb] = [index(proper(snb),)]
End Sub

Ietsje trager, zelfde effekt:

Code: 
Sub M_snb()
  [A:A] = [index(proper(A:A),)]
End Sub
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan