Wie kann man in Excel-Zellen nur den ersten Buchstaben groß schreiben?

Wenn Sie eine Liste von Namen in Großbuchstaben haben und diese so ändern müssen, dass nur der erste Buchstabe jedes Wortes großgeschrieben wird, bietet Excel mehrere Lösungen. Dieser Artikel erklärt drei Methoden, um diese Aufgabe zu bewältigen: mit Formeln, VBA oder dem Kutools für Excel-Add-in.

Nur den ersten Buchstaben in einer Excel-Zelle groß schreiben mit Formel
Nur den ersten Buchstaben in Excel-Zellen groß schreiben mit VBA-Code
Nur den ersten Buchstaben in Excel-Zellen in der Masse mit Kutools für Excel groß schreiben

Nur den ersten Buchstaben in Excel-Zellen groß schreiben mit Formel

Sie können alle Großbuchstaben in einer Liste so umwandeln, dass nur der erste Buchstabe groß geschrieben wird. Gehen Sie wie folgt vor.

1. Wählen Sie eine leere Zelle (z. B. Zelle C2) für das konvertierte Ergebnis aus und geben Sie die Formel =PROPER(B2) in die Formelleiste ein, und drücken Sie dann die Eingabetaste.

Der großgeschriebene Name wird sofort im Hilfsspalte in den richtigen Fall (erster Buchstabe groß) konvertiert.

2. Wenn Zelle C2 ausgewählt ist, ziehen Sie das Ausfüllkästchen nach unten, bis Sie die Zelle erreichen, in der Sie den Namen ändern möchten.

Hinweis: Ändern Sie in der Formel den Zellbezug entsprechend Ihrer Liste.

Nur den ersten Buchstaben in Excel-Zellen groß schreiben mit VBA-Code

Darüber hinaus können Sie den folgenden VBA-Code ausführen, um alle großgeschriebenen Namen in einer Liste in den richtigen Fall umzuwandeln.

1. Drücken Sie gleichzeitig die Tasten Alt + F11, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie im Fenster Microsoft Visual Basic for Applications auf Einfügen > Modul, und kopieren und fügen Sie dann den folgenden VBA-Code in das Modulfenster ein.

VBA-Code: Konvertieren Sie alle Großbuchstaben so, dass nur der erste Buchstabe groß geschrieben wird

Sub Proper_Case()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	On Error Resume Next
	xAddress                    = Application.ActiveWindow.RangeSelection.Address
	Set xRg                     = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg                     = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		xUpdate                    = Application.ScreenUpdating
		Application.ScreenUpdating = False
		For Each xCell In xRg.Cells
			If xCell.HasFormula = False Then
				xCell.Value = Application.WorksheetFunction.Proper(xCell.Value)
			End If
		Next
		Application.ScreenUpdating = xUpdate
	End Sub

3. Klicken Sie auf die Taste F5 oder klicken Sie auf die Schaltfläche Ausführen, um diesen Code auszuführen. Im erscheinenden Dialogfeld von Kutools für Excel wählen Sie den Bereich aus, den Sie konvertieren möchten, und klicken Sie dann auf die Schaltfläche OK.

Alle großgeschriebenen Namen im ausgewählten Bereich werden sofort in den richtigen Fall umgewandelt.

Nur den ersten Buchstaben in Excel-Zellen in der Masse mit Kutools für Excel groß schreiben

Dieser Abschnitt zeigt Ihnen das Hilfsprogramm 'Fall ändern' von Kutools für Excel, um alle Großbuchstaben mit nur wenigen Klicks in den richtigen Fall umzuwandeln.

1. Wählen Sie die Liste aus, deren Schreibweise Sie ändern möchten, und klicken Sie dann auf Kutools > Text > Fall ändern. Siehe Screenshot:

2. Wählen Sie im Dialogfeld 'Fall ändern' bitte die Option 'Richtiger Fall' aus und klicken Sie dann auf die Schaltfläche OK.

Alle großgeschriebenen Namen in der ausgewählten Liste werden sofort in den richtigen Fall umgewandelt.