Ich möchte gerne im z.B. Range("A1:D100") alle darin befindlichen Zahlen durch ein "X" ersetzen.
Leere Zellen sollen leer bleiben.
Wie kann ich das schnell umsetzen?
Gruß Reinhardt.
Um in Excel alle Zahlen in einem bestimmten Bereich durch ein "X" zu ersetzen, befolge diese Anleitung:
Öffne Deine Excel-Datei.
Drücke ALT
+ F11
, um den VBA-Editor zu öffnen.
Füge ein neues Modul hinzu:
Gib den folgenden VBA-Code ein:
Sub ZahlenDurchXErsetzen()
Dim rng As Range
Set rng = Range("A1:D100")
On Error Resume Next
rng.SpecialCells(xlCellTypeConstants, xlNumbers).Value = "X"
On Error GoTo 0
End Sub
Schließe den VBA-Editor und kehre zu Deiner Excel-Datei zurück.
Führe das Makro aus:
ALT
+ F8
, wähle „ZahlenDurchXErsetzen“ und klicke auf „Ausführen“.Durch diesen Vorgang werden alle Zahlen im Bereich "A1:D100" durch "X" ersetzt, während leere Zellen unverändert bleiben.
Fehler: „Laufzeitfehler 1004“
Fehler: „Kein passender Zelltyp“
SpecialCells
funktioniert nur, wenn Zahlen vorhanden sind.Neben der VBA-Methode kannst Du auch die Suchen und Ersetzen Funktion in Excel nutzen:
Strg
+ H
, um das Suchen und Ersetzen-Fenster zu öffnen.Diese Methode ist einfach, jedoch musst Du jede Zahl, die Du ersetzen möchtest, manuell eingeben.
1. Kann ich auch Buchstaben durch X ersetzen?
Ja, Du kannst den Code anpassen, um auch Buchstaben zu ersetzen. Ändere xlNumbers
zu xlTextValues
im VBA-Code.
2. Wie kann ich leere Zellen in einem Bereich beibehalten?
Die oben beschriebene Methode sorgt bereits dafür, dass leere Zellen nicht verändert werden.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen