Text in Kleinbuchstaben umwandeln

101069

 


 

Das folgende Makro wandelt den Text im markierten Bereich in Kleinbuchstaben um.
Sie müssen dazu einfach den Bereich markieren, den Sie umwandeln möchten. Anschließend
werden alle Texte im markierten Bereich in Kleinbuchstaben umgewandelt.


Public Sub klein_schreiben()

Dim zelle As Range

For Each zelle In Selection
    If zelle.Value <> "" Then
        zelle = LCase(zelle.Value)
    End If
Next zelle

End
 Sub


Umgekehrt kann natürlich auch der Text in Großbuchstaben umgewandelt werden, dazu ist nur eine
kleine Anpassung notwendig.

Public Sub klein_schreiben()

Dim zelle As Range

For Each zelle In Selection
    If zelle.Value <> "" Then
        zelle = UCase(zelle.Value)
    End If
Next zelle

End
 Sub