Public Function CleanString(Wert As String)

' -----------------------------------------------------------
' Wandelt Leerzeichen in "_" um, "Ä" in "Ae", "Ö" in "Oe", 
' "Ü" in "Ue",
' "ä" in "ae", "ö" in "oe", "ü" in "ue" und "ß" in "ss"
' -----------------------------------------------------------

Dim t As Integer
Dim Merk As Integer
Dim Zeichen As String

    Wert = Trim(Wert)
    For t = 1 To Len(Wert)
        Zeichen = Mid(Wert, t, 1)
        Merk = Asc(Zeichen)
        If Merk = 32 Then ' Leerzeichen
            CleanString = CleanString & "_"
        ElseIf Merk = 252 Then ' üüü
            CleanString = CleanString & "ue"
        ElseIf Merk = 246 Then ' ööö
            CleanString = CleanString & "oe"
        ElseIf Merk = 228 Then ' äää
            CleanString = CleanString & "ae"
        ElseIf Merk = 220 Then ' ÜÜÜ
            CleanString = CleanString & "Ue"
        ElseIf Merk = 214 Then ' ÖÖÖ
            CleanString = CleanString & "Oe"
        ElseIf Merk = 196 Then ' ÄÄÄ
            CleanString = CleanString & "Ae"
        ElseIf Merk = 223 Then ' ßßß
            CleanString = CleanString & "ss"
        Else ' Keine Änderung
            CleanString = CleanString & Zeichen
        End If
    Next t

End Function