Met macro naar hoodletters

[Tom Berends]

Beste mensen,

In het bereik b3:z30 kunnen een h of een b worden ingevoerd. Ik wil echter dat het automatisch allemaal hoofdletters worden, wanneer ik een macro daarvoor aanroep. Wat moet de inhoud van die macro zijn?
Alvast dank!

 

[Warme bakkertje]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [B3:Z30]) Is Nothing Then
        If Target.Value = "b" Or Target.Value = "h" Then
            Target.Value = UCase(Target.Value)
        End If
    End If
End Sub

 

[Wigi]

Of (gezien de onduidelijkheid in de vraagstelling) een eenmalige procedure:

Sub hoofdletter()
    On Error Resume Next
    For Each r In Range("B3:Z30").SpecialCells(xlCellTypeConstants, xlTextValues)
        If InStr("bh", r) Then r.Value = UCase(r)
    Next
End Sub

Wigi

 

[Tom Berends]

Dank

Dag Warme bakkertje en WIGI,

Bedankt voor jullie antwoorden. Ik had al veel gezocht en vond niet echt iets dat voor mij goed werkte, vandaar dat ik een vraag heb gesteld. Meteen daarna ben ik weer verder gaan zoeken en toen vind ik hier een antwoord van Luc Heyndrickx. Dat heb ik aangepast en het werkte! Ik heb van hem geleerd hoe je dat via rechtsklikken op het tabblad ingeeft. Kortom ik ben geholpen!

 

[Warme bakkertje]

Zet je de vraag dan nog even op opgelost

 

[Tom Berends]

Opgelost en nu?

Ik heb eerst in de FAQ gekeken maar daar kon ik niet vinden hoe ik de status van de vraag van niet opgelost naar opgelost kan zetten. Hoe doe ik dat?

 

[Tom Berends]

Gelukt!

Gevonden, rechts onderaan.