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
Anfrage per E-Mail 
Anfrage per Kontaktformular 
Hilfe-Forum 
Weitere Informationen 
