'entwickelt von Winfried Radner
'e-mail: Wolf.W.Radzinski@onlinehome.de
'Benutzung frei - ohne Gewähr

>>>
den Code in Textform unter:
http://www.rendar.de/ersetze/ersatz_text.txt
die XLS Datei mit Userform unter:
http://www.rendar.de/ersetze/ersatz_text.xls
>>>

Function ersatz_text(s1 As String, s2 As String, t As String, pos As Integer)

sucht ab Position pos im String t nach dem Teilstring s1 und ersetzt
diesen durch den String s2

Bsp:
t= "abcabcabc"
s1="bc"
s2="xxx"
pos=3
-->ersatz_text="abcaxxxaxxx"


Sub ersatz_text_in_selection(ByVal s1 As String, ByVal s2 As String)

ruft intern die Funktion ersatz_text auf und führt die Ersatzfunktion
für JEDE selektierte Zelle (max. bis Usedrange) durch, pos ist
hierbei auf 1 gesetzt (und wird nicht variabel übergeben)

Sub et_box()

übergibt die Parameter s1 und s1 an "ersatz_text_in_selection" mit Hilfe
einer Userform

Function use_chr_string(s As String) As String

dient nur dazu in der Userform auch ANSI Codes "als String" übergeben zu können

z.B.
in der Userform=
Textbox1: ##
Textbox2: #33,10
dann wird aus
t= "abc#def#"
--->
abc!
def!

in ersatz_text.xls wird die Userform z.B. mit <strg><e> aufgerufen.