Store / små bogstaver

Brug VBA funktionerne Ucase og LCase, for at konvertere til store hhv. små bogstaver.

Følgende konverterer den aktive celle til store

ActiveCell.Value = UCase(ActiveCell.Value)

og følgende til små

ActiveCell.Value = LCase(ActiveCell.Value)

=STORE.BOGSTAVER(A3)

Indsat i f.eks celle A1, giver A1 indholdet af celle A3 i store bogstaver, men jeg tror dog ikke det er det du søger:

Nåd du forlader en celle, skal bogsteverne konverteres til store bogstaver. Men måske det kan lede dig lidt i den rigtige retning.

Så lærte jeg også noget iaften :o)

jkrons hvor anbringes VBA koden. Det er meningen at bogstaverne skal konverteres til små eller store når cellen forlades.
vh Steen

Højreklik på arkfanen og indsæt dette stykke kode. I dette tilfælde er det A1:A10 der skal laves om til store bogstaver.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        Application.EnableEvents = False
        Target = UCase(Target)  'LCase(Target)
        Application.EnableEvents = True
    End If
End Sub

steensommer-> bals forslag er udmærket, men du mangler at fortælle under hvilke forudsætninger der skal ændres til hhv store eller små. Du kan jo ikke få begge dele samtidigt :-)

jkrons, jeg blev lige trigget af "Du kan jo ikke få begge dele samtidigt"
Det er selvfølgelig bare pjat :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A1:A10")) Is Nothing Then
        Target = UCase(Target)
        Target = LCase(Target)
    End If
End Sub

Interessant forslag :-)

Et godt endeløst loop :-)

Ja, det viser da hvorfor jeg har linien Application.EnableEvents = False med :-)

Men spøg til side: Der må vel være en logik, der fortæller om der skal konverteres til store eller små bogstaver.

Det er nogel interessante kommentarer i har - meget lærerige ;0)
Egentlig burde bak vel også tildeles nogle point - men du har måske rigeligt i forvejen.