ß, ä, ö, ü tauschen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
TextBox


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: ß, ä, ö, ü tauschen
von: Chris
Geschrieben am: 03.06.2002 - 12:42:20

Hallo,

ich habe ein kleines problem.

Ich hab eine TextBox in der ich einen Namen eingebe. Nur darf dabei kein ß, ä, ö oder ü vorkommen. Sollte ich also ein "ä" tippen, soll dieses automatisch durch ein "ae" ersetzt werden.

Geht so was?

Danke & Gruß
Christian


nach oben   nach unten

Re: ß, ä, ö, ü tauschen
von: Andreas
Geschrieben am: 03.06.2002 - 13:03:19

Hallo Christian,

nutze dazu das Change-Ereignis der Textbox:

Private Sub TextBox1_Change()
Dim strWert$, strErsetzen$

With TextBox1
strWert = .Value
If strWert <> "" Then
    Select Case Right(strWert, 1)
        Case "ä": strErsetzen = "ae"
        Case "Ä": strErsetzen = "Ae"
        Case "ö": strErsetzen = "oe"
        Case "Ö": strErsetzen = "Oe"
        Case "ü": strErsetzen = "ue"
        Case "Ü": strErsetzen = "Ue"
        Case "ß": strErsetzen = "ss"
        Case Else: strErsetzen = "0"
    End Select
    If strErsetzen <> "0" Then _
        .Value = Left(strWert, Len(strWert) - 1) & strErsetzen
End If
End With
End Sub

Viel Spaß,
Andreas

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "ß, ä, ö, ü tauschen"