• 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.

Eerste letter automatisch hoofdletter

  • Onderwerp starter Onderwerp starter bta
  • Startdatum Startdatum
Status
Niet open voor verdere reacties.

bta

Gebruiker
Lid geworden
17 dec 2007
Berichten
188
Excellers,
Ik ben bezig een telefoonlijst te laten genereren. Ik wil dat men standaard de naam begint met een hoofdletter, omdat anders onderscheid gaat worden gemaakt tussen een hoofdletter en een kleine letter. Dat wil ik niet. Is het mogelijk om met behulp van VBA dit voor elkaar te krijgen?
Gr. BTA
 
bta,

Natuurlijk kan dat maar is het niet eenvoudiger om het probleem met hoofd en kleine letters om een andere manier op te lossen.

Gebruik bijvoorbeeld de volgende formule ergens op je werkblad en gebruik dat veld dan om mee te werken.

Code:
=BEGINLETTERS(A1)

Plaats de code bijvoorbeeld en cel B1 en typ in cel A1 iets met kleine letters.
 
bta,
Plaats deze in je worksheet, eventueel de range aanpassen.

Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Range("A:A"), Target) Is Nothing Then Exit Sub
    For Each cl In Target.SpecialCells(2, 2)
    cl.Value = StrConv(cl, 3)
  Next
End Sub

Heb hem ergens van een forum geplukt.
 
Wil je enkel de eerste letter van het eerste woord wijzigen
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then Target = UCase(Left(Target, 1)) & Mid(Target, 2)
End Sub
Wil je de eerste letter van elk woord wijzigen
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then Target.Value = StrConv(Target.Value, 3)
End Sub
of
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then Target = WorksheetFunction.Proper(Target)
End Sub

@ Ad
Ik zou eerder _Change gebruiken omdat anders bij elke celverplaatsing het volledige bereik doorlopen wordt ;)
 
Waarom moet hier VBA bij komen te kijken?

De suggestie van Superzeeuw, gecombineerd met Aangepaste Data validatie, zal zeer goed werken.

Als dit het enige is waarvoor je VBA gaat gebruiken, laat dat dan. Je zadelt bvb. de gebruikers al niet op met het feit dat ze macro's moeten toestaan.

Asap utilities verandert hier niets aan, dat zijn ook macro's.

Dat is mijn mening.

Wigi
 
Heb uiteindelijk de tip van het warme bakkertje gebruikt. Allen bedankt voor het meedenken.
Gr. BTA
 
Heb uiteindelijk de tip van het warme bakkertje gebruikt. Allen bedankt voor het meedenken.
Gr. BTA

Graag nog even de vraag op opgelost zetten (rechts onderaan op de pagina).
Bvd.

Met vriendelijke groet,


Roncancio
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan