Wenn Sie Arbeitsblätter verwenden, die ziemlich viel Text enthalten, kann es vorkommen, dass Sie sich nach einer Funktion wie Word sehnen, die leicht zwischen Groß- und Kleinschreibung konvertiert werden kann. Excel enthält solche Funktionen, sie sind jedoch für die Verwendung in Makros vorgesehen, nicht als Befehle aus den Menüs.

Wenn Sie große Textbereiche schnell konvertieren möchten, ohne den Text in den Zellen des Bereichs erneut eingeben zu müssen, können Sie das folgende Makro verwenden:

Sub MakeUpper()

Dim MyText As String     Dim MyRange As Range     Dim CellCount As Integer

Set MyRange = ActiveSheet.Range(ActiveWindow.Selection.Address)

For CellCount = 1 To MyRange.Cells.Count         If Not MyRange.Cells(CellCount).HasFormula Then             MyText = MyRange.Cells(CellCount).Value             MyRange.Cells(CellCount).Value = UCase(MyText)

End If     Next CellCount End Sub

Dieses Makro durchläuft die Zellen in einem von Ihnen ausgewählten Bereich und konvertiert den Inhalt aller Zellen, die keine Formel enthalten, in Großbuchstaben. Sie können das Makro einfach so ändern, dass es in Kleinbuchstaben konvertiert wird, indem Sie die UCase-Funktion (die am unteren Rand des Makros verwendet wird) in LCase ändern. Eine weitere nützliche Änderung ist, wenn Sie die Groß- und Kleinschreibung anstelle von Groß- oder Kleinschreibung verwenden möchten. (Im Titelfall wird nur der erste Buchstabe jedes Wortes in Großbuchstaben geschrieben.) Ersetzen Sie dazu UCase (MyText) durch Application.Proper (MyText).

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (1970) gilt für Microsoft Excel 97, 2000, 2002 und 2003.