• 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/normale letters

Status
Niet open voor verdere reacties.
T

tjarda24

Gebruiker
Lid geworden
1 dec 2009
Berichten
26
Hallo,

Ik weet niet hoe ik het volgende moet oplossen:

In kolom A staan allemaal straatnamen. In de ene cel staat een straatnaam in hoofdletters en in de andere cel in kleine letters. Ik moet uiteindelijk alle straatnamen die in kolom A staan netjes hebben. Er staat een voorbeeld hoe ik het hebben wil. (kolom B)

Alvast bedankt!

Groetjes Tjarda
 

Bijlagen

zet in C2 deze formule:

Code: 
=BEGINLETTERS(WISSEN.CONTROL(A2))

en trek hem door naar beneden.

Groeten,
Dennis
 
Hoi


In b2: =beginletters(a2) en deze formule naar beneden kopiëren.
Hierna kolom B selecteren en de opdracht 'kopiëren' geven
Klik met de rechtermuisknop op de A van kolom A en kies 'Plakken speciaal' en in het dialoogvenster 'Waarden' kiezen.
De kolom B kan hierna weg.

De methode 'Dennis' werkt maar gedeeltelijk, want je blijft op die manier met het resultaat van formules zitten.
 
Laatst bewerkt:
Beste tjarda24 ;)

In cel C2

=BEGINLETTERS(A2))

Groetjes Danny. :thumb:
 
Code: 
Sub tst()
sq = Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
For i = LBound(sq) To UBound(sq)
    sq(i, 1) = LCase(sq(i, 1))
Next
[A2].Resize(UBound(sq)) = sq
End Sub
 
Of met de one-liner:

Code: 
Sub tst()
  UsedRange.Columns(1) = WorksheetFunction.Transpose(Split(LCase(Join(WorksheetFunction.Transpose(UsedRange.Columns(1)), "|")), "|"))
End Sub

toegift
Methode Ucase: kolom 1 in hoofdletters:
Code: 
    UsedRange.Columns(1) = WorksheetFunction.Transpose(Split([COLOR="Blue"]UCase[/COLOR](Join(WorksheetFunction.Transpose(UsedRange.Columns(1)), "|")), "|"))

Methode Lcase: kolom 1 in kleine letters
Code: 
    UsedRange.Columns(1) = WorksheetFunction.Transpose(Split([COLOR="blue"]LCase[/COLOR](Join(WorksheetFunction.Transpose(UsedRange.Columns(1)), "|")), "|"))

Methode StrConv,1: kolom 1 in hoofdletters
Code: 
    UsedRange.Columns(1) = WorksheetFunction.Transpose(Split([COLOR="blue"]StrConv[/COLOR](Join(WorksheetFunction.Transpose(UsedRange.Columns(1)), "|"), [COLOR="blue"][B]1[/B][/COLOR]), "|"))

Methode StrConv,2: kolom 1 in kleine letters
Code: 
    UsedRange.Columns(1) = WorksheetFunction.Transpose(Split([COLOR="blue"]StrConv[/COLOR](Join(WorksheetFunction.Transpose(UsedRange.Columns(1)), "|"), [COLOR="blue"][B]2[/B][/COLOR]), "|"))

Methode StrConv,3: kolom 1 met beginhoofdletter per woord
Code: 
    UsedRange.Columns(1) = WorksheetFunction.Transpose(Split([COLOR="blue"]StrConv[/COLOR](Join(WorksheetFunction.Transpose(UsedRange.Columns(1)), "| "), [COLOR="blue"][B]3[/B][/COLOR]), "| "))
 
Laatst bewerkt:
:o Oeps ni goe gekeken
 
snb zei:
Of met de one-liner:

Code: 
Sub tst()
  UsedRange.Columns(1) = WorksheetFunction.Transpose(Split(LCase(Join(WorksheetFunction.Transpose(UsedRange.Columns(1)), "|")), "|"))
End Sub

toegift
Methode Ucase: kolom 1 in hoofdletters:
Code: 
    UsedRange.Columns(1) = WorksheetFunction.Transpose(Split([COLOR="Blue"]UCase[/COLOR](Join(WorksheetFunction.Transpose(UsedRange.Columns(1)), "|")), "|"))

Methode Lcase: kolom 1 in kleine letters
Code: 
    UsedRange.Columns(1) = WorksheetFunction.Transpose(Split([COLOR="blue"]LCase[/COLOR](Join(WorksheetFunction.Transpose(UsedRange.Columns(1)), "|")), "|"))

Methode StrConv,1: kolom 1 in hoofdletters
Code: 
    UsedRange.Columns(1) = WorksheetFunction.Transpose(Split([COLOR="blue"]StrConv[/COLOR](Join(WorksheetFunction.Transpose(UsedRange.Columns(1)), "|"), [COLOR="blue"][B]1[/B][/COLOR]), "|"))

Methode StrConv,2: kolom 1 in kleine letters
Code: 
    UsedRange.Columns(1) = WorksheetFunction.Transpose(Split([COLOR="blue"]StrConv[/COLOR](Join(WorksheetFunction.Transpose(UsedRange.Columns(1)), "|"), [COLOR="blue"][B]2[/B][/COLOR]), "|"))

Methode StrConv,3: kolom 1 met beginhoofdletter per woord
Code: 
    UsedRange.Columns(1) = WorksheetFunction.Transpose(Split([COLOR="blue"]StrConv[/COLOR](Join(WorksheetFunction.Transpose(UsedRange.Columns(1)), "| "), [COLOR="blue"][B]3[/B][/COLOR]), "| "))
Klik om te vergroten...

ik vind deze oplossing wel kick :cool:
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan