Hoofdletters

[TheWendigo]

Avond,

ik heb hier ergens (en mijn dank) deze code ivm hoofdletters :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim b As Range
Application.EnableEvents = False
For Each b In Target.Cells
If Not b.HasFormula Then _
b = UCase(b)
Next b
Application.EnableEvents = True
End Sub

en dan krijgt men dit HOOFDLETTERS
zou er dan ook iets bestaan dat men dit krijgt : Hoofdletters ?

alvast bedankt.

 

[Jan van Asseldonk]

In Excel zelf is dit =BEGINLETTERS(A1). Geeft de tekst van A1 met de 1e letter als hoofdletter.

In VBA kan het niet rechtstreeks maar wel met een kleine omweg door de functie van Excel aan te roepen.
Range("B1").value = Application.WorksheetFunction.Proper(Range("A1"))
Dit geeft de tekst van A1 in B1 met de eerste letter als hoofdletter en de rest als kleine letter.

 

[TheWendigo]

In Excel zelf is dit =BEGINLETTERS(A1). Geeft de tekst van A1 met de 1e letter als hoofdletter.

In VBA kan het niet rechtstreeks maar wel met een kleine omweg door de functie van Excel aan te roepen.
Range("B1").value = Application.WorksheetFunction.Proper(Range("A1"))
Dit geeft de tekst van A1 in B1 met de eerste letter als hoofdletter en de rest als kleine letter.

Eerst thx om zo snel te reageren.
Plak ik deze erbij of plaats ik die apart?

 

[Demeter]

Na aanleiding van Jan zijn post:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim b As Range

Application.EnableEvents = False

    For Each b In Target.Cells
        If Not b.HasFormula Then
            b.Value = Application.WorksheetFunction.Proper(b)
        End If
    Next b
    
Application.EnableEvents = True

End Sub

Groet,
Ferenc

 

[TheWendigo]

Na aanleiding van Jan zijn post:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim b As Range

Application.EnableEvents = False

    For Each b In Target.Cells
        If Not b.HasFormula Then
            b.Value = Application.WorksheetFunction.Proper(b)
        End If
    Next b
    
Application.EnableEvents = True

End Sub

Groet,
Ferenc

thx Ferenc
en dan nu de domme vraag kan ik dat zonder probs bij de andere plakken of moet ik deze eerst verwijderen?

 

[Demeter]

Welke anderen?

 

[Wigi]

thx Ferenc
en dan nu de domme vraag kan ik dat zonder probs bij de andere plakken of moet ik deze eerst verwijderen?

Waar je wat plakt hangt af van wat je wilt doen: in hoofdletters of in beginletters. Beide tegelijk zal niet gaan

Zeg wat je wilt en dan steken we het hier wel in mekaar.

Wigi

 

[TheWendigo]

Waar je wat plakt hangt af van wat je wilt doen: in hoofdletters of in beginletters. Beide tegelijk zal niet gaan

Zeg wat je wilt en dan steken we het hier wel in mekaar.

Wigi

:thumb: :thumb:
D's spijtig dat dat niet gaat ;-)
neen ik ga het proberen met beginletters lijkt mij netter.

 

[Wigi]

:thumb: :thumb:
D's spijtig dat dat niet gaat ;-)

Wat dacht je nu? Elke cel in een bereik, daar maak je hoofdletters van. Daarna ga je door dezelfde cellen en zet je het in beginletters. De hoofdletters ben je kwijt hoor.

Wigi

 

[Wigi]

Private Sub Worksheet_Change(ByVal Target As Range)
Dim b As Range
Application.EnableEvents = False
    For Each b In Target.Cells
        If Not b.HasFormula Then b = Application.WorksheetFunction.Proper(b)
    Next b
Application.EnableEvents = True
End Sub

Met dank aan anderen die het meeste hiervan uitgetypt hebben. Heb de IF functie wel beetje ingekort.

Wigi

 

[TheWendigo]

Na aanleiding van Jan zijn post:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim b As Range

Application.EnableEvents = False

    For Each b In Target.Cells
        If Not b.HasFormula Then
            b.Value = Application.WorksheetFunction.Proper(b)
        End If
    Next b
    
Application.EnableEvents = True

End Sub

Groet,
Ferenc

dank u

 

[TheWendigo]

Wat dacht je nu? Elke cel in een bereik, daar maak je hoofdletters van. Daarna ga je door dezelfde cellen en zet je het in beginletters. De hoofdletters ben je kwijt hoor.

Wigi

dank u