Dieser Artikel ist eine Übersetzung des folgenden englischsprachigen Artikels der Microsoft Knowledge Base:
291323 Sample macro code to change the case of text in Excel
In Artikel 213649 wird dieses Thema für Microsoft Excel 2000 behandelt.
In Artikel 141094 wird dieses Thema für Microsoft Excel 98 und frühere Versionen behandelt.
Zusammenfassung
Zwar enthält Microsoft Excel Funktionen zum Ändern der Groß-/Kleinschreibung von Text, aber in manchen Fällen möchten Sie die Groß-/Kleinschreibung für Text vielleicht auch programmatisch ändern.
Der vorliegende Artikel enthält drei Beispielmakros für Microsoft Visual Basic für Applikationen (Sub-Prozeduren), die bewirken, dass die Buchstaben in einer Textzeichenfolge entweder alle groß oder alle klein geschrieben werden, oder dass jeweils die Anfangsbuchstaben groß geschrieben werden. Diese Aktionen ähneln den Excel-Funktionen =GROSS(), =KLEIN() und =GROSS2().
Weitere Informationen
Die Verwendung der hier aufgeführten Informationen, Makro- oder Programmcodes geschieht auf Ihre eigene Verantwortung. Microsoft stellt Ihnen diese Informationen sowie Makro- und Programmlistings ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität sowie ohne Anspruch auf Support zur Verfügung. In diesem Artikel wird vorausgesetzt, dass Sie mit der in den Beispielen verwendeten Programmiersprache und mit den zum Erstellen und Debuggen von Prozeduren verwendeten Tools vertraut sind. Die Spezialisten von Microsoft Support Services können bei der Erläuterung der Funktionalität bestimmter Prozeduren helfen, jedoch werden sie diese Beispiele nicht in Bezug auf eine erweiterte Funktionalität verändern, noch werden sie Prozeduren entwickeln, die auf Ihre besonderen Bedürfnisse zugeschnitten sind.
Makro, mit dem der gesamte Text eines Bereichs in Großbuchstaben formatiert wird
Sub Uppercase()
' Loop to cycle through each cell in the specified range.
For Each x In Range("A1:A5")
' Change the text in the range to uppercase letters.
x.Value = UCase(x.value)
Next
End Sub
Makro, mit dem der gesamte Text eines Bereichs in Kleinbuchstaben formatiert wird
Sub Lowercase()
' Loop to cycle through each cell in the specified range.
For Each x In Range("B1:B5")
x.Value = LCase(x.Value)
Next
End Sub
Makro, mit dem die Anfangsbuchstaben im gesamten Text eines Bereichs in Großbuchstaben formatiert werden
Sub Proper_Case()
' Loop to cycle through each cell in the specified range.
For Each x In Range("C1:C5")
' There is not a Proper function in Visual Basic for Applications.
' So, you must use the worksheet function in the following form:
x.Value = Application.Proper(x.Value)
Next
End Sub
Testen der Beispielmakros
Gehen Sie folgendermaßen vor, um die Beispielmakros zu testen:
-
Geben Sie in der Arbeitsmappe mit den Makros die folgenden Beispieldaten in ein neues Arbeitsblatt ein:
A1: toM B1: toM C1: toM
A2: sUe B2: sUe C2: sUe
A3: joe SMITH B3: joe SMITH C3: joe SMITH
A4: mary B4: mary C4: mary
A5: LORI B5: LORI C5: LORI
Hinweis: Die Beispieldaten enthalten Text, der mit verschiedenen Buchstaben formatiert ist, anhand dessen Sie die Funktionsweise der Makros überprüfen können. -
Führen Sie die einzelnen Makros aus.
Der Text in dem Bereich, der im Makro angegeben ist (in der Zeile "For each x in ..."), wird jeweils in Großbuchstaben, Kleinbuchstaben oder mit großen Anfangsbuchstaben formatiert.
Informationsquellen
Weitere Informationen zur Verwendung von Arbeitsblattfunktionen, mit denen Sie die Groß-/Kleinschreibung von Text ändern, finden Sie im folgenden Artikel der Microsoft Knowledge Base:
263580 Ändern der Groß-/Kleinschreibung von Text in ExcelWeitere Informationen dazu, wie Sie Hilfe zu Visual Basic für Applikationen erhalten können, finden Sie im folgenden Artikel der Microsoft Knowledge Base:
305326 Ressourcen für die Programmierung mit Visual Basic für Applikationen
Bitte beachten Sie: Bei diesem Artikel handelt es sich um eine Übersetzung aus dem Englischen. Es ist möglich, dass nachträgliche Änderungen bzw. Ergänzungen im englischen Originalartikel in dieser Übersetzung nicht berücksichtigt sind. Die in diesem Artikel enthaltenen Informationen basieren auf der/den englischsprachigen Produktversion(en). Die Richtigkeit dieser Informationen in Zusammenhang mit anderssprachigen Produktversionen wurde im Rahmen dieser Übersetzung nicht getestet. Microsoft stellt diese Informationen ohne Gewähr für Richtigkeit bzw. Funktionalität zur Verfügung und übernimmt auch keine Gewährleistung bezüglich der Vollständigkeit oder Richtigkeit der Übersetzung.
