Zeichen in Excel-Zellen per VBA-Makro austauschen

31. August 2011
Martin Althaus Von Martin Althaus, Excel, Office ...

Wie Sie alle Zeichen in einer Tabelle durch andere Zeichen ersetzen

Kennen Sie das? Daten, die Sie von Geschäftspartnern oder nach dem Datenimport erhalten, beinhalten falsche Zeichen. So kann es sein, dass überall dort, wo ein Dezimalkomma notwendig ist, ein Dezimalpunkt auftaucht. Oder es kann passieren, dass Schrägstriche zwischen einzelnen Ziffern auftreten.

Über das Kommando ERSETZEN können Sie diese Zeichen finden und durch andere Zeichen ersetzen. Das macht aber viel Mühe, wenn Sie diesen Vorgang häufiger ausführen möchten. Zeit sparen Sie, indem Sie die Aufgabe per Makro durchführen. Dieses Makro können Sie künftig in der gleichen Situation schnell und einfach wieder aufrufen.

Um das Makro in eine leere Arbeitsmappe einzubinden, öffnen Sie in allen Excel-Versionen über die Tastenkombination STRG N eine neue Arbeitsmappe. Drücken Sie anschließend die Tastenkombination ALT F11, um den VBA-Editor aufzurufen. Wählen Sie dort das Kommando EINFÜGEN - MODUL. Geben Sie anschließend das folgende Makro ein:

Sub ZeichenTauschen()
On Error Resume Next
Dim Zelle As Range
Dim SuchenNach As String
Dim ErsetzenDurch As String
SuchenNach = "."
ErsetzenDurch = ","
For Each Zelle In ActiveSheet.UsedRange
 Zelle.Value = Application.Substitute(Zelle.Value, SuchenNach, ErsetzenDurch)
Next Zelle
On Error GoTo 0
End Sub

Das Makro ersetzt in allen verwendeten Zellen des aktiven Tabellenblatts den Dezimalpunkt durch ein Dezimalkomma. Um das Makro aufzurufen, aktivieren Sie das gewünschte Tabellenblatt, drücken die Tastenkombination ALT F8 und wählen das Makro ZEICHENTAUSCHEN aus.

Um zu steuern, welche Inhalte gesucht und ersetzt werden, passen Sie die beiden Variablen SUCHENNACH und ERSETZENDURCH im Makro an.

Werden Sie mit unseren Tipps zum Excel-Profi!

Jetzt gratis per E-Mail

  • Excel Vorlagen zum Sofort-Download
  • Geprüfte Vorlagen zum Sofort-Einsatz
  • Gratis Makros & Add-Ins im Downloadcenter
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"