Im Folgenden werden wir ein Programm in Excel VBA suchen, den Text in der richtigen Fall umwandelt. Das heißt, der erste Buchstabe in jedem Wort in Großbuchstaben und alle anderen Buchstaben in Kleinbuchstaben.

Situation:

Convert to Proper Case in Excel VBA

  1. Zuerst erklären wir zwei Range-Objekte. Wir rufen die Range-Objekte rng und Zelle.

Dim rng As Range, cell As Range

  1. Wir initialisieren das Range-Objekt RNG mit dem gewählten Bereich.

Set rng = Selection

  1. 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 die For Each Next-Schleife für diese. Fügen Sie die folgenden Codezeilen:

For Each cell In rng

Next cell

Hinweis: RNG und Zelle sind hier zufällig ausgewählt, können Sie alle Namen verwenden.

Denken Sie daran, diese Namen in dem Rest des Codes zu beziehen.

  1. Um eine Zelle zu ignorieren, die eine Formel enthält, fügen Sie die folgende Codezeile zwischen For Each und Next (nur wenn cell.HasFormula falsch ist, dass wir auch weiterhin).

If Not cell.HasFormula Then

End If

  1. Als nächstes wollen wir jedes Wort in diesem Bereich zu ‚richtigem Fall‘ konvertieren.

Sie können die Tabellenfunktion Proper für diese Aufgabe verwenden. Fügen Sie die folgende Code-Zeile in Ihrer if-Anweisung.

cell.Value = WorksheetFunction.Proper(cell.Value)

  1. Testen Sie das Programm.

Ergebnis:

Convert to Proper Case Result