Zeichen ersetzen

[wolfson]

Liebe Kenner, eine Datei mit einer Spalte voller Daten. Jede Zelle der Spalte enthält jeweils ein Symbol, vorne und hinten mit anderen Zeichen umstanden.
Wie lassen sich die Zeichen in jeder Zelle vor diesem Symbol durch einen bestimmte Zeichengruppe automatisch ersetzt werden?

[WillWissen]

Hi,

Strg-H: Suche dein geheimnisvolles Zeichen, ersetze alle mit der gewünschten Zahl.

[wolfson]

Hi,

Strg-H: Suche dein geheimnisvolles Zeichen, ersetze alle mit der gewünschten Zahl.

A u t o m a t i s c h !

[MisterBurns]

A u t o m a t i s c h !

Zeichne den von Günter beschriebenen Vorgang mit dem Makrorekorder auf.

[Cadmus]

Hallo Wolfson,
wenn du hier konkrete Hilfe erwartest, musst du schon konkrete Fakten liefern. "eine Datei mit einer Spalte voller Daten" ist keine Beschreibung, die zu einer Lösung führt. Auch die übrige Beschreibung ist nicht zielführend.

Hilfreich wäre eine, ggf. anonymisierte, Beispieldatei, die vom Aufbau dem Original entspricht und zunächst händisch eingetragenen Wunschergebnis.

https://www.clever-excel-forum.de/Thread...ng-stellen

[RPP63]

Moin!

Wie lassen sich die Zeichen in jeder Zelle vor diesem Symbol durch einen bestimmte Zeichengruppe automatisch ersetzt werden?

Da fehlt in der Replace-Methode noch der Asterisk *.
Das ominöse Symbol ist die Pipe |

Als Beispiel im Modul der Tabelle:

Private Sub Worksheet_Change(ByVal Target As Range)
Const Symbol$ = "|"
Const Zeichenfolge$ = "RPP63" & Symbol
Application.EnableEvents = False
Target.Replace "*" & Symbol, Zeichenfolge, xlPart
Application.EnableEvents = True
End Sub

Gruß Ralf

[wolfson]

Zeichne den von Günter beschriebenen Vorgang mit dem Makrorekorder auf.

Gute Idee, danke!