none
Suchen und ersetzen ß

    Frage

  • 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 äöü .....
    

    Donnerstag, 5. Mai 2011 07:24

Antworten

  • 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]

    • Als Antwort markiert MCDPone Donnerstag, 5. Mai 2011 16:16
    Donnerstag, 5. Mai 2011 07:50

Alle Antworten

  • 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]

    • Als Antwort markiert MCDPone Donnerstag, 5. Mai 2011 16:16
    Donnerstag, 5. Mai 2011 07:50
  • Ähm - ja wieso benutze ich jetzt schon seit jahren die funktion zum suchen und ersetzen - weil an mir peinlicherweise Replace vorbeigegangen ist

     

    DANKE

    Donnerstag, 5. Mai 2011 16:16