Kleine letters

[John van Opstal]

Hoi,

Weet iemand de code in VBA om bij dubbelklikken het gehele werkblad
in kleine letters uit te voeren.

Ik weet niet hoe ik precies LCase moet gebruiken

Ben zeer benieuwd

Groetjes John.

 

[Demeter]

John,

Probeer deze eens:

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Target.Value = LCase(Target.Value)
End Sub

Groet,
Ferenc

 

[Wigi]

Weet iemand de code in VBA om bij dubbelklikken het gehele werkblad in kleine letters uit

Bedoel je: alle werkbladen uit een bestand, of slechts 1 werkblad?

 

[John van Opstal]

Hoi Ferenc,

't werkt nog niet helemaal
Ik wil graag dat bij dubbelklikken dat alle cellen in het werkblad kleine letters worden.
nu verandert alleen de waarde in de cel waar ik op dubbelklik.

Maar het komt wel in de buurt.
Misschien kun je me nog een stapje verder helpen.

Groetjes John

 

[Wigi]

Bedoel je: alle werkbladen uit een bestand, of slechts 1 werkblad?

Antwoord eens aub.

Ook op de vraag: moet het dubbelklikken in elk tabblad gebeuren, of enkel in 1 bepaald tabblad?

 

[John van Opstal]

Hoi Wigi,
Dat maakt voor mij niet uit, dat mag alletwee.
Groetjes John

 

[Wigi]

Wil je ook formules die een tekst opleveren, in kleine letters zetten?

Indien ja, mag de formule overschreven worden (dan is het simpel), moet de formule blijven staan (dan is het moeilijk).

Wigi

 

[John van Opstal]

Hoi Wigi,

In dit blad wordt geen gebruik gemaakt van formules
Maar als ze er zouden staan mag erover heen geschreven worden.

Groetjes John.

 

[Wigi]

zo is het dan.

Option Explicit

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
    Dim c As Range
    With Sh.UsedRange
        On Error Resume Next
        If .SpecialCells(xlCellTypeFormulas, 2) Is Nothing Then
            For Each c In .SpecialCells(xlCellTypeConstants, 2)
                c = LCase(c)
            Next c
        On Error GoTo 0
        For Each c In Union(.SpecialCells(xlCellTypeConstants, 2), .SpecialCells(xlCellTypeFormulas, 2))
            c = LCase(c)
        Next c
    End With
    Cancel = True
End Sub

Wigi

 

[John van Opstal]

Hoi Wigi,
Werkt perfect.
Zelden zo'n kunstenaar gezien...
Groetjes John

 

[Wigi]

Hoi Wigi,
Werkt perfect.
Zelden zo'n kunstenaar gezien...
Groetjes John

Merci. Graag gedaan.