Eine Microsoft Excel 2000-Version dieses Artikels finden Sie unter 213649.
Informationen zu Microsoft Excel 98 und früheren Versionen dieses Artikels finden Sie unter 141094.
Zusammenfassung
Obwohl Microsoft Excel Funktionen bietet, die die Groß-/Kleinschreibung von Text ändern, kann es vorkommen, dass Sie die Groß-/Kleinschreibung von Text programmgesteuert ändern möchten.Dieser Artikel enthält drei Microsoft Visual Basic for Applications-Beispielmakros (Sub-Prozeduren), mit denen Sie die Buchstaben in einer Textzeichenfolge in Groß-, Klein- oder Titelbuchstaben (der erste Buchstabe in jedem Wort wird groß geschrieben) ändern können. Diese Aktionen ähneln den Excel-Funktionen =UPPER(), =LOWER() und =PROPER().
Weitere Informationen
Microsoft stellt Programmierbeispiele nur zur Veranschaulichung bereit, ohne ausdrückliche oder implizite Garantie. Dies umfasst, ist aber nicht beschränkt auf die impliziten Gewährleistungen der Handelsüblichkeit oder Eignung für einen bestimmten Zweck. In diesem Artikel wird davon ausgegangen, dass Sie mit der Programmiersprache, die gezeigt wird, und mit den Tools vertraut sind, die zum Erstellen und Debuggen von Prozeduren verwendet werden. Microsoft-Supporttechniker können ihnen helfen, die Funktionalität eines bestimmten Verfahrens zu erklären, aber sie werden diese Beispiele nicht ändern, um zusätzliche Funktionen bereitzustellen oder Verfahren zu erstellen, die Ihren spezifischen Anforderungen entsprechen.
Makro zum Ändern des gesamten Texts in einem Bereich in Großbuchstaben
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) NextEnd Sub
Makro zum Ändern des gesamten Texts in einem Bereich in Kleinbuchstaben
Sub Lowercase() ' Loop to cycle through each cell in the specified range. For Each x In Range("B1:B5") x.Value = LCase(x.Value) NextEnd Sub
Makro zum Ändern des gesamten Texts in einem Zellbereich in Anfangsbuchstaben
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) NextEnd Sub
Testen der Beispielmakros
Führen Sie die folgenden Schritte aus, um die Beispielmakros zu testen:
-
In derselben Arbeitsmappe, die die Makros enthält, Geben Sie 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: Diese Beispieldaten enthalten In verschiedenen Fällen formatierten Text, den Sie verwenden können, um die Funktionsweise der einzelnen Makros zu überprüfen.
-
Führen Sie die einzelnen Makros aus.
Der Text in dem im Makro angegebenen Bereich (in der Zeile mit dem Text "For each x in ...") wird in Großbuchstaben, Kleinbuchstaben oder Anfangsbuchstaben formatiert.
Informationsquellen
Weitere Informationen zur Verwendung von Arbeitsblattfunktionen zum Ändern der Groß-/Kleinschreibung von Text finden Sie in der Microsoft Knowledge Base im folgenden Artikel:
263580 So ändern Sie die Groß-/Kleinschreibung von Text in ExcelWeitere Informationen zum Abrufen von Hilfe zu Visual Basic for Applications finden Sie in der Microsoft Knowledge Base im folgenden Artikel:
305326 Liste der Programmierressourcen für Visual Basic for Applications
