Gross Kleinschreibung
26.09.2008 19:49:00
BuStü
wie bekomme ich es hin, das beim Verlassen bestimmten Zellen in einem Formular, der Text in Gross und Kleinschreibung korrigiert wird.
Für die Grosschreibung habe ich folgendes Script gefunden, welches prima funktioniert.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, z As Range
'Überachter Bereich: Spalte C (anpassen!)
Set rng = Intersect(Target, Range("c9:c16"))
If Not rng Is Nothing Then
Application.EnableEvents = False
For Each z In rng
With z
.Value = UCase(.Value)
End With
Next z
Application.EnableEvents = True
End If
End Sub
Nur für die Zellen C4,5,6,8 B25 bis B45 finde ich keine Lösung für die Gross/Kleinschreibung
Kann mir jemand helfen.
Für Eure Hilfe wäre ich sehr dankbar.
MfG
Burghard
PS: (die Recherche führte bei mir zu keinem Ergebnis)