*

Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Pagina's: [1]   Omlaag

Auteur Topic: hoofdletters  (gelezen 62812 keer)

0 leden en 1 gast bekijken dit topic.

Offline Danny A

  • Volledig lid
  • **
  • Berichten: 127
  • Geslacht: Man
  • Oplossing.be
hoofdletters
« Gepost op: 07 april 2025, 12:28:50 »
Hallo forum,

Is er een manier om een bereik van cellen bv A1-D10 zodanig in te stellen dat alles wat daar ingetypt wordt in hoofd letters staat ?

dank bij voorbaat
Danny
Gelogd

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 20.470
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: hoofdletters
« Reactie #1 Gepost op: 07 april 2025, 14:40:39 »
Hallo Danny,

ik denk niet dat het kan in het werkblad zelf. Je zal een macro moeten gebruiken voor dat werkblad.

Code: [Selecteer]
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cel As Range
    If Not Intersect(Target, Range("A1:D10")) Is Nothing Then
        Application.EnableEvents = False
        For Each cel In Target
            cel.Value = UCase(cel.Value)
        Next cel
        Application.EnableEvents = True
    End If
End Sub
Zet deze code in de VBA editor in het werkblad waar je de hoofdletters in wilt.

Groeten,

:) SoftAid :)             
Gelogd
Maximum grootte bijlagen vergroot naar 4 MB
Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline Danny A

  • Volledig lid
  • **
  • Berichten: 127
  • Geslacht: Man
  • Oplossing.be
Re: hoofdletters
« Reactie #2 Gepost op: 08 april 2025, 06:56:55 »
Softaid,

bedankt voor deze oplossing, hier kan ik mee verder

mvg
Danny
Gelogd
Pagina's: [1]   Omhoog
 


www.combell.com