Diese Aufgabe wird von der folgenden Prozedur erledigt:
Sub SonderzeichenUmwandeln(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("ä"): SendKeys "ae": KeyAscii = 0
Case Asc("ö"): SendKeys "oe": KeyAscii = 0
Case Asc("ü"): SendKeys "ue": KeyAscii = 0
Case Asc("Ä"): SendKeys "Ae": KeyAscii = 0
Case Asc("Ö"): SendKeys "Oe": KeyAscii = 0
Case Asc("Ü"): SendKeys "Ue": KeyAscii = 0
Case Asc("ß"): SendKeys "ss": KeyAscii = 0
End Select
End Sub
Zur eigentlichen Umwandlung muß diese Prozedur an das Taste-Ereignis der betreffenden Textfelder eines Formulars geknüpft werden. Legen Sie dazu für die BeiTaste-Ereigniseigenschaft eine neue Ereignisprozedur an, und füllen Sie diese mit der folgenden Anweisung:
SonderzeichenUmwandeln KeyAscii
Die deutschen Sonderzeichen werden nun bereits während der Eingabe ersetzt.