Function Convert_Umlaut(Txt As String, Richtung As Long, Ansi As Boolean) As
String
' HIN: TEXT STRING
'      RICHTUNG LONG
'          0 = UMLAUT zu AE,UE...
'          1 = AE zu Ä....
'      ANSI BOOL
'          TRUE = Benutze ANSI
'          FALSE = Benutze ASCII
'
' Zurück :Text
 
 
Dim A As Variant
Dim B As Variant
Dim UMLAUTE As String
Dim UEBERSETZ As String
 
 
UMLAUTE = "Ä|Ü|Ö|ä|ü|ö|ß"
UEBERSETZ = "Ae|Ue|Oe|ae|ue|oe|ss"
ASCII = Chr(142) + "|" + Chr(154) + "|" + Chr(153) + "|" + Chr(132) + "|"
+ Chr(129) + "|" + Chr(148) + "|" + Chr(225)
If Ansi = True Then
A = Split(UMLAUTE, "|")
Else
A = Split(ASCII, "|")
End If
B = Split(UEBERSETZ, "|")
Select Case Richtung
Case 0
' von Ä nach Ae
For I = 0 To UBound(A)
Txt = Replace(Txt, A(I), B(I))
Next
Case 1
'Von ae zu ä, aber nicht ss zu ß
For I = 0 To UBound(B) - 1 ' kein ss zu ß
Txt = Replace(Txt, B(I), A(I))
Next
End Select
Convert_Umlaut = Txt
 
End Function

dbayerTo be is to do (Rene Descartes)To do is to be (Kant / Nietzsche / Sartre u.a.)Do be do be dooo (Frank Sinatra, Strangers in the Night)