Bij het wegschrijven tekst omzetten in hoofdletters

[jefkeh]

Hoi,
Ik wil deze code gebruiken om mijn gegevens van een formulier naar een werkblad te schrijven.
Dit werkt ook alleen, ik zou graag alles wegschrijven in hoofdletters.

"Private Sub CommandButton2_Click()

LRij = Sheets("Algemeen").Range("a65536").End(xlUp).Offset(1).Row
For i = 1 To 16
      
    Sheets("Algemeen").Cells(LRij, i) = Me("textbox" & i).Value
    Next
End Sub"

Dit krijg ik niet gevonden;
Alvast bedankt
Gr

 

[HSV]

Gebruik:

= Ucase(......

 

[jefkeh]

Hoi,

Bedankt voor de tip, had de Ucase op de foute manier geprobeerd

= Me UCase(("textbox" & i).Value)

Moet zijn

= UCase(Me("textbox" & i).Value)

Nogmaals bedankt