Hoofdletters

[schuurma]

Ik wil in een kolom alleen hoofdletters gebruiken. Nu staan er kleine letters in die moeten op een makkelijke manier naar hoofdletters.
Bij nieuwe invoer moet (ook al gebruik je kleine letters) het resultaat hoofdletters worden.
Wie weet daar een oplossing voor???
Ik gebruik office-97.

alvast bedankt voor het meedenken.

 

[Jan van Asseldonk]

Omzetten van kleine letters naar hoofdletters:
A1= kleine letters. Plaats in B1: =hoofdletters(A1) (=upper(A1).

Indien je altijd je invoer in hoofdletters wilt zul je gebruik moeten maken van een macro.
Je kunt wel de gebruiker in bijvoorbeeld kolom A in laten voeren en in kolom B automatisch deze invoer omzetten in hoofdletters met boverstaande functie. Daarna gebruik je kolom B voor verdere verwerking.

Aanvulling
Door de volgende code in workbook te zetten, wordt de inhoud van A1 altijd omgezet naar hoofdletters zodra je op Enter drukt. Dit moet ook voor een gehele kolom mogelijk zijn, maar weet even niet hoe dit gaat.
Je moet bij het openen van de sheet dan wel macros activeren!
Mogelijk is dit alvast een begin.

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Excel.Range)
Range("A1").Formula = UCase(Range("A1").Formula)
End Sub

 

[schuurma]

Jan,

Bedankt voor de info.
Ik ga het uitproberen.

 

[schuurma]

Jammer,
In één cel lukt het wel maar de hele kolom lukt niet.

Kan er verder gepuzzeld worden??

 

[smits]

DE formule naar beneden kopieeren; vervolgens de kolom waar de formules in staan markeren en kopieren en via plakken speciaal (waarden) naar de oorspronkelijke kolom terugzetten

 

[wildboy]

de zelfde vraag

Hoi,

Heb een paar maanden geleden hier op het forum de zelfde vraag gesteld.
deze werkt goed tot 500 cellen,daarna pas je gewoon de range aan.:

let even op waar nu B1:B500 zet je je eigen kolom,
maar dat had je vast al gezien.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Rng As Range
For Each Rng In Worksheets("Blad1").Range("B1:B500")
If Rng.HasFormula = False Then
Rng.Value = StrConv(Rng.Value, vbUpperCase)
End If
Next Rng
End Sub



:thumb:

 

[MayNiak666]

Is dit wat?

Ben wat aan het stoeien geweest, misschien is dit wat voor je...

Beeld, werkbalken, werkset besturingselementen
kies "opdrachtknop"
klik ergens op je werkblad waar je de knop wilt hebben.
met rechtermuisknop op knop klikken
kies "eigenschappen"
vul achter Caption in "Hoofdletters"
sluit venster eigenschappen
met rechtermuisknop op knop klikken
kies "Programmacode weergeven"

Voeg onderstaande code in, werkt voor 1 kolom, in dit geval kolom A...

kolom = 1
rij = 1
cel = Cells(rij, kolom)
Do While Not IsEmpty(cel)
waarde = cel
Cells.Replace What:=waarde, Replacement:=UCase(waarde), LookAt:=xlPart, _
SearchOrder:=xlByColumns
rij = rij + 1
cel = Cells(rij, kolom)
Loop


Succes

 

[schuurma]

Bedankt voor de vele reacties,

Als ik tijd heb ga ik het verder uitproberen.:thumb: