Public Sub Ersetzen(Suchstring As String, Newstring As String)
 
Dim ZeilenText(1000) As String  ' max 1000 Zeilen einlesen
Dim F As Integer
Dim FN As Integer
Dim sZeilen() As String
Dim cnt As Long
Dim j As Long
Dim z As Long
Dim Temp As String
Dim Original As String
 
sZeilen = Split(Newstring, vbNewLine)
 
Original = App.path & "\1.txt"
Temp = App.path & "\Temp.txt"
FileCopy Original, Temp
 
F = FreeFile
Open Temp For Input As #F
FN = FreeFile
Open Original For Output As #FN
j = 0
 
Do While Not EOF(F)
    j = j + 1
    Input #F, ZeilenText(j)
    If ZeilenText(j) = Suchstring Then
        Print #FN, ZeilenText(j)
        z = j + 1
        For cnt = 0 To UBound(sZeilen())
            If ZeilenText(z) = "" Then
                ZeilenText(z) = sZeilen(cnt)
                Print #FN, ZeilenText(z)
                z = z + 1
            Else
            End If
        Next
        Do Until ZeilenText(j) = ""
            Input #F, ZeilenText(j + 1)
            j = j + 1
        Loop
        Print #FN, ""
    Else
        Print #FN, ZeilenText(j)
    End If
Loop
Close #F
Close #FN
Kill Temp
End Sub