Suchen - Ersetzen

Bild

Betrifft: Suchen - Ersetzen
von: Wolfgang Lödorf
Geschrieben am: 17.04.2005 13:47:43
Hallo und guten Tag,
bei "suchen ersetzen" suche ich erneut nach einer Möglichkeit ohne die EXCEL-Funktion einsetzen zu müssen, da ich jeden Monat ein neues Adressverzeichnis mit über 600 Adressen in Englischer Schreibweise erhalte und die manuelle Umsetzung sehr arbeitsintensiv ist. In dem gelieferten Tabellenblatt sind alle Umlaute mit ae, ue, oe (Englische Schreibweise) geschrieben; ich benötige die Deutsche Schreibweise ä, ü, ö. Das gleiche gilt für ss ; ß (Strasse; Straße). Bei der EXCEL-Funktion "suchen ersetzen" werden natürlich gnadenlos alle Eingaben umgesetzt. Das will ich natürlich nicht, denn aus dem Ort Soest wird Söst, aus Coesfeld wird Cösfeld, aus Plauen wird Plaün ,aus Neuendorferstrasse wird Neündorferstrasse usw. Ich habe eine Hilfstabelle, wo alle Wörter in Englischer Schreibweise mit ae, ue usw. mit der Deutschen Schreibweise ä, ü usw. nebeneinander gestellt sind. Nur die zu ersetzenden Wörter aus der Hilfstabelle sollen in die Adressliste übernommen werden. Es sollte aber wie bei der EXCEL-Funktion "suchen ersetzen" im gesamten Tabellenblatt berücksichtigt werden, also auch mit Platzhalter* und auch nur Teilbereiche innerhalb eines Wortes sollten ersetzt werden.
Tabelle ist beigefügt.
Da ich nur über bescheidene EXCEL-Kenntnisse verfüge, bitte das Forum erneut um freundliche Hilfestellung. Meine Anfrage vom 15.04.05 wurde leider nur unbefriedigend beantwortet.
https://www.herber.de/bbs/user/21262.xls
Vielen Dank und
mit freundlichen Grüßen
Wolfgang

Bild

Betrifft: AW: Suchen - Ersetzen
von: Herbert
Geschrieben am: 17.04.2005 14:37:50
Hi,
Verständnisproblem, wenn du eine Referenzliste hast, warum dann nach Teilbegriffen ersetzen, stehen die auch als Teilbegiffe in der Liste?
mfg Herbert
Bild

Betrifft: AW: Suchen - Ersetzen
von: Wolfgang Lödorf
Geschrieben am: 17.04.2005 14:57:05
Hallo Herbert,
ich habe als Neuling ausversehen einen neuen Beitrag in das Forum gestellt.
Mfg
Wolfgang
Bild

Betrifft: AW: Suchen - Ersetzen
von: Herbert
Geschrieben am: 17.04.2005 15:05:17
Hi,
wenn du auf Rückfragen nicht antwortest, wird die Hilfe immer unbefiedigend ausfallen.
mfg Herbert
Bild

Betrifft: AW: Suchen - Ersetzen
von: Wolfgang Lödorf
Geschrieben am: 17.04.2005 15:07:18
Nochmals Hallo Herbert,
mein neuer Beitrag wurde wohl gelöscht.
Hier nochmal meine Antwort:
Auch Buchstaben wie ss, Teile eines Wortes wie ...fuehrung... aus Rueckfuehrungsstelle
sollen ersetzt werden. Meine Hilfstabelle muß ich dann natürlich vervollständigen.
MfG
Wolfgang
Bild

Betrifft: AW: Suchen - Ersetzen
von: RAnton
Geschrieben am: 17.04.2005 15:40:25
Hallo Wolfgang,
ich könnte dir eine einfache Lösung in VBA anbieten.
Du muß nur den unten eingefügten Code in das VBA Projekt in "Diese Arbeitsmappe" einfügen und starten. Schon wird alles ersetzt.

Sub ers()
    Dim z As Range
    Dim ws As Worksheet
        
    Set ws = Sheets("Adressliste")
    
    For Each z In Sheets("Hilfstabelle").Range(Range("A1"), Range("A1").End(xlDown))
        ws.Cells.Replace z.Value, z.Offset(, 1).Value
    Next
End Sub

Gruß Anton
Bild

Betrifft: AW: Suchen - Ersetzen
von: Wolfgang Lödorf
Geschrieben am: 17.04.2005 15:45:56
Hallo Anton,
vielen Dank für Deine Antwort.
Ich werde es gleich ausprobieren und melde mich noch einmal.
Viele Grüße
Wolfgang
Bild

Betrifft: AW: Suchen - Ersetzen
von: Wolfgang Lödorf
Geschrieben am: 17.04.2005 15:57:16
Nochmals Hallo,
beim Ausführen des VBA-Projektes wird "Laufzeitfehler 1004" angezeigt.
Da ich so gut wie keine Ahnung von VBA habe, gehe ich davon aus dass
ich einen Fehler mache.
MfG
Wolfgang
Bild

Betrifft: AW: Suchen - Ersetzen
von: RAnton
Geschrieben am: 17.04.2005 16:28:31
Hallo Wolfgang,
kann mir den Fehler zwar grad nicht erklären, aber versuchs mal mit diesem Code

Sub ers()
    Dim z As Range
    Dim ws As Worksheet
    Dim r As Range
    
    Set ws = Sheets("Adressliste")
    Set r = Sheets("Hilfstabelle").Range(Range("A2"), Range("A2").End(xlDown))
    
    For Each z In r
        ws.Cells.Replace z.Value, z.Offset(, 1).Value
    Next
End Sub

Gruß
Anton
Bild

Betrifft: AW: Suchen - Ersetzen
von: Wolfgang Lödorf
Geschrieben am: 17.04.2005 16:46:34
Hallo Anton,
leider bekomme ich auch hier die gleiche Fehlermeldung.
Wenn es keine große Mühe bereitet, kannst Du meine Tabelle
mit einem "Anklickbutton" versehen, wo das VBA-Projekt ausgeführt wird und
an mich zurücksenden.
Im Einatz habe Office XP.
Recht herzlichen Dank für Deine Unterstützung.
Wolfgang
Bild

Betrifft: AW: Suchen - Ersetzen
von: RAnton
Geschrieben am: 17.04.2005 18:48:09
Hallo Wolfgang,
hier nochmal die modifizierte Fassung. Müsste jetzt klappen.

Private Sub Ersetzte()
    Dim z As Range
    Dim ws As Worksheet
    Dim r As Range
    Dim s As String
    Dim e As String
    
    Set ws = Sheets("Adressliste")
    Set r = Sheets("Hilfstabelle").Range(Range("A2"), Range("A2").End(xlDown))
    
    For Each z In r
        s = z.Value
        e = z.Offset(, 1).Value
        On Error Resume Next
        ws.Cells.Replace s, e
    Next
End Sub

gruß
Anton
Bild

Betrifft: AW: Suchen - Ersetzen
von: Wolfgang Lödorf
Geschrieben am: 17.04.2005 21:29:13
Guten Abend Anton
ich war einige Zeit unterwegs und kann daher erst jetzt antworten.
Leider klappt Dein erneuter Vorschlag auch nicht. (Wird nicht erkannt)
In der ersten Zeile "Private Sub Ersetzte()" habe ich das Wort Private
entfernt. Dann kommt wieder die Fehlermeldung .....1004
Der Debugger untermalt die Zeile:
Set r = Sheets("Hilfstabelle").Range(Range("A2"), Range("A2").End(xlDown))
Da es schon etwas spät ist wünsche ich eine gute Nacht und
bedanke mich nochmals recht herzlich für Deine Bemühungen.
Vielleicht bis Morgen.
MfG
Wolfgang
Bild

Betrifft: AW: Suchen - Ersetzen
von: RAnton
Geschrieben am: 18.04.2005 21:46:56
Hallo Wolfgang,
tut mir leid, daß das alles nicht so hinhaut.
Ich habe dir mal das Excelfile hochgeladen, vielleicht gehts dann besser.
Gruß
Anton
https://www.herber.de/bbs/user/21329.xls
Bild

Betrifft: AW: Suchen - Ersetzen
von: Wolfgang Lödorf
Geschrieben am: 18.04.2005 22:27:51
Hallo und guten Abend Anton,
vielen Dank für Deine erneute Antwort zu meinem Problem.
Deine VBA-Lösung werde ich morgen in meiner umfangreichen
Adressliste ausprobieren.
Ich werde mich auf alle Fälle nochmals melden, oder DU?
Viele Grüße aus der schönen Stadt BONN
WOLFGANG LÖDORF
Bild

Betrifft: AW: Suchen - Ersetzen
von: Wolfgang Lödorf
Geschrieben am: 19.04.2005 17:11:32
Hallo Anton,
jetzt funktioniert es wunderbar.
Alle in der Hilfstabelle eingefügten Wörter werden exakt ersetzt.
Für Deine umfangreiche Hilfestellung bedanke ich mich sehr.
(eine telefonische Rückmeldung oder per Mail ist im Forum
wohl unerwünscht, oder ??)
Mit freundlichen Grüßen
WOLFGANG LÖDORF aus BONN
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Suchen - Ersetzen"