Beginnen met hoofdletter

[jverstraten]

De tekst in een cel laten beginnen met een hoofdletter en daarna verder met kleine letter dat lukt wel met de formule =beginletters.
Maar is dat ook direct mogelijk in een hele kolom ???

 

[popipipo]

Formule doortrekken naar beneden werkt dat dan niet?
Anders even een xls voorbeeldje plaatsen.

 

[wildboy]

Hey,

Misschien heb je hier iets aan VBA

Sub CapFirst()
Dim MyNewText, FirstText, RestOfText

For Each x In Range("A:A")
If x = "" Then
MsgBox "nothing to do"
Exit For
Else
FirstText = Left(x, 1)
FirstText = UCase(FirstText)
RestOfText = Right(x, Len(x) - 1)
MyNewText = FirstText & RestOfText
x.Value = MyNewText
End If
Next

End Sub

 

[WimenBeer]

Eric,

Werk inderdaad prima, maar dan moet je wel de macro opstarten.
Oplossing van Willem werkt gewoon altijd en is een standaard functie.
Zou ik gewoon gebruiken.

Wim

 

[jverstraten]

Formule doortrekken naar beneden werkt dat dan niet?
Anders even een xls voorbeeldje plaatsen.

Dat lukt wel maar het zijn meer dan 30000 regels.

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Columns(1)) Is Nothing Then
        Target = WorksheetFunction.Proper(Target)
    End If
End Sub

 

[WimenBeer]

Eric,

Nog even wat beter gekeken naar je VBA code.
Maar het heeft een probleem.
Als in de rest van de tekst ook nog een hoofdletter voorkomt dan wordt die ook getoond.
Ter lering en vermaak de volgende code

Sub CapFirst()

For Each x In Range("A:A")
If x = "" Then
MsgBox "nothing to do"
Exit For
Else
x.Value = UCase(Left(x,1)) & LCase(x, Len(x) - 1))
End If
Next

End Sub

Groeten

Wim

 

[WimenBeer]

Dat lukt wel maar het zijn meer dan 30000 regels.

Er is een handige functie in Excel om cellen door te trekken.
Selecteer de cel die je wilt door trekken.
Ga met je muis helemaal naar het rechter onderkantje van de cel.
Je ziet dan een kruisje (zonder pijltjes) en je drukt twee maal op de linker muis knop.
Dan wordt de inhoud van deze cel volledig naar beneden gekopieerd (zolang er waarden in deze cellen staat of in de kolom links van deze cel).

Groet

Wim

 

[wildboy]

Eric,

Nog even wat beter gekeken naar je VBA code.
Maar het heeft een probleem.
Als in de rest van de tekst ook nog een hoofdletter voorkomt dan wordt die ook getoond.
Ter lering en vermaak de volgende code

Groeten

Wim

VBA was niet van mij hoor wou dat ik dat kon was gewoon van het grote www had misschien even de bron moeten vermelden.


PS: jverstraten formule doortrekken kan heel simpel (neem even aan dat je de kolom direct naast de ander hebt geplaatst) ga op de eerste cel staan met de formule rechtsonder in de cel zie je nu een klein vierkantje, dubbelklik hierop en je formule zal direct naar alle onderstaande regels worden doorgetrokken.

http://www.youtube.com/watch?v=1Ti2KwGH4ts

 

[WimenBeer]

wildboy,

Was ook alleen ter lering.

Wim

 

[wildboy]

wildboy,

Was ook alleen ter lering.

Wim

Ben je ook zeker dankbaar voor de tip, staat ook meteen in een tip archief bij mij,
ben ook stapje voor stapje bezig in vba en kan zelf steeds meer dingetjes zelf.

 

[jverstraten]

Er is een handige functie in Excel om cellen door te trekken.
Selecteer de cel die je wilt door trekken.
Ga met je muis helemaal naar het rechter onderkantje van de cel.
Je ziet dan een kruisje (zonder pijltjes) en je drukt twee maal op de linker muis knop.
Dan wordt de inhoud van deze cel volledig naar beneden gekopieerd (zolang er waarden in deze cellen staat of in de kolom links van deze cel).

Groet

Wim

HalloWim,

Dat is de oplossing, simpel en snel

Hartelijk dank.

Groeten
Johan

 

[WimenBeer]

Graag gedaan.

Simpel is vaak het beste