Inhaltsverzeichnis
Müssen Sie einen Zellentext automatisch in richtige, Groß- oder Kleinschreibung ändern, nachdem der Benutzer ihn eingegeben hat? Es gibt mehrere Möglichkeiten, dies zu erreichen, und mehrere Anforderungen sind möglich. Hier ist ein Beispiel, das automatisch alles ändert, nachdem es in eine bestimmte Spalte eingegeben wurde. Hoffentlich können Sie aus diesem Beispiel bauen!
1. Drücken Sie ALT und F11, um das Codefenster zu öffnen
2. Doppelklicken Sie auf den Blattnamen, den Sie automatisch erstellen möchten
Fall ändern
3. Geben Sie diesen Code in das Codefenster ein:
Ändern Sie den Text in die richtige Groß-/Kleinschreibung
Code für Richtiger Fall
Private Sub Worksheet_Change(ByVal Target As Excel.Range) Application.EnableEvents = False If Target.Column = 5 Then Target = StrConv(Target, vbProperCase) End If Application.EnableEvents = True End Sub
Text in Großbuchstaben ändern
Zum Großbuchstaben du kannst ändern
StrConv(Ziel, vbProperCase)
zu
Ucase (Ziel)
Text in Kleinbuchstaben ändern
Zum Kleinbuchstaben du kannst ändern
StrConv(Ziel, vbProperCase)
zu
Lcase(Ziel)