Text in Kleinbuchstaben umwandeln

Das folgende Makro wandelt den Text im markierten Bereich in Kleinbuchstaben um. Es werden allso alle Buchstaben als Kleinbuchstaben dargestellt.

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

Drucken