Option
Explicit
Private
Sub
TextBox1_Change()
Cells(1, 1).Value = TextBox1.Value
End
Sub
Private
Sub
TextBox1_KeyDown(
ByVal
KeyCode
As
MSForms.ReturnInteger,
ByVal
Shift
As
Integer
)
If
KeyCode = 13
And
Shift = 0
Then
If
ersetze_Abkuerzungen()
Then
KeyCode = 0
End
If
End
If
End
Sub
Function
ersetze_Abkuerzungen()
Static
Dic
As
Object
If
Dic
Is
Nothing
Then
Set
Dic = CreateObject(
"Scripting.Dictionary"
)
Dic.Add
"A123"
,
"Kunde anschreiben"
Dic.Add
"A124"
,
"blabla4"
Dic.Add
"A125"
,
"blabla5"
End
If
ersetze_Abkuerzungen =
False
With
TextBox1
If
Right(.Text, 4)
Like
"A###"
Then
If
Dic.Exists(Right(.Text, 4))
Then
.Text = Mid(.Text, 1, Len(.Text) - 4) & Dic(Right(.Text, 4))
ersetze_Abkuerzungen =
True
End
If
End
If
End
With
End
Function