klein naar groot

[baukjen]

VRAAG:
in een cel staat postcode 8900 xl
welke formule is hier te gebruiken om de de postcode zichtbaar te maken met hoofdletters 8900 XL

vr.gr.
Baukjen

 

[Wigi]

De functie HOOFDLETTERS misschien.....

 

[baukjen]

die neemt dan alleen de 1ste letter om hoofdletter te maken dus wordt het Xl ipv XL

 

[MarcelBeug]

Op de tab "Formules" kun zoeken naar functies, per categorie. Als je een functie aanwijst, dan krijg je vanzelf extra informatie te zien.
In Excel 2016 ziet het er uit als in bijgaand plaatje.

 

[MarcelBeug]

die neemt dan alleen de 1ste letter om hoofdletter te maken dus wordt het Xl ipv XL

Nee hoor, dat doet de functie BEGINLETTERS.

Edit: als je het gewoon probeert, dan zie je het toch vanzelf?

 

[baukjen]

opgelost Jippie :thumb:

 

[baukjen]

oké ik ga verder zoeken hihi leuk om het te vinden

 

[gast0660]

Hoi,
Dit stukje vba klaart de job voor het door gekozen bereik met 1 druk op de knop.

Sub dotchie()
    Dim Rng As Range
    Dim c As Range
    Set Rng = ActiveSheet.Range("A1:A20")
    For Each c In Rng
        c.Value = UCase(c.Value)
    Next c
End Sub

 

[gast0660]

Hier een voorbeeldje
Zet wat postcodes in kolom A (kleine letters en druk op de knop)

 

[baukjen]

deze zal ik zeker uit gaan testen

 

[baukjen]

bedankt gast0660. is er in de code nog iets te maken dat er automatisch een spatie tussen de getallen en letters komt?

 

[gast0660]

Hoi,

Sub dotchie()
    Dim Rng As Range
    Dim c As Range
     Dim strRight As String
    Set Rng = ActiveSheet.Range("A2:A20")
    For Each c In Rng
    If Not IsEmpty(c.Value) Then
        c.Value = UCase(c.Value)
        c.Value = Left(c.Value, 4) & " " & Right(c.Value, 2)
   End If
    Next c
End Sub

 

[VenA]

Iets minder regels en wat flexibeler

Sub VenA()
  For Each cl In Range("A2:A" & Cells(Rows.Count, 1).End(xlUp).Row)
    cl = Left(cl, 4) & " " & UCase(Right(cl, 2))
  Next cl
End Sub