Office: umlaute in Textbox

Hallo zusammen
folgendes problem.
ich habe untenstehenden code der mir die umlaute in einer Textbox ändert.

nun möchte ich aber das, dass in mehreren Textboxen auf meiner userform passiert.
komme mit meinen bescheidenen vba kenntnissen nicht weiter*frown.gif*
und bin für jede unterstützung dankbar

PHP:

         Option Explicit

'String mit Umlauten, gefolgt von Ersetzungen definieren
Private Const strUmlaute = "ÄAeÖOeÜUeßssäaeöoeüue"

Private Sub Form_Load()
Form1.Caption = "Umlaute bei der Eingabe ersetzen"
Text1.Text = "Text eingeben...."
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub Text1_Change()
Dim i As Integer

'strUmlaute in dreier Schritten durchlaufen
'1. Zeichen= Umlaut
'2.-3. Zeichen = Ersetzung

For i = 1 To Len(strUmlaute) Step 3
Text1.Text = SwapStr(Text1.Text, Mid(strUmlaute, i, 1), _
Mid(strUmlaute, i + 1, 2))
Next i

Text1.SelStart = Len(Text1.Text)
End Sub

'Replace Funktion, unter VB6 kann diese durch den direkten Befehl
'erstetzt werden
Private Function SwapStr(ByVal Txt As String, Search As String, _
Swap As String) As String

Dim x As Long, Pos As Long

x = 1
Do While x <= Len(Txt)
Pos = InStr(x, Txt, Search)

If Pos = 0 Then
Exit Do
Else
Txt = Left$(Txt, Pos - 1) & Swap & Mid$(Txt, Pos + _
Len(Search), Len(Txt))

x = Pos + Len(Swap)
End If
Loop

SwapStr = Txt
End Function


:)

 

Hallo,

du willst die Umlaute durch andere Zeichen ersetzen?

 

Hallo Klaus Dieter
Genau
Ä in Ae
Ö in Oe
Ü in Ue
ß - ss
ä-ae
ö-oe
ü-ue

wie gesagt Code funktioniert sehr gut, nur möchte ich den code für mehrere Textboxen benutzen, komme aber nicht weiter.

 

Moin!
Lasse doch ein einfaches Replace im TextBox_Exit laufen.
(steht ja auch bereits so als Kommentar im Code)
Heißt, rufe im Exit eine Private Sub Sonderzeichen(TB As String) auf.
Könnte man auch mittels Klassenprogrammierung machen, dürfte aber Deinen Kenntnisstand übersteigen.

Muss jetzt aber los, falls bis morgen keine Lösung da ist, schreibe ich Dir etwas.

Gruß Ralf

 

hallo Ralf
Vielen herzlichen Dank.
Wie du richtig erkannt hast reicht mein Kenntniss stand nicht aus.*frown.gif*
auch mit

Private Sub Sonderzeichen(TB As String

stehe ich an.
Beste Grüsse Toni

 

Hi Toni,

ohne Klassen, ohne Regex, mal schnell zusammengestellt:

Code:

 

Guten Morgen Ralf

erstmal vielen Dank dass du dir zeit genommen hast.
leider funktioniert der Code bei mir nicht ganz.

bei Eingabe in erste Textbox wird der Umlaut ersetzt, ab der zweiten Textbox
nicht mehr.

(die Textboxen 4 & 6 die sich in einem Frame befinden funktionieren nicht.

PHP:

         Option Explicit

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Ersetzen ActiveControl
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Ersetzen ActiveControl
End Sub
Private Sub TextBox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
Ersetzen ActiveControl
End Sub

Sub Ersetzen(TB As Control)
Dim strText As String

With Me.Controls(TB.Name)

[color="Red"] strText = .Text[/color]
strText = Replace(strText, "Ä", "Ae")
strText = Replace(strText, "ä", "äe")
strText = Replace(strText, "Ü", "Ue")
strText = Replace(strText, "ü", "ue")
strText = Replace(strText, "Ö", "Oe")
strText = Replace(strText, "ö", "oe")
strText = Replace(strText, "ß", "ss")
.Text = strText
End With
End Sub


 

Hi Tom,

von einem Frame hattest Du ja auch nichts gesagt. Das ist dann ein Sonderfall.

Schreib für die Boxen im Frame:
Code:

Das funktioniert, solange Du Dich innerhalb des Frames bewegst. Wenn Du aber eine Textbox im Frame verlässt, um zu einem Objekt außerhalb des Frames zu wechseln, in diesem einen Fall geht es auch nicht. Du könntest dann im Exit Ereignis des Frames darauf reagieren, indem Du in einer Schleife alle Textboxen des Frames ersetzen lässt. Oder... einfach nochmal rein und raus aus der TN im Frame....*wink.gif*

 

Hallo RJ
Perfekt*Smilie
Vielen herzlichen Dank.

Grüsse Toni