Wie kann man alle leeren Zellen mit einer bestimmten Zahl oder einem bestimmten Text in Excel finden und ersetzen?

Für einen Zellbereich, der einige leere Zellen enthält, müssen Sie möglicherweise diese leeren Zellen finden und durch bestimmte Inhalte ersetzen. In diesem Artikel bieten wir Ihnen drei Methoden an.

Finden und Ersetzen aller leeren Zellen mit der Funktion „Suchen und Ersetzen“
Finden und Ersetzen aller leeren Zellen mit VBA-Code
Einfaches Auffüllen aller leerer Zellen in einem Bereich mit Kutools für Excel

Finden und Ersetzen aller leeren Zellen mit der Funktion „Suchen und Ersetzen“

Sie können die Funktion „Suchen und Ersetzen“ verwenden, um alle leeren Zellen in Excel durch bestimmte Inhalte zu ersetzen. Bitte gehen Sie wie folgt vor.

1. Wählen Sie den Bereich mit den leeren Zellen aus, die Sie durch bestimmte Inhalte ersetzen möchten, und drücken Sie dann gleichzeitig die Tasten Strg + H, um das Dialogfeld „Suchen und Ersetzen“ zu öffnen.

2. Im erscheinenden Dialogfeld „Suchen und Ersetzen“ lassen Sie unter dem Reiter „Ersetzen“ das Feld „Suchen nach“ leer, geben Sie den gewünschten Text, mit dem Sie die leeren Zellen ersetzen möchten, in das Feld „Ersetzen durch“ ein und klicken Sie abschließend auf die Schaltfläche „Alle ersetzen“. Siehe Screenshot:

3. Klicken Sie im folgenden Dialogfeld auf die Schaltfläche „OK“.

Dann werden alle leeren Zellen im ausgewählten Bereich durch bestimmte Inhalte ersetzt.

Finden und Ersetzen aller leeren Zellen mit VBA-Code

Sie können auch die VBA-Methode anwenden, um alle leeren Zellen in einem Bereich durch bestimmte Inhalte zu ersetzen. Bitte gehen Sie wie folgt vor.

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

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

VBA-Code: Leere Zellen durch bestimmte Inhalte ersetzen

Sub Replace_Blanks()
	Dim xStr As String
	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  = xRg.SpecialCells(xlBlanks)
	If (Err <> 0) Or (xRg Is Nothing) Then
		MsgBox "No blank cells found", , "Kutools for Excel"
		Exit Sub
		End If
		xStr = Application.InputBox("Replace blank cells with what?", "Kutools for Excel")
		xUpdate = Application.ScreenUpdating
		Application.ScreenUpdating = False
		For Each xCell In xRg
			xCell.Formula = xStr
		Next
		Application.ScreenUpdating = xUpdate
	End Sub

3. Drücken Sie die Taste F5, um den Code auszuführen. Im Dialogfeld Kutools für Excel wählen Sie den Bereich mit den leeren Zellen aus, die Sie finden und ersetzen möchten, und klicken Sie dann auf die Schaltfläche „OK“.

4. Geben Sie in einem weiteren Dialogfeld von Kutools für Excel den gewünschten Inhalt in das Textfeld ein und klicken Sie auf die Schaltfläche „OK“. Siehe Screenshot:

Dann werden alle leeren Zellen sofort durch den oben angegebenen Text ersetzt.

Hinweis: Wenn der ausgewählte Bereich keine leeren Zellen enthält, erhalten Sie das folgende Dialogfeld.

Einfaches Auffüllen aller leerer Zellen in einem Bereich mit Kutools für Excel

Das Hilfsprogramm „Leere Zellen füllen“ von Kutools für Excel hilft Ihnen, alle leeren Zellen einfach mit bestimmten Inhalten zu füllen. Bitte gehen Sie wie folgt vor.

1. Wählen Sie den Bereich mit den leeren Zellen aus, die Sie mit bestimmten Inhalten füllen möchten, und klicken Sie dann auf Kutools > Einfügen > Leere Zellen füllen.

2. Aktivieren Sie im Dialogfeld „Leere Zellen füllen“ die Option „Fester Wert“ im Abschnitt „Füllmethode“, und geben Sie dann den gewünschten Inhalt in das Feld „Füllwert“ ein. Klicken Sie abschließend auf die Schaltfläche „OK“.

Dann werden alle leeren Zellen im ausgewählten Bereich wie im folgenden Screenshot gezeigt mit dem Inhalt gefüllt.

Hinweis: Mit diesem Hilfsprogramm können Sie auch leere Zellen basierend auf Werten auffüllen und Lücken mit linearen Werten füllen.