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.
Die besten Produktivitätstools für das Büro
Stärken Sie Ihre Excel-Fähigkeiten mit Kutools für Excel und genießen Sie Effizienz wie nie zuvor. Kutools für Excel bietet mehr als300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen...
Office Tab bringt die Tab-Oberfläche in Office und macht Ihre Arbeit wesentlich einfacher
- Aktivieren Sie die Tabulator-Bearbeitung und das Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Tabs innerhalb desselben Fensters, statt in neuen Einzelfenstern.
- Steigert Ihre Produktivität um50 % und reduziert hunderte Mausklicks täglich!
Alle Kutools-Add-Ins. Ein Installationspaket
Das Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro und ist ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- All-in-One-Paket — Add-Ins für Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Ein Installationspaket, eine Lizenz — in wenigen Minuten einsatzbereit (MSI-kompatibel)
- Besser gemeinsam — optimierte Produktivität in allen Office-Anwendungen
- 30 Tage kostenlos testen — keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis — günstiger als Einzelkauf der Add-Ins