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

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