Hoofdletters

[linkav]

Beste,

Ik weet dat je met het commando UCase de waarde van een cel in hoofdleters kan zetten.

Graag had ik nu gehad dat de inhoud van een cel, na invoer van een gebruiker, automatisch in een hoofdletters wordt gezet. Kan dit? En hoe ik dit?

 

[Gijsbert1]

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)

 Dim cell   As Range
    On Error Resume Next
    Application.EnableEvents = False
    For Each cell In Target
        cell = UCase(cell)
    Next
    Application.EnableEvents = True
End Sub

 

[MarcelBeug]

Een andere variant (m.i. moet de code gekoppeld zijn aan een Worksheet_Change event):

Private Sub Worksheet_Change(ByVal Target As Range)
Dim ar
Dim i%, j%
Application.EnableEvents = False
If Target.Count = 1 Then
    Target = UCase(Target)
Else
    ar = Target
    For i = 1 To UBound(ar, 1)
        For j = 1 To UBound(ar, 2)
            ar(i, j) = UCase(ar(i, j))
        Next j
    Next i
    Target = ar
End If
Application.EnableEvents = True
End Sub

 

[HSV]

Else
 Target.CurrentRegion = UCase(ActiveCell.Value)