Hallo,
ich habe hier mal einen unbefriedigenden Schnellschuss:
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 'LBound(kuerzel) To UBound(kuerzel)
txt = Replace(txt, kuerzel(i), texte(i))
Next
ersetze_Abkuerzungen = txt
End Function
Auf meinem Rechner macht das keine Freude und fühlt sich total buggy an! Das ist IMHO nicht für den allgemeinen Gebrauch geeignet!
Vielleicht kann es ja eine Inspiration für jemanden sein, der/die es besser kann/weiß.
Grüße, Ulrich
|