Office: (Office 2010) Suchen/ersetzen per VBA

Frage, kann man per VBA Teile des Feldinhaltes suchen und ersetzen?
Ich stelle mir das so vor:


suche (!meinFeld xxxxx
ersetze xxxxx yyyyy

oder so.

Geht das? Habe im Netz keinen Code finden können, der dazu passen könnte.

Martin

:)

 

replace(Me!MeinTextfeld, "xxx", "yyy")

 

Hallo Martin,

suche mal in der Hilfe unter REPLACE, deutsch ERSETZEN.

 

Danke Machtel, aber in der Hilfe steht leider nicht genug.

Danke Achtelpepetit, wenn ich eine Zeile wie

HTML:

"Replace(me.info1, "re", "bödlödsin") "

eingebe, kommt die Fehlermeldung "Erwate =" Was kommt denn dann? das Prgramm
Wenn ich

HTML:

 "Replace(me.info1, "re", "bödlödsin") = me.Info1"

setze, will das man den Wert Variant zuweist?

 

Hallo,

Du möchtest im Feld info1 in Deinem Formular das Wort re durch bödlödsin ersetzen, korrekt?

Das sollte wie folgt gehen:

Code:

Also ohne Anführungszeichen davor oder danach und auch nichts mit einem Gleichzeichen.

 

me.info1 = Replace(me.info1, "re", "bödlödsin")

 

Wenn sich die Suche auch auf das Feld erstreckt, wo xxxxx drinnen steht, müsste das Ganze innerhalb einer Abfrage angewandt werden. Momentan wird ja nur ein Feld des aktuellen Datensatzes im Formular gecheckt - oder so.

 

Leider, Leider
Ich möchte die Anweisung natürlich in einer Schleife unterbringen. Aber bei

HTML:

Replace(me.info1, "re", "bödlödsin") as string 

kommt die Fehlermeldung "Anweisung außerhalb eines Type-Blocks ungültig". Immerhin meckert er mit dem Zusatz "as String" nicht mehr rum.

Je nachdem wo ich die Anwendung hinsetze kommt auch die Meldung ich dürfe dem Feld keinen Wert zuweisen.

Schade.

Martin

 

Vielleicht solltest Du mal beschreiben, was Du wo machen willst. Eine Abfrage? Ein Formular? Worum geht es genau?

 

Wie man Anweisungen schreibt, das heißt Syntax. Diese Regeln müssen zwingend eingehalten werden. Beliebiges probeweises Zusammensetzen führt da selten zu einem Erfolg.
Code:

Was hat dieser Versuch mit einer Schleife zu tun?
Replace ist eine VBA-Funktion mit einem definierten Datentyp des Rückgabewertes (nachzulesen u.a. in der Hilfe) und lässt sich da auf "Versuche" nicht ein.

 

Wenn Du das Ergebnis der Replace() Funktion direkt in ein Steuerelement ausgegeben haben möchtest, dann gehört vor den Funktionsaufruf ein '='.
Code:

 

Also Achtelpetit, was will ich machen.
Ich habe eine Tabelle mit diversen Felder. U.a. das Feld INFO1. Dieses Feld lese ich aus einer "fremden" Tabelle (Bankprogramm) aus. Darin haben die Kunden die Rechnungsnummern eingegeben, für die die Zahlungen bestimmt sind. Um diese vernünftig auslesen zu können, will ich die Feldinhalte anpassen. So schreibt ein Kunde "Re.Nr.1001157". Der nächst schreibt "RN 1001158" dann "NR 1001153" usw.
Nun will ich aus "Re.Nr." aus "RN" oder "NR" einen klaren Begriff erstellen, um dann die Nummern auslesen zu können. (Es sind hier nur drei von ca. 20 verschienene Schreibweisen die ich angleichen möchte).

Ich muss also hingehen und die einzelnen Begriffe, die die Kunden in das Feld schreiben auslesen (suchen) und durch einen neuen (einheitlichen) Begriff ersetzen. Das alles müsste in eine Schleife, da die Begriffe in unzähligen Datensätzen vorkommen können. Ich lese in einem Zug ca. 100 Datensätze aus, da ich ja nicht jeden Tag dazu komme.

Martin

 

Richtig, und dafür gibt es eine Lösung:
Buchstaben und Zahlen eines Strings trennen

 

Das alles könnte zum Schluss so aussehen:

In ein allgemeines Modul:
Code:

Als Click-Ereignis Deines Aktualisierungs-Buttons:
Code:

Das Click-Ereignis ließe sich auch in einer Aktualisierungsabfrage erledigen:
Code:

 

Ja Maxel , aber leider auch nein.
Du gehst davon aus (ich habe mich da vielleicht nicht richtig ausgedrückt) dass die Zahlen, die in dem Feld steht immer die Rechnungsnummer ist. Leider schreiben die da auch mal die Kundennummer oder auch zwei Zahlen (zwei Rechnungsnummern oder Rechnungs- und Kundennummer) rein. Deshalb wollte ich ja die Texte soweit umformatieren, dass zum Schluss ein "Text" und eine "Zahl" zusammen gehören. Dadurch kann ich die Kundennummern rauslassen. Die Schlussabfrage wurde dann lauten

HTML:

If Left$(!Info1, 7) = "RE.-NR." Then
!opnum = GetRechnungsnummerAusTextDS7(!btext)

Martin