Formattering til KUN store bogstaver

Via Kode i Arkets modul

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column = 1 Then ' her skifter alt, der skrives i kolonne A til stort
        Application.EnableEvents = False
        Target = UCase(Target)
        Application.EnableEvents = True
    End If
End Sub


det tætteste med en formattering, er en formel i en kolonne ved siden af, med formlen
=STORE.BOGSTAVER(A2)

STORE.BOGSTAVER() har jeg luret på. men det kræver en kolonne ekstra, og det er desværre ikke en mulighed.
Men med den kode så gør den det måske helt automatisk ? ...

og går ud fra at jeg bare kan sætte en range på ?

/Mads

Udskift
  If Target.Column = 1 Then ' her skifter alt, der skrives i kolonne A til stort

med

If Not Intersect(Target, Range("A2:A65536")) Is Nothing Then

ret "A2:A65536" til dit område

Ohh...  Smart.
Tak for hjælpen det var super :)

tak for point

Hmm .

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


Selvom jeg har smidt det kode, så laver den ikke mine små bogstaver om til store.

den laver kun nye indtastninger om

Her er en der laver om i det område du har markeret inden du kører koden

Sub Storebogstaver()
      Application.EnableEvents = False
      for each C in selection
        C = UCase(C)
      next
        Application.EnableEvents = True
end sub

Ahh.. Ok .. der troede jeg vidst at den kode var lidt for smart :)

Jeg troede den gjorde det "realtime" ..
Men burde _Change ikke også gøre det ?

Tak for hjælpen anyways. Selvom det ikke lige var 100% det jeg skule bruge, men man kan jo nok altid bruge det en anden gang ;)

/Mads