Kommentare zu: Mehrfach Suchen und Ersetzen

Von: Basti

Basti — Sun, 24 Jul 2011 16:10:20 +0000

Hallo,

Suchen&Ersetzen funktioniert sehr gut. Danke für diese Hilfe. Ich habe jetzt versucht eine größere Anzahl zu Suchen und zu Ersetzen. Alles was ich eingegeben habe (zum Suchen&Ersetzen) wird vorher in rot angezeigt/geschrieben. Leider bekomme ich dann folgenden Fehler: “Fehler beim Kompilieren: Syntaxfehler.”

Wenn ich auf Debuggen gehe zeigt er mir “Sub mehrfachSuchenUndErsetzen()” gelb hinterlegt an. Was muss ich ändern, damit diese größere Anzahl bearbeitet werden kann?

Danke Basti

Von: Eike

Eike — Mon, 07 Mar 2011 20:00:22 +0000

Hallo Bernd,

ich habe der Antwort einen eigenen Artikel gewidmet, sonst wäre der Code hier im Kommentar kaum leserlich. Der neue Artikel ist hier zu finden: http://www.profi-excel.de/vba_makros/mehrfach-suchen-und-ersetzen-mit-statistik.htm

Von: Profi-Excel.de » Excel und VBA » Mehrfach Suchen und Ersetzen mit Statistik

Mon, 07 Mar 2011 19:57:46 +0000

[...] "Suchen und Ersetzen" hat bereits in diesem Artikel viel Interesse erzeugt. Die Frage nach statistischen Informationen ließ sich aber nicht so einfach [...]

Von: Bernd

Bernd — Mon, 07 Mar 2011 08:35:21 +0000

Die Ersetzungen funktionieren super. Ich möchte gerne auch ausgegeben haben, wieviele Ersetzungen durchgeführt wurden. Ich nutze die Funktion zur Analyse der Datenqualität vor einem Import in eine Datenbank. Es ist daher interessant zu wissen, in welchen Quelltabellen die meisten Ersetzungen/Bereinigungen nötig waren. Wie komme ich an die Ausgabe, die beim manuellen Suchen/erstezen am Ende angezeigt wird?

Von: Eike

Eike — Tue, 18 Jan 2011 18:44:16 +0000

Hallo Tim,

Du musst nur den Suchbereich anpassen: Anstelle von UserRange verwendest Du z.B. die Spalten B und C

‘Spalten B und C
Call ActiveSheet.Range(“B:C”).Replace(suchArray(k), _
ersetzArray(k), _
, _
, _
False)

Von: Tim

Tim — Tue, 18 Jan 2011 11:24:49 +0000

Hallo,

super. Alles Funktioniert. Wie kann ich die Suche auf zwei Spalten beschränken?

Danke & Gruß

Von: Eike

Eike — Thu, 16 Sep 2010 18:09:18 +0000

Hallo Menk,

schau mal in die Hilfe von VBA: Das dritte Argument hilft dir weiter.
LookAt Optional Variant. Kann eine der folgenden XlLookAt-Konstanten sein: xlWhole or xlPart.

Der Code muss dann entsprechend geändert werden:

Call ActiveSheet.UsedRange.Replace(suchArray(k), _
ersetzArray(k), _
xlWhole, _
, _
False)

Von: Menk

Menk — Thu, 16 Sep 2010 17:08:54 +0000

Hallo,

das Makro funktioniert wunderbar. Vielen Dank.
Gibt es die Möglichkeit die Applikation “Gesamten Zellinhalt vergleichen”
in das Makro einzufügen?
Habe das Problem z.B. wenn ich nach “1″ bei folgenden Zahlen 1,11,21,31…suche.

Gruß

Von: Blockout

Blockout — Thu, 03 Jun 2010 08:35:12 +0000

Hallo,

ich habe in einer Exceldatei mehrere Tabellenblätter mit englischen Begriffen, die ich ins deutsche übersetzen will. Hierfür habe ich ein Tabellenblatt “Translation” hinzugefügt, in dem in Spalte A jeweils das englische und in Spalte B das passende deutsche Wort stehen.

Wie müßte das VBA-Makro dann aussehen? Da es über 100 S&E-Paare sind, möchte ich diese nicht manuell in das Array reinschreiben, das soll das Makro selbständig dem Blatt “Translation” entnehmen. Und es soll nicht nur in einem Tabellenblatt sondern in der gesamten Mappe gesucht und ersetzt werden.

Gruß Blockout

Von: Eike

Eike — Fri, 21 May 2010 19:25:58 +0000

Hallo Peter,

in diesem Fall geht das einfach mit dem Platzhalter “?” für ein Zeichen:
suchArray = Array(“R0?”)
ersetzArray = Array(“MRF”)