Haben Sie jemals Leute getroffen, die darauf bestehen, alles mit aktivierter Feststelltaste zu tippen? In einigen Arbeitsblättern ist dies möglicherweise nicht akzeptabel. Da sind Sie jedoch mit einem Arbeitsblatt voller Textzellen, die alle in Großbuchstaben geschrieben sind. Wie konvertiert man alles in Groß- und Kleinbuchstaben, ohne dass man es erneut eingeben muss?

Wenn Sie sich in dieser Situation befinden, kann das MakeProper-Makro den Trick für Sie tun. Es wird eine Reihe von Zellen untersucht, die Sie auswählen, und dann alle Konstanten in das konvertiert, was Excel als „richtigen Fall“ bezeichnet.

Dies bedeutet einfach, dass wenn Sie fertig sind, der erste Buchstabe jedes Wortes in einer Zelle in Großbuchstaben geschrieben wird. Der Rest wird in Kleinbuchstaben geschrieben. Wenn eine Zelle eine Formel enthält, wird diese ignoriert.

Sub MakeProper()

Dim rngSrc As Range     Dim lMax As Long, lCtr As Long

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

lMax = rngSrc.Cells.Count

For lCtr = 1 To lMax         If Not rngSrc.Cells(lCtr).HasFormula Then             rngSrc.Cells(lCtr) = Application.Proper(rngSrc.Cells(lCtr))

End If     Next lCtr End Sub

Wenn Sie lieber den gesamten Text im Bereich in Kleinbuchstaben konvertieren möchten, können Sie stattdessen das folgende Makro verwenden: MakeLower ().

Sub MakeLower()

Dim rngSrc As Range     Dim lMax As Long, lCtr As Long

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

lMax = rngSrc.Cells.Count

For lCtr = 1 To lMax         If Not rngSrc.Cells(lCtr).HasFormula Then             rngSrc.Cells(lCtr) = LCase(rngSrc.Cells(lCtr))

End If     Next lCtr End Sub

_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 (2026) gilt für Microsoft Excel 97, 2000, 2002 und 2003.