Function change_word_2()
'Author: Heiko Hommes
'Create: 
'Funktion: ersetzt zwei aufeinanderfolgende Zeichen durch zwei beliebige


'Deklar. Variablen
    Dim rs As Recordset
    Dim i As Integer
    Dim feld(500) As String
    Dim pt As Integer
    Dim zeich As String
    Dim länge_feld As Integer
    Dim tabelle As String
    Dim var1 As String
    Dim var2 As String
    Dim rep1 As String
    Dim rep2 As String
    

'Deklar. Datenbank
    Dim db As Database
    Set db = DBEngine(0)(0)
    msgbox ("Zwei hintereinander folgende Zeichen werden durch zwei beliebige ersetzt!!!"), 64
    tabelle = InputBox$("Bitte Tabellenname eingeben, dabei auf groß/klein-Schreibung achten: ")
    Set rs = db.OpenRecordset(tabelle)

var1 = InputBox$("Bitte das erste zu ersetzendes Zeichen eingeben: ")
var2 = InputBox$("Bitte das zweite zu ersetzendes Zeichen eingeben: ")
rep1 = InputBox$("Bitte das erste neue Zeichen eingeben: ")
rep2 = InputBox$("Bitte das zweite neue Zeichen eingeben: ")

pt = 1
i = 1
rs.MoveFirst
While Not rs.EOF
  länge_feld = Len(rs!WasoText)
  For pt = 1 To länge_feld Step 1
    feld(pt) = Mid(rs!WasoText, pt, 1)
  Next pt
  zeich = ""
  For pt = 1 To länge_feld Step 1
        If feld(pt) = var1 And feld(pt + 1) = var2 Then
            feld(pt) = rep1
            feld(pt + 1) = rep2
        End If
        zeich = zeich + feld(pt)
  Next pt
  rs.Edit
  rs!WasoText = zeich
  rs.Update
  rs.MoveNext
Wend
msgbox ("Habe fertig!!!!!!!!!"), 48

End Function