VBA, Makros, Tabelle, Tastenkombination
© AKS - Adobe Stock

Zeichen in Excel-Zellen per VBA-Makro austauschen

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.