Groß- und Kleinschreibung per Makro ?
24.12.2004 16:04:58
Selma
ich benutze folgendes Makro, der mir den Text in markierten Bereich in Kleinbuchstaben umwandelt:
Sub Gross_Klein()
'nur markierte Zelleninhalte werden in Kleinbuchstaben umgewandelt
Dim Zelle As Object
For Each Zelle In Selection
Zelle = LCase(Zelle)
Next
End Sub
Jetzt brauche ich noch zwei änhlichen Makros und zwar:
1) Markierten Zellenbereich so umwandeln: Erste Buchstabe des Zelleninhaltes Groß, Rest klein
Beispiel voher:
HEUTE BIN ICH GUT DRAUF
Beispiel nachher:
Heute bin ich gut drauf
2) Markierten Zellenbereich so umwandeln: Erste Buchstabe des Wortes Groß, Rest klein
Beispiel voher:
mein Haus ist klein
Beispiel nachher:
Mein Haus Ist Klein
Wie mache ich das?
Danke im Voraus....
Gruß
SELMA