TKSoft-Online

Problemstellung:

Wie kann ich bebliebige Zeichenketten in Strings suchen und Ersetzen? 

Public Function SuchenUndErsetzen(ByVal Text As Variant, Suchen As Variant, _ Ersetzen As Variant) As Variant
'*******************************************
'Name:      SuchenUndErsetzen (Function)
'Purpose:   Sucht und ersetzt beliebige Zeichenketten
'Author:
'Date:
'Inputs:    Text = Text der geänder werden soll, 
'           Suchen = Der String der ersetzt werden soll,
'           Ersetzen = Der neue String
'Output:    gibt den geändertern Text zurück
'Example:   SuchenUndErsetzen "Straße","ß","ss"
'*******************************************

Dim x As Integer
Dim P As Integer

  P = Len(Suchen)
  
  Do
    x = InStr(Text, Suchen)
    If x = 0 Then Exit Do
    Text = Left(Text, x - 1) + Ersetzen + Mid(Text, x + P)
  Loop

  SuchenUndErsetzen = Text
    
End Function

Aufruf:

Dim x As String
x = SuchenUndErsetzen("Straße","ß","ss")