Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: in einem Bereich Zahlen durch X ersetzen

in einem Bereich Zahlen durch X ersetzen
03.04.2009 12:46:21
reinhardt
Hallo.
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.
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: in einem Bereich Zahlen durch X ersetzen
03.04.2009 12:57:19
D.Saster
Hallo,
Range("A1:D100").specialcells(2,1)="X"
Gruß
Dierk
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Zahlen durch X in Excel ersetzen


Schritt-für-Schritt-Anleitung

Um in Excel alle Zahlen in einem bestimmten Bereich durch ein "X" zu ersetzen, befolge diese Anleitung:

  1. Öffne Deine Excel-Datei.

  2. Drücke ALT + F11, um den VBA-Editor zu öffnen.

  3. Füge ein neues Modul hinzu:

    • Klicke auf „Einfügen“ und wähle „Modul“.
  4. 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
  5. Schließe den VBA-Editor und kehre zu Deiner Excel-Datei zurück.

  6. Führe das Makro aus:

    • Drücke 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.


Häufige Fehler und Lösungen

  • Fehler: „Laufzeitfehler 1004“

    • Lösung: Stelle sicher, dass der angegebene Bereich tatsächlich Zahlen enthält. Wenn keine Zahlen vorhanden sind, kann der Fehler auftreten.
  • Fehler: „Kein passender Zelltyp“

    • Lösung: Überprüfe, ob Du im richtigen Bereich arbeitest. Der Befehl SpecialCells funktioniert nur, wenn Zahlen vorhanden sind.

Alternative Methoden

Neben der VBA-Methode kannst Du auch die Suchen und Ersetzen Funktion in Excel nutzen:

  1. Markiere den Bereich (z.B. A1:D100).
  2. Drücke Strg + H, um das Suchen und Ersetzen-Fenster zu öffnen.
  3. Gib im Feld „Suchen nach“ eine Zahl ein (z.B. „1“) und im Feld „Ersetzen durch“ „X“.
  4. Klicke auf „Alle ersetzen“.

Diese Methode ist einfach, jedoch musst Du jede Zahl, die Du ersetzen möchtest, manuell eingeben.


Praktische Beispiele

  • Beispiel 1: Wenn Du alle „1“ in einem Bereich durch „X“ ersetzen möchtest, kannst Du die oben beschriebene Suchen und Ersetzen Methode verwenden.
  • Beispiel 2: Um alle Zahlen in einer Spalte zu ersetzen, nutze das VBA-Skript. Ändere nur den Bereich im Code, um andere Bereiche anzusprechen.

Tipps für Profis

  • Makros speichern: Wenn Du häufig mit dieser Funktion arbeitest, speichere die Excel-Datei als „Excel-Arbeitsmappe mit Makros“ (.xlsm), um das Makro jederzeit nutzen zu können.
  • Verwendung von Bedingungen: Du kannst den Code anpassen, um nur bestimmte Zahlen zu ersetzen, z.B. nur Zahlen größer als 10.

FAQ: Häufige Fragen

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.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige