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

Alle letters verkleinen en laten beginnen met een hoofdletter

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

HWV

Terugkerende gebruiker
Lid geworden
19 feb 2009
Berichten
1.213
Beste,

Ik probeer een gehele werkblad van hoofdkletters naar kleine letters te krijgen en te laten beginnen met een hoofdletter.

Na speurwerk ben ik er achter dat je met deze code een eind moet komen ( dus niet )

Code: 
sub verklein ()
LCase (abcdefghijklmnopqrstuvwxyz)
End sub

Ik krijg het maar niet voor elkaar , kan iemans mij hierbij helpen

Met de functie KLEINE.LETTERS en BEGINLETTERS weet ik dat je een kolom of cel kan verkleinen maar ik wil in één keer het gehele blad doen.

Groet HWV

groet HWV
 
1 van de tig methodes

Code: 
    For Each cl In Blad1.Cells.SpecialCells(2)
        cl.Value = LCase(cl)
    Next

de 1e letter een hoofdletter:
Code: 
    For Each cl In Blad1.Cells.SpecialCells(2)
        cl.Value = StrConv(cl, vbProperCase)
    Next
 
Laatst bewerkt:
Code: 
  Sub verklein()
 For Each cl In Blad1.Cells.SpecialCells(2)
        cl.Value = LCase(cl)
    Next
  End Sub

Beste SNB,

Ik krijg een foutmelding op de regel
Code: 
 For Each cl In Blad1.Cells.SpecialCells(2)
Ik heb al gekeken naar mijn blad en die staat ook op blad 1 dus daar kan het niet aan liggen

enig idee waar het aan kan liggen, hij geef aan geen cellen gevonden

groet HWV
 
Code: 
  Sub verklein()
 
      For Each cl In Cells.SpecialCells(2)
       cl.Value = LCase(cl)
       
    Next
  End Sub

Ik heb een aanpassing gemaakt in de code en die werkt nu goed.
Enkel nu nog het probleem om hoofdletters te geven aan elke beginende cel

groet

HWV
 
Kijk naar het 2e deel van mijn vorige suggestie.
 
Kleine letters en beginnen met een hoofdletter OK

SNB bedankt voor de input perfect.
Een fout aan mijn kant.
Nu geb ik in kolom E postcode`s staan, en je begrijp het al de laatste 2 letters is er één groot en één klein.
Kan ik ook de kolom selecteren en dan vanaf rechts de laatste 2 een hoofletter laten geven.

Graag uw visie

HWV
 
Het even geduurd maar ik heb hem

Code: 
Dim c As Range
   For Each c In Range("E:E", Range("E:E").End(xlDown))
    c = UCase(c)
   Next

In kolom E staat bij mij de postcode, met deze code zet hij de letters om naar grote letters.
Hij moet er meer over nadenken als de code van snb maar hij werkt.

Bedankt allemaal voor he meedenken

Groet

HWV
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan