Tekst in Excel omzetten in hoofdletters

[Marky76]

In bijlage een bestandje waarin een stukje VBA zit maar als ik hem uitvoer veranderd hij alle namen in hoofdletters, maar veranderd alle namen in de naam die in Cel A1 staat.
Hoe moet de code aangepast worden zodat de namen behouden blijven, maar dat de namen wel hoofdletters worden?

Groeten,

 

[Wigi]

Zie hier.

Sub hoofdletters()
Dim c As Range
For Each c In Range("A1", Range("A1").End(xlDown))
    c = UCase(c)
Next
End Sub

Wigi

 

[Marky76]

Wigi,

Wat is de code, als ik ze op een andere keer terug in kleine letters wil weergeven?

Groetjes, Mark.

 

[richard1970]

Maak van UCase LCase
De U staat voor Upper en de L staat voor Lower

Fijn weekend,
Richard

 

[Marky76]

Nog een vraagje, als ik nu tekst heb ik kolom A, B, C, D.
En ik wil enkel de tekst in kolom A en kolom D en hoofdletters en de rest niet,
zou het handig zijn met een InputBox dat ik de kolommen kan bepalen die
in hoofdletters of in kleine letters moeten komen.

Wat moet ik dan nog aan de code toevoegen?

Groeten, Mark

 

[Wigi]

Nog een vraagje, als ik nu tekst heb ik kolom A, B, C, D.
En ik wil enkel de tekst in kolom A en kolom D en hoofdletters en de rest niet,
zou het handig zijn met een InputBox dat ik de kolommen kan bepalen die
in hoofdletters of in kleine letters moeten komen.

Wat moet ik dan nog aan de code toevoegen?

Groeten, Mark

Mark, dat is wel wat lastiger. Zie toch hier voor de uitgewerkte code:

Sub hoofdlettersingekozenkolommen()
Dim c As Range, kolom As String
retry:
    Err.Clear
    kolom = Application.InputBox("Geef een kolom op die je in hoofdletters wil zetten." & vbCr & vbCr & _
        "Geef niets in als je wilt stoppen." & vbCr & vbCr & _
        "(De kolomnaam kan in kleine letter of hoofdletter ingegeven worden.)", "Hoofdletters", Type:=2)
    If kolom = vbNullString Then Exit Sub
    
    On Error Resume Next
    For Each c In Range(UCase(kolom) & "1", Range(UCase(kolom) & "1").End(xlDown))
        c = UCase(c)
    Next
    
    If Err.Number <> 0 Then
       Err.Clear
       Exit Sub
    End If
    On Error GoTo 0
    GoTo retry
End Sub

Wigi

 

[Marky76]

Werkt perfect.

Mark