Funktion aufrufen
14.12.2015 11:08:42
muehli
ich versuche mich gerade an Funktionen.
Folgende Funktion soll dafür sorgen, dass Umlaute umgeschrieben werden.
"Das steht in Modul1:"
Public Function Umlaut(S)
Dim I As Integer, Ch As String * 1, Ch1 As String * 1, _
IsUpCase As Boolean, Res As String
If IsNull(S) Then Umlaut = Null: Exit Function
Res = ""
For I = 1 To Len(S)
Ch = Mid(S, I, 1)
Ch1 = IIf(I Vorher:
Größe
*Click*
Nachher:
Groesse
Habe mehrere Versuche gestartet, unter anderem Folgenden:
Sub btn_test_Click()
Call Umlaute(Userform1.txtbox_wort.Value)
MsgBox Umlaute
Userform1.txtbox_wort.value = Umlaute
End Sub
Kann mir jemand helfen?
Gruß und danke
Muehli