Office: (Office 2010) Suchen/ersetzen per VBA

Maxel · 14. November 2010

Hm, Martin, das entspricht nicht unbedingt der Ausgangsfragestellung. *wink.gif*

Also, wenn es (nur ???) um Rechnungs- und Kundennummern geht:

Entweder Du gehst stillschweigend und vertrauend davon aus, dass das erste Zeichen "R" auf eine Rechnungs- und das erste Zeichen "K" auf eine Kundennummer hinweist. Dann kannst Du die Funktion dahingehend nutzen, die Zahl eindeutig einem Feld (Rechnungs- oder Kundennummer) zuzuweisen.

Im anderen Fall müsstest Du 2 Tabellen Rechnungsnummer_Bezeichnung und Kundennummer_Bezeichnung führen, in die Du mit Hilfe der Funktion alle führenden nichtnumerischen Bestandteile der Eingaben einpflegst und bei der Ersetzung auswertest. Das wäre eine Art "intelligente Historie". Aber wer weiß, welche Konstellationen von String und Zahl den Kunden noch einfallen? So dumm kann man wahrscheinlich gar nicht denken und entsprechend programmieren. *wink.gif*

Soll heißen: Hier ist möglicherweise Handarbeit angesagt. Oder Du lässt erst gar keine nichtnummerischen Eingaben zu und zwingst die Kunden dazu, ihre Eingaben eindeutig zu Rechnungs- oder Kundennummer zuzuordnen.

ebs17 · 14. November 2010

Deshalb wollte ich ja die Texte soweit umformatieren, dass zum Schluss ein "Text" und eine "Zahl" zusammen gehören.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das dürfte im Detail schwierig bis unmöglich automatisierbar sein, wenn die "Datenerzeuger" sich beliebig ausdrücken.

Hier könnte ein echter Fall für reguläre Ausdrücke vorliegen, insbesondere wenn sich konkrete Muster für die gesuchten Rechnungsnummern und Kundennummern benennen lassen, siehe "Intelligente" Textanalyse.

speedy_neu · 28. November 2014

Hallo zusammen,

hat jemand einen Tip wie man die Sache angeht, wenn HTML-Steuerzeichen enthalten sind?

In Tabelle1 im Feld1 bestimmte Inhalte ersetzen:
mit sql xxx durch < strong >xxx< /strong > ersetzen

Vielen Dank für eure Hilfe

Lanz Rudolf · 28. November 2014

Hallo
ich muss sagen das ich nicht verstehe was Du Wo durch was ersetzen willst *frown.gif*
alles was Dir gesagt wurde bis Jetzt solte Dir Helfen.
und dann kann man noch in der OH (Online/Hilfe)
über Replace Lesen.
z.B.
?Replace("hallo xxx bis dann xxx","xxx","") was es gibt kann ich Dir hier im Forum nicht Zeigen aber in vba gehts
ich ersetzt die kritischen Zeichen mit ~
?Replace("hallo xxx bis dann xxx","xxx","~yyy~") gibt hallo ~yyy~ bis dann ~yyy~

Kyron9000 · 28. November 2014

Hallo,

entweder...
Code:

Option Compare Database
Option Explicit

Public Function fncDelHTML(sText As String) As String
Dim i As Integer
For i = 1 To Len(sText)
If Mid$(sText, i, 1) = "" Then Exit Do
Loop
Else
fncDelHTML = fncDelHTML & Mid$(sText, i, 1)
End If
Next i
' Aufruf OhneHTML: fncDelHTML(DeinHTMLtxt)
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

oder ein Link...
vb@rchiv · Tipps & Tricks · HTML2Text

speedy_neu · 29. November 2014

Danke für eure Hilfe

Office: (Office 2010) Suchen/ersetzen per VBA

Suchen/ersetzen per VBA

Suchen/ersetzen per VBA

Suchen/ersetzen per VBA

Suchen/ersetzen per VBA - Similar Threads - ersetzen VBA

VBA: Platzhalter ersetzen und evtl. leere Zeile einfügen

Suchen/Ersetzen mit VBA: Windows-Nachfrage unterdrücken

Bilder ersetzen mittels vba

Text via VBA in Textdatei (txt) suchen und ersetzen

Sonderzeichen per VBA / SQL ersetzen

Excel VBA Daten Suchen und Ersetzen

Per VBA Formel kopieren und Bezug ersetzen