|
| |
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 |
 |
|
TOP! Unser Nr. 1 
Neu! sevDataGrid 3.0
Mehrspaltige Listen, mit oder ohne DB-Anbindung. Autom. Sortierung, Editieren von Spalteninhalten oder das interaktive Hinzufügen von Datenzeilen sind ebenso möglich wie das Erstellen eines Web-Reports. Weitere InfosTipp des Monats TOP Entwickler-Paket 
TOP-Preis!!
Mit der Developer CD erhalten Sie insgesamt 24 Entwickler- komponenten und Windows-DLLs. Die Einzelkomponenten haben einen Gesamtwert von 1866.50 EUR...
Jetzt nur 979,00 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
|
|
Oktober 2026
Sie sind aktuell nicht angemeldet.