Wie ersetzt man alle Zahlen in Zellen durch „x“ in Excel?
In Excel möchten Sie Zahlen in Zellen möglicherweise durch „x“ ersetzen, um sensible Daten zu maskieren, die Formatierung zu vereinheitlichen, Berechnungen zu unterbinden oder fehlende bzw. unvollständige Werte kenntlich zu machen. Dieser Artikel führt Sie Schritt für Schritt durch eine einfache VBA-Code-Lösung, mit der Sie dies schnell und problemlos umsetzen können.
Ersetzen Sie alle Zahlen in Zellen durch „x“ mithilfe von VBA-Code
Ersetzen Sie alle Zahlen in Zellen durch „x“ mithilfe von VBA-Code
Der folgende VBA-Code ersetzt alle Zahlen in den ausgewählten Zellen durch „x“ – so geht’s:
1. Markieren Sie die Zellen mit den Zahlen, die Sie durch x ersetzen möchten, und drücken Sie anschließend 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. Kopieren Sie anschließend den folgenden VBA-Code in das Code-Fenster.
VBA-Code: Ersetzen Sie alle Zahlen Ausgewählter Bereich durch „x“ in Excel
Sub ReplaceNoX()
Dim cell As Object
Dim val As String
Dim i As Integer
Dim n As String
Application.ScreenUpdating = False
For Each cell In Selection
If IsNumeric(cell.Value) Then
val = cell.Text
For i = 1 To Len(val)
n = Mid(val, i, 1)
If "0" <= n And n <= "9" Then
Mid(val, i, 1) = "x"
End If
Next
cell.Formula = val
End If
Next
Application.ScreenUpdating = True
End Sub3. Drücken Sie die Taste F5, um den Code auszuführen. Anschließend sehen Sie, dass alle Zahlen in den ausgewählten Zellen durch „x“ ersetzt wurden – wie im folgenden Screenshot dargestellt.
Verwandte Artikel:
- Wie füllt man mithilfe von „Suchen und Ersetzen“ alle leeren Zellen in Excel mit einer bestimmten Zahl oder einem bestimmten Text aus?
- Wie ersetzt man Kommas durch Zeilenumbrüche (mit Alt + Enter) in Excel-Zellen?
- Wie ersetzt man Zeilenumbrüche in Excel durch „<br>“?
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor.Kutools für Excel bietet über 300 erweiterte Funktionen zur Steigerung der Produktivität und Zeit sparen.Klicken Sie hier, um die Funktion zu erhalten, die Sie am dringendsten benötigen...
Office Tab bringt eine tabbasierte Oberfläche in Office und macht Ihre Arbeit viel einfacher
- Aktivieren Sie tabbasiertes Bearbeiten und Lesen in Word, Excel, PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters – statt jedes in einem separaten Fenster zu öffnen.
- Steigert Ihre Produktivität um 50 % und erspart Ihnen täglich Hunderte von Mausklicks!
Alle Kutools-Add-Ins – ein Installationsprogramm
Kutools for Office-Paket bündelt Add-Ins für Excel, Word, Outlook und PowerPoint sowie Office Tab Pro – ideal für Teams, die mit mehreren Office-Anwendungen arbeiten.
- Alles-in-einem-Paket— Add-Ins für Excel, Word, Outlook & PowerPoint sowie Office Tab Pro
- Ein Installationsprogramm, eine Lizenz— innerhalb weniger Minuten eingerichtet (MSI-fähig)
- Funktioniert besser zusammen— optimierte Produktivität über alle Office-Anwendungen hinweg
- 30-tägige Vollversion zum Testen— keine Registrierung, keine Kreditkarte erforderlich
- Bestes Preis-Leistungs-Verhältnis— sparen Sie im Vergleich zum Kauf einzelner Add-Ins