Public Function keineSonderzeichen(Wert As Variant) As String
'erstellt vom Aus- und Fortbildungszentrum Bremen, Fred Hoppe-Kiaup
'am 12.02.2008
    Dim sort As String, I As Integer, temp As String
    If IsNull(Wert) Then
        keineSonderzeichen = " "
        Exit Function
    End If
    For I = 1 To Len(Wert)
        'Zeichen im Code vor dem A und das Paragrafenzeichen ignorieren
        If Asc(Mid(Wert, I, 1)) > 64 And Not Asc(Mid(Wert, I, 1)) = 167 Then
            temp = temp & Mid(Wert, I, 1)
        End If
    Next I
    keineSonderzeichen = temp
End Function