Suchen und ersetzen ß

Question

Hallo

 

Mit dieser funktion suche und ersetze ich

Function SuchenErsetzen(txt As Variant, Suchen As String, Ersetzen As String)

On Error GoTo Fehler

Dim X As Integer
Dim p As Integer

  If IsNull(txt) Then
    SuchenErsetzen = ""
  Else
    If Suchen = Ersetzen Then
      SuchenErsetzen = txt
    Else
      If InStr(Ersetzen, Suchen) <> 0 Then
        SuchenErsetzen = "Fehler"
      Else
        p = Len(Suchen)
        Do
          X = InStr(txt, Suchen)
          If X = 0 Then Exit Do
          txt = left(txt, X - 1) & _
             Ersetzen & _
             Mid(txt, X + p)
        Loop
        SuchenErsetzen = txt
      End If
    End If
  End If

Ende:
  Exit Function

Fehler:
  MsgBox Err.Description, 16, "SuchenErsetzen()"
  Resume Ende

End Function

doch wenn ich ein ß durch ein ss ersetzen möchte oder Chr(223) durch ein ss -geht das nicht

kann mir da jemand weiterhelfen

alles andere geht also äöü .....

Answer 1

Hallo MCDEPone
Ich verstehe nicht, was Du da bastelst. Instr() funktioniert bei mir problemlos auch mit dem sz. Gib' doch mal explizit an, welche Vergleichsmethode Du verwenden willst, also z.B. vbTextCompare. Du wirst dann auch den 1. Parameter eingeben müssen, also 1 um vom Beginn weg zu suchen.

Aber mal im Ernst: Wieso benutzt Du nicht einfach Replace?

Gruss
Henry
 MCDPone wrote:

Hallo


Mit dieser funktion suche und ersetze ich

Function SuchenErsetzen(txt As Variant, Suchen As String, Ersetzen As
String)

On Error GoTo Fehler

Dim X As Integer
Dim p As Integer

 If IsNull(txt) Then
   SuchenErsetzen = ""
 Else
   If Suchen = Ersetzen Then
     SuchenErsetzen = txt
   Else
     If InStr(Ersetzen, Suchen) <> 0 Then
       SuchenErsetzen = "Fehler"
     Else
       p = Len(Suchen)
       Do
         X = InStr(txt, Suchen)
         If X = 0 Then Exit Do
         txt = left(txt, X - 1) & _
            Ersetzen & _
            Mid(txt, X + p)
       Loop
       SuchenErsetzen = txt
     End If
   End If
 End If

Ende:
 Exit Function

Fehler:
 MsgBox Err.Description, 16, "SuchenErsetzen()"
 Resume Ende

End Function

[code]

doch wenn ich ein ß durch ein ss ersetzen möchte oder Chr(223) durch ein
ss -geht das nicht
[/code]

kann mir da jemand weiterhelfen

[code]

alles andere geht also äöü .....

[/code]

Answer 2

Ähm - ja wieso benutze ich jetzt schon seit jahren die funktion zum suchen und ersetzen - weil an mir peinlicherweise Replace vorbeigegangen ist

 

DANKE