|
| |
Visual-Basic Einsteiger| Replace: Mehrere teils unbakannte Wörter suchen und durch 1 neues Wort ersetzen | |  | | Autor: Bernd.zi | | Datum: 28.05.24 16:54 |
| Ich brauche mal Hilfe. Im Archiv habe ich nichts gefunden, was mein Problem betrifft.
In einer Textbox oder Variablen soll gesucht werden nach "MUSTERMANN" oder "Mustermann GmbH" oder "MUSTERMANN-UND-CO" und alle sollen ersetzt werden durch "Mustermann". In VBA habe ich das so geschafft:
Cells.Replace What:="MUSTERMANN*", Replacement:="Mustermann", LookAt:=xlPart, _
........SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
........ReplaceFormat:=False
Ich habe es so versucht:
TextNEU = Replace(Text, "MUSTERMANN*", "Mustermann")
klappt aber nicht.
Im Voraus besten Dank für eure Hilfe. | |
| Re: Replace: Mehrere teils unbekannte Wörter suchen und durch 1 neues Wort ersetzen | | | | Autor: Kuno60 | | Datum: 28.05.24 22:16 |
| Zum Beispiel so:
If tx <> "Mustermann" AndAlso tx.StartsWith("MUSTERMANN") Then
tx = "Mustermann"
End If | |
| Re: Replace: Mehrere teils unbakannte Wörter suchen und durch 1 neues Wort ersetzen | | | | Autor: Bernd.zi | | Datum: 29.05.24 12:33 |
| | Hat geklappt. Vielen Dank. | |
| Re: Replace: Mehrere teils unbakannte Wörter suchen und durch 1 neues Wort ersetzen | | | | Autor: Bernd.zi | | Datum: 18.06.24 18:27 |
| @ Kuno60
Hallo Kuno,
kannst Du mir noch einmal Helfen.
Ich möchte insgesamt mehrere Begriffe umwandel. Stell Dir einen Kontoauszug vor und da stehen je Buchungsdatum bestimmte Begriffe wie z.B. "Miete" oder "Versicherung". Es ist aber nicht bekannt, welche Begriffen an welchem Buchungsdatum vorkommen.
Deinen Vorschlag habe ich übernommen und so abgewandelt:
....Private Sub Aufbereiten()
.......TextNEU = umwandeln_func(Text)
....End Sub
....Public Function umwandeln_func(ByRef Text3 As String) As String
........If Text <> "Amazon" AndAlso Text.StartsWith("AMAZON") Then
............umwandeln_func = "Amazon"
........End If ' Funktion gibt nicht für alle Codepfade einen Wert zurück.
#Disable Warning BC42105
....End Function
#Enable Warning BC42105
Wenn ein Begriff gefunden gefunden und umgewandelt wurde, soll die Suche abgebrochen werden.
Ich hatte überlegt, ob ich mit Select Case arbeiten könnte, aber dann müsste ich immer den komplette Text eintragen, obwohl z.B. ab Stelle 20 (je nach Begriff) irrelevant. AndAlso Text.StartsWith("AMAZON") weiß ich nicht, wie ich das mit Select Case kombinieren kann.
Vorab schon mal DANKE für Deine Hilfe. | |
| Re: Replace: Mehrere teils unbakannte Wörter suchen und durch 1 neues Wort ersetzen | | | | Autor: Kuno60 | | Datum: 19.06.24 15:57 |
| Hallo
wenn ich es richtig verstanden habe, willst du es so haben:
Sub Aufbereiten()
TextNEU = Umwandeln(Text)
End Sub
Function Umwandeln(tx As String) As String
If tx.ToUpper.Contains("AMAZON") AndAlso tx <> "Amazon" Then
Return "Amazon"
ElseIf tx.ToUpper.Contains("MIETE") AndAlso tx <> "Miete" Then
Return "Miete"
ElseIf tx.ToUpper.Contains("VERSICHERUNG") AndAlso tx <> "Versicherung" Then
Return "Versicherung"
Else
Return tx 'ohne Umwandlung
End If
End Function | |
| Re: Replace: Mehrere teils unbakannte Wörter suchen und durch 1 neues Wort ersetzen | | | | Autor: Bernd.zi | | Datum: 20.06.24 11:50 |
| | Ja genau. Dankeschön. | |
 | Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.
 Einloggen | Neu registrieren |
 |
|
sevGraph (VB/VBA) 
Grafische Auswertungen
Präsentieren Sie Ihre Daten mit wenig Aufwand in grafischer Form. sevGraph unterstützt hierbei Balken-, Linien- und Stapel-Diagramme (Stacked Bars), sowie 2D- und 3D-Tortendiagramme und arbeitet vollständig datenbankunabhängig! Weitere InfosTipp des Monats Access-Tools Vol.1 
Über 400 MByte Inhalt
Mehr als 250 Access-Beispiele, 25 Add-Ins und ActiveX-Komponenten, 16 VB-Projekt inkl. Source, mehr als 320 Tipps & Tricks für Access und VB
Nur 24,95 EURWeitere Infos
|
| |
|
Copyright ©2000-2026 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|
März 2026
Sie sind aktuell nicht angemeldet.