option explicit
Private
Sub
TextBox1_Change()
With
TextBox1
Application.EnableEvents =
False
.Value = ersetze_Abkuerzungen(.Text)
Application.EnableEvents =
True
Cells(1, 1).Value = .Text
End
With
End
Sub
Function
ersetze_Abkuerzungen(
ByVal
txt
As
String
)
As
String
Dim
kuerzel, texte
Dim
i
As
Long
kuerzel = Array(
"A123"
,
"A124"
,
"A125"
)
texte = Array(vbCrLf &
":Kunde anschreiben"
, vbCrLf &
":blabl bla bla"
,
":Bla bla bla 2"
)
For
i = 0
To
2
txt = Replace(txt, kuerzel(i), texte(i))
Next
ersetze_Abkuerzungen = txt
End
Function