Corrigeren van invoer in cellen met Worksheet_Change

[JoGoSoft]

Hallo,

Ik heb het volgende probleem.
Ik wil via een Worksheet-Change gebeurtenis in een aantal cellen de invoer die handmatig wordt ingevuld automatisch aanpassen cq. corrigeren.
In een cel wil ik alle invoer laten vervangen door HOOFDLETTERS en in een andere cel wil ik de tijd ingave laten aanpassen.
Ik heb al een voorzetje gemaakt maar het lukt me niet om deze gebeurtenissen samen in een Worksheet-Change code te laten uitvoeren.
(Zie voorbeeldje).
Graag had ik hierbij wat hulp gehad.
Bij voorbaat dank.

Jogosoft

 

[Roncancio]

Zo?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    Application.EnableEvents = False
    If Not Intersect(Target, [C2]) Is Nothing Then
        Target.Value = UCase(Target.Value)
    ElseIf Not Intersect(Target, Range("F2:F4")) Is Nothing Then
        Target.Value = Format(Target.Value, "0:00")
    End If
End If
Application.EnableEvents = True

End Sub

Met vriendelijke groet,


Roncancio

 

[JoGoSoft]

Ronancio,

Geweldig,

Mijn probleem is hiermee opgelost.
Vele malen dank.

Jogosoft