Im Folgenden sehen wir uns ein Programm in an Excel VBA das wandelt Text in Groß- und Kleinschreibung um. Das heißt, der erste Buchstabe in jedem Wort in Großbuchstaben und alle anderen Buchstaben in Kleinbuchstaben.
Lage:
1. Zuerst deklarieren wir zwei Range-Objekte. Wir nennen die Range-Objekte rng und cell.
Dim rng als Bereich, Zelle als Bereich
2. Wir initialisieren das Range-Objekt rng mit dem ausgewählten Bereich.
Set rng = Auswahl
3. Wir wollen jede Zelle in einem zufällig ausgewählten Bereich überprüfen (dieser Bereich kann beliebig groß sein). In Excel VBA können Sie dafür die For Each Next-Schleife verwenden. Fügen Sie die folgenden Codezeilen hinzu:
Für jede Zelle In rng
Nächste Zelle
Hinweis: rng und cell werden hier zufällig ausgewählt, Sie können beliebige Namen verwenden. Denken Sie daran, sich im Rest Ihres Codes auf diese Namen zu beziehen.
4. Um eine Zelle zu ignorieren, die eine Formel enthält, fügen Sie die folgende Codezeile zwischen For Each und Next hinzu (nur wenn cell.HasFormula false ist, fahren wir fort).
Wenn nicht cell.HasFormula Then
Ende Wenn
5. Als nächstes wollen wir jedes Wort in diesem Bereich in „richtige Groß-/Kleinschreibung“ umwandeln. Für diese Aufgabe können Sie die Arbeitsblattfunktion Proper verwenden. Fügen Sie die folgende Codezeile in Ihre if-Anweisung ein.
cell.Value = WorksheetFunction.Proper(cell.Value)
6. Testen Sie das Programm.
Ergebnis:
