Wie ersetzt man in Excel nicht leere Zellen durch einen bestimmten Wert?

In Excel können wir schnell und einfach eine Auswahl mit einem bestimmten Wert ersetzen oder füllen, indem wir die Tastenkombination Strg + Enter drücken. Aber wissen Sie, wie Sie nur die nicht leeren Zellen in einem ausgewählten Bereich, der sowohl leere Zellen als auch Zellen mit Werten enthält, durch einen bestimmten Wert ersetzen können?

Nicht leere Zellen mit einem bestimmten Wert mithilfe der Funktion „Suchen und Ersetzen“ ersetzen

Nicht leere Zellen mit einem bestimmten Wert mithilfe von VBA-Code ersetzen

Nicht leere Zellen mit einem bestimmten Wert mithilfe der Funktion „Suchen und Ersetzen“ ersetzen

In Excel kann uns die Funktion „Suchen und Ersetzen“ dabei helfen, alle nicht leeren Zellen zu finden und sie dann nach Belieben durch einen bestimmten Wert zu ersetzen.

1. Wählen Sie den Datenbereich aus, in dem Sie nur die Zellen mit Werten ersetzen möchten.

2. Drücken Sie dann Strg + H, um das Dialogfeld „Suchen und Ersetzen“ zu öffnen. Im Dialogfeld „Suchen und Ersetzen“ unter dem Reiter Ersetzen geben Sie * im Feld Suchen nach ein und tragen Sie den benötigten Wert in das Textfeld Ersetzen durch ein, siehe Screenshot:

3. Klicken Sie dann auf die Schaltfläche Alle ersetzen, und ein Dialogfeld erscheint, das Ihnen die Anzahl der zu ersetzenden Zellen mitteilt. Schließen Sie die Dialogfelder, und alle Werte im ausgewählten Bereich wurden durch Ihre angegebenen Daten ersetzt, siehe Screenshots:

Nicht leere Zellen mit einem bestimmten Wert mithilfe von VBA-Code ersetzen

Mit dem folgenden VBA-Code können Sie auch alle Dateneinträge auf einmal durch die gewünschten Werte ersetzen. Gehen Sie dazu wie folgt vor:

1. Halten Sie die Tasten ALT + F11 gedrückt, um das Fenster Microsoft Visual Basic for Applications zu öffnen.

2. Klicken Sie auf Einfügen > Modul, und fügen Sie den folgenden Code im Modulfenster ein.

VBA-Code: Nicht leere Zellen mit einem bestimmten Wert ersetzen

Sub ReplaceNumbers()
'Update 20141111
    Dim SRg As Range
    Dim Rg As Range
    Dim Str As Variant
    On Error Resume Next
    Set SRg = Application.Selection
    Set SRg = Application.InputBox("select range:", "Kutools for Excel", SRg.Address, , , , , 8)
    If Err <> 0 Then Exit Sub
    Str = Application.InputBox("replace with:", "Kutools for Excel", Str)
    If Str = False Then Exit Sub
    For Each Rg In SRg
        If Rg <> "" Then Rg = Str
    Next
End Sub

3. Drücken Sie dann die Taste F5, um diesen Code auszuführen, und ein Hinweisfenster wird angezeigt, das Sie auffordert, einen Bereich auszuwählen, in dem Sie die Daten ersetzen möchten, siehe Screenshot:

4. Klicken Sie dann auf OK, und geben Sie Ihren spezifischen Wert in das nächste Eingabefeld ein, siehe Screenshot:

5. Klicken Sie dann auf OK, und alle Werte in Ihrem ausgewählten Bereich werden sofort durch die bestimmten Daten ersetzt.